Программная разработка инженерного калькулятора

Автор работы: Пользователь скрыл имя, 05 Июня 2013 в 19:44, курсовая работа

Краткое описание

Данные категории программ в свою очередь так же разделяются на несколько разделов. Например, прикладные программы можно разделить по уровню сложности обработки информации и результатов. Есть и более простые: всевозможные программы – калькуляторы (имитирующие работу обычного калькулятора). В среде Windows есть такая программа, по аналогии с ней было сделано данное задание.

Содержание

1.Введение…………………………………………………………………………...3
2.Необходимые формулы и требования…………………………………………...4
3.Алгоритм …………………….....…………………………………………………5
4.Интерфейс………………………………………………………………………....6
5.Вывод………………………………………………………………………………7
6.Приложение I……………………………………………………………………...8
6.1. Техническое задание…………………………………………………………8
6.1.1. Основания для разработки……………………………………………8
6.1.2. Назначение разработки………………………………………………..8
6.2. Требования к программе или программному изделию……………………8
6.2.1. Требования к функциональным характеристикам…………………..8
6.2.2.Условия эксплуатации…………………………………………………8
6.2.3.Требования к составу и параметрам технических средств………….9
6.2.4.Требования к информационной и программной совместимости…...9
6.2.5.Требования к транспортированию и хранению……………………...9
6.3.Технико-экономические показатели………………………………………10
6.4.Стадии и этапы разработки………………………………………………...10
6.5.Порядок контроля и приемки ……………………………………………...12
7.Приложение II: исходный код………………………………………………….13
8.Список литературы……………………………………………………………...19

Скачать в ZIP архиве (40.86 Кб) Сколько стоит заказать работу?

Вложенные файлы: 1 файл

5fan_ru_Программная разработка инженерного калькулятора.doc

— 131.50 Кб (Скачать файл)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Edit1: TEdit;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

Button11: TButton;

Button12: TButton;

Button13: TButton;

Button14: TButton;

Button15: TButton;

Button16: TButton;

Button17: TButton;

Button18: TButton;

Button19: TButton;

Button20: TButton;

Button21: TButton;

Button22: TButton;

Button23: TButton;

Button24: TButton;

Button25: TButton;

Button26: TButton;

Button27: TButton;

Button28: TButton;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button19Click(Sender: TObject);

procedure Button20Click(Sender: TObject);

procedure Button21Click(Sender: TObject);

procedure Button22Click(Sender: TObject);

procedure Button23Click(Sender: TObject);

procedure Button24Click(Sender: TObject);

procedure Button25Click(Sender: TObject);

procedure Button26Click(Sender: TObject);

procedure Button27Click(Sender: TObject);

procedure Button28Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

oper:byte;

a:real;

b:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=strtofloat(edit1.Text);

edit1.Text:='';

oper:=1;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

a:=strtofloat(edit1.Text);

Edit1.Text:='';

oper:=2;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

a:=strtofloat(edit1.Text);

edit1.Text:='';

oper:=3;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

a:=strtofloat(edit1.Text);

edit1.Text:='';

oper:=4;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(1);

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(2);

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(3);

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(4);

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(5);

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(6);

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(7);

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(8);

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(9);

end;

procedure TForm1.Button15Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(0);

end;

procedure TForm1.Button14Click(Sender: TObject);

var r:real;

begin

b:=strtofloat(edit1.Text);

if oper=1 then

begin

r:=a*b;

Edit1.Text:=floattostr(r);

end;

if oper=2 then

begin

if (b<>0) then

begin r:=a/b; Edit1.Text:=floattostr(r); end else

ShowMessage('На 0 делить нельзя');

end;

if oper=3 then

begin

r:=a+b;

Edit1.Text:=floattostr(r);

end;

if oper=4 then

begin

r:=a-b;

Edit1.Text:=floattostr(r);

end;

if oper=5 then

begin

r:=exp(b*ln(a));

Edit1.Text:=floattostr(r);

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

edit1.Text:='';

end;

procedure TForm1.Button17Click(Sender: TObject);

var r:real; f:real;

begin

a:=strtofloat(edit1.Text);

f:=a*3.14159265359/180 ;

r:=sin(f);

Edit1.Text:=floattostr(r);

end;

procedure TForm1.Button18Click(Sender: TObject);

var r:real; f:real;

begin

a:=strtofloat(edit1.Text);

f:=a*3.14159265359/180 ;

r:=cos(f);

Edit1.Text:=floattostr(r);

end;

procedure TForm1.Button19Click(Sender: TObject);

var r:real; f:real; n:longint;

begin

a:=strtofloat(edit1.Text);

f:=a*3.14159265359/180 ;

if (f<>180/2+180*n) then

begin r:=sin(f)/cos(f); Edit1.Text:=floattostr(r); end else

ShowMessage('Невозможно определить');

end;

procedure TForm1.Button20Click(Sender: TObject);

var r:real; f:real; n:longint;

begin

a:=strtofloat(edit1.Text);

f:=a*3.14159265359/180 ;

if (f<>180*n) then

begin r:=cos(f)/sin(f); Edit1.Text:=floattostr(r); end else

ShowMessage('Невозможно определить');

end;

procedure TForm1.Button21Click(Sender: TObject);

Var i:integer; factorial:longint; n:byte;

begin

n:=strToInt (edit1.Text);

factorial:=1;

For i:=1 to n do

Factorial:=factorial*i;

edit1.Text:=floattostr(factorial);

end;

procedure TForm1.Button22Click(Sender: TObject);

var r:real;

begin

a:=strtofloat(edit1.Text);

r:=a*a;

edit1.Text:=floattostr(r);

end;

procedure TForm1.Button23Click(Sender: TObject);

begin

b:=3.14159265359;

edit1.Text:=floattostr(b);

end;

procedure TForm1.Button24Click(Sender: TObject);

var r:real;

begin

a:=strtofloat(edit1.Text);

r:=a*a*a;

edit1.Text:=floattostr(r);

end;

procedure TForm1.Button25Click(Sender: TObject);

begin

a:=strtofloat(edit1.Text);

edit1.Text:='';

oper:=5;

end;

procedure TForm1.Button26Click(Sender: TObject);

var r:real;

begin

a:=strtofloat(edit1.Text);

if a>=0 then begin

r:=sqrt(a);

edit1.Text:=floattostr(r);

end else begin

ShowMessage('Корень из отрицательного числа извлечь нельзя');

end;

procedure TForm1.Button27Click(Sender: TObject);

var r:real;

begin

a:=strtofloat(edit1.Text);

if a>0 then begin

r:=ln(a); edit1.Text:=floattostr(r)end else

ShowMessage('ln при x<=0 неопределён');

end;

procedure TForm1.Button28Click(Sender: TObject);

var r:real;

begin

a:=strtofloat(edit1.Text);

if (a<>0) then begin

r:=1/a; Edit1.Text:=floattostr(r); end else

ShowMessage('На 0 делить нельзя');

end;

end.

8. Список литературы

Фараонов В.В. Основы Турбо Паскаля. Изд-во. МВТУ.ФЕСТОДИДАКТИК, 1992, 304с.
Сергиевский М.В., Шалашов А.В. Турбо Паскаль 7,0. Язык среда программирования на языке Паскаль. Изд-во Москва. Машиностроение,1994, 254 с.
Емелина Е.И.. Основы программирования на языке Паскаль. Изд-во Москва, Финансы и статистика, 1997, 208с.
Немнюгин С.А. Турбо Паскаль., Изд-во СПб, 2001. (Учебник + практикум)
Васюкова Н.Д., Тюлева В.В. Практикум по основам программирования. Язык Паскаль., Изд-во Москва.

Информация о работе Программная разработка инженерного калькулятора