Инженерный калькулятор

Автор работы: Пользователь скрыл имя, 11 Марта 2013 в 23:18, курсовая работа

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

Эволюция технических средств персональных компьютеров привела к повсеместному вытеснению старой “доброй” ОС MS-DOS значительно более мощными системами Windows, программирование для которых существенно сложнее, чем программирование для MS-DOS. В 1993 году Microsoft выпустила первую визуальную среду программирования Visual Basic, и программирование для Windows стало даже проще, чем программирование для MS-DOS. В ответ на это Borland в 1995 году выпустила первую версию Delphi, а затем, с интервалом в 1 год, - еще 4 версии: 2, 3, 4 и 5. Наконец, в середине 2001 г. выпускается версия 6.

Содержание

Введение………………………………………………………………………..…..5
Теоретическая часть……………………………………………………………...10
Описание функций и процедур……………………………………………….....13
Руководство пользователя…………………………………………………….…17
Результат работы программы……………………………………………….…...24
Заключение………………………………………………………………….…….26
Список литературы……

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

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

Работа.docx

— 1.65 Мб (Скачать файл)

R:=0; pk:=0; mk:=0; dk:=0; uk:=0;

end;

if (klav='p') then

begin

memo1.Text:=floattostr(r+strtofloat(memo1.text));

R:=0; pk:=0; mk:=0; dk:=0; uk:=0;

end;

flag:=true;

if dk=0 then d:=strtofloat(memo1.Text);

if dk=1 then R:=d/strtofloat(memo1.text);

if dk>1 then R:=R/strtofloat(memo1.Text);

if dk>=1 then memo1.Text:=floattostr(r);

R:=strtofloat(memo1.text);

END;

Kol:=0; klav:='d'; inc(dk);

end;

procedure TForm5.SpeedButtonMCClick(Sender: TObject);

begin

panel5.Caption:='';

mem_s:=0;

end;

procedure TForm5.SpeedButtonMinusClick(Sender: TObject);

begin

flag:=true;

if kol=1 then

BEGIN

if (klav='u') then

begin

memo1.Text:=floattostr(r*strtofloat(memo1.Text));

R:=0; pk:=0; mk:=0; dk:=0; uk:=0;

end;

if (klav='d') then

begin

memo1.Text:=floattostr(r/strtofloat(memo1.text));

R:=0; pk:=0; mk:=0; dk:=0; uk:=0;

end;

if (klav='p') then

begin

memo1.Text:=floattostr((r+strtofloat(memo1.text)));

R:=0; pk:=0; mk:=0; dk:=0; uk:=0;

end;

if(mk=0) then m:=strtofloat(memo1.Text);

if mk=1 then R:=m-strtofloat(memo1.Text);

if mk>1 then R:=r-strtofloat(memo1.Text);

if mk>=1 then memo1.Text:=floattostr(r);

R:=strtofloat(memo1.Text);

END;

kol:=0; klav:='m'; inc(mk);

end;

procedure TForm5.SpeedButtonMplusClick(Sender: TObject);

begin

mem_s:=mem_S+strtofloat(memo1.text);

Panel5.Caption:=floattostr(mem_s);

flag:=true;

end;

procedure TForm5.SpeedButtonMRClick(Sender: TObject);

begin

Memo1.Text:=floattostr(mem_s);

end;

procedure TForm5.SpeedButtonMSClick(Sender: TObject);

begin

mem_s:=strtofloat(memo1.text);

Panel5.Caption:=floattostr(mem_s);

flag:=true;

end;

procedure TForm5.SpeedButtonPlusClick(Sender: TObject);

begin

flag:=true;

if kol=1 then

BEGIN

if (klav='m') then

begin

memo1.Text:=floattostr((r-strtofloat(memo1.text)));

R:=0; pk:=0; mk:=0; dk:=0; uk:=0;

end;

if (klav='u') then

begin

memo1.Text:=floattostr(r*strtofloat(memo1.Text));

R:=0; pk:=0; mk:=0; dk:=0; uk:=0;

end;

if (klav='d') then

begin

memo1.Text:=floattostr(r/strtofloat(memo1.text));

R:=0; pk:=0; mk:=0; dk:=0; uk:=0;

end;

if pk=0 then a:=strtofloat(memo1.Text);

if (pk=1) then R:=a+strtofloat(memo1.text);

if pk>1 then R:=R+strtofloat(memo1.Text);

if (pk>=1) then memo1.Text:=floattostr(r);

R:=strtofloat(memo1.Text);

END;

kol:=0; inc(pk); klav:='p';

end;

procedure TForm5.SpeedButtonPlusMinusClick(Sender: TObject);

begin

if strtofloat(memo1.text)>0 then

memo1.Text:=floattostr(strtofloat(memo1.text)*-1)

else

if strtofloat(memo1.text)<0 then

memo1.Text:=floattostr(strtofloat(memo1.text)*-1)

end;

procedure TForm5.SpeedButtonProcentClick(Sender: TObject);

var proc:string;

begin

case klav of

'm':memo1.Text:=floattostr((m/100*strtofloat((memo1.Text))));

'p':memo1.Text:=floattostr((a/100*strtofloat((memo1.Text))));

'u':memo1.Text:=floattostr((u/100*strtofloat((memo1.Text))));

'd':memo1.Text:=floattostr((d/100*strtofloat((memo1.Text))));

'r':memo1.Text:='0';

end;

inc(prK);

end;

procedure TForm5.SpeedButtonRavnoClick(Sender: TObject);

begin

case klav of

'p': begin

SpeedButtonPlusClick(SpeedButtonPlus);

pk:=1; a:=0; m:=r; d:=r; u:=r;

end;

'm': begin

SpeedButtonMinusClick(SpeedButtonMinus);

mk:=0; a:=0; m:=r; d:=r; u:=r;

end;

'd': begin

SpeedButtonDelClick(SpeedButtonDel);

dk:=0; a:=0; m:=r; d:=r; u:=r;

end;

'u': begin

SpeedButtonUmnClick(SpeedButtonUmn);

uk:=0; a:=0; m:=r; d:=r; u:=r;

end;

flag:=true; klav:='r';

end;

procedure TForm5.SpeedButtonSqrtClick(Sender: TObject);

begin

flag:=true;

memo1.Text:=floattostr(sqrt(strtofloat(memo1.Text)));

end;

procedure TForm5.SpeedButtonTClick(Sender: TObject);

var k,i:integer;

begin

nol:='z'; k:=0;

for i := 1 to length(memo1.text) do

if memo1.Text[i]=',' then inc(k);

if k=0 then memo1.Text:=memo1.Text+',';

flag:=false;

end;

procedure TForm5.SpeedButtonUmnClick(Sender: TObject);

begin

if kol=1 then

BEGIN

if (klav='m') then

begin

memo1.Text:=floattostr((r-strtofloat(memo1.text)));

R:=0; pk:=0; mk:=0; dk:=0; uk:=0;

end;

if (klav='p') then

begin

memo1.Text:=floattostr(r+strtofloat(memo1.Text));

R:=0; pk:=0; mk:=0; dk:=0; uk:=0;

end;

if (klav='d') then

begin

memo1.Text:=floattostr(r/strtofloat(memo1.text));

R:=0; pk:=0; mk:=0; dk:=0; uk:=0;

end;

flag:=true;

if uk=0 then u:=strtofloat(memo1.Text);

if uk=1 then R:=u*strtofloat(memo1.text);

if uk>1 then R:=R*strtofloat(memo1.Text);

if uk>=1 then memo1.Text:=floattostr(r);

R:=strtofloat(memo1.Text);

END;

kol:=0; klav:='u'; inc(uk);

end;

procedure TForm5.SpeedButtonX2Click(Sender: TObject);

begin

memo1.Text:=floattostr(strtofloat(memo1.text)*strtofloat(memo1.text));

end;

end.

Информация о работе Инженерный калькулятор