Question

ДАМ 30 БАЛОВ СРОЧНО
Середовище виконання : Lazarus.
1. Побудуйте математичну модель і створіть проект, у якому можна обчислити суму, або різницю, або добуток, або частку від ділення двох довільних чисел залежно від вибраного прапорця.
2. Розробіть проект Веселка, у якому після вибору кольору веселки(перемикача) та натиснення кнопки Показати, форма змінює колір, який відповідає обраному на головній формі.
3. Побудуйте математичну модель і створіть проект, у якому можна обчислити або довжину кола, або площу круга для двох довільних чисел залежно від вибраного елемента розкривного списку.

Answer 1

1:

procedure TForm1.Button1Click(Sender: TObject);

var

 a, b, result: real;

begin

 a := StrToFloat(Edit1.Text);

 b := StrToFloat(Edit2.Text);

 case ComboBox1.ItemIndex of

   0: result := a + b; // Сума

   1: result := a - b; // Різниця

   2: result := a * b; // Добуток

   3: result := a / b; // Частка

 end;

 Label4.Caption := 'Результат: ' + FloatToStr(result);

end;

2:

procedure TForm1.Button1Click(Sender: TObject);

begin

 case ColorBox1.ItemIndex of

   0: Color := clRed;

   1: Color := clOrange;

   2: Color := clYellow;

   3: Color := clGreen;

   4: Color := clBlue;

   5: Color := clPurple;

 end;

end;

3:

Прости в 3 я хз (((((((((((((((((((((((((((((((((((((((