Мета роботи - створити програму, що виконує дії звичайного калькулятора. 

План розробки програми

1. Відкрити новий проект.

2. Размістити на формі  компоненти: Label, Edit, Button.

Рис. 1.

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;

Завдання для самостійного виконання

1. Створити программу, выполняющую действия простого инженерного калькулятора.

Рис. 2.

Фрагмент підпрограми (для обчислення функції Cos(x))

 if Edit1.Text <> '' then begin

a := StrToFloat (Edit1.Text); c := cos (a); end;

if Edit2.Text <> '' then

begin

b := StrToFloat (Edit2.Text);

c := cos (b); end;

Edit3.Text := FloatToStr (c); Добавить на форму кнопки для вычисления функций Tg(x), Log ab.

2. Створити програму, яка виконує перевод чисел з десяткової системи числення у двійкову систему і навпаки.

Рис. 3.