Практическая работа № 20

«Обычный калькулятор»

Цель работы -создать программу, выполняющую действия обычного калькулятора.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: Label, Edit, Button.

3. Сохраните проект, запустите и протестируйте его.

Листинг подпрограммы

procedure TForm1.FormCreate(Sender: TObject);

Begin

Edit1.Text:= '';

Edit2.Text:= '';

Edit3.Text:= '';

end;

procedure TForm1.Button5Click(Sender: TObject);

Begin

Edit1.Text:= '';

Edit2.Text:= '';

Edit3.Text:= '';

end;

procedure TForm1.Button6Click(Sender: TObject);

Begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

Begin

a:= StrToFloat (Edit1.Text);

b:= StrToFloat (Edit2.Text);

c:= a + b;

Edit3.Text:= FloatToStr (c);

end;

procedure TForm1.Button2Click(Sender: TObject);

Begin

a:= StrToFloat (Edit1.Text);

b:= StrToFloat (Edit2.Text);

c:= a - b;

Edit3.Text:= FloatToStr (c);

end;

procedure TForm1.Button3Click(Sender: TObject);

Begin

a:= StrToFloat (Edit1.Text);

b:= StrToFloat (Edit2.Text);

c:= a * b;

Edit3.Text:= FloatToStr (c);

end;

procedure TForm1.Button4Click(Sender: TObject);

Begin

a:= StrToFloat (Edit1.Text);

b:= StrToFloat (Edit2.Text);

if b = 0 then Edit3.Text:= 'division by zero'

Else

Begin

c:= a / b;

Edit3.Text:= FloatToStr (c);

end;

end;