Процедура для кнопки «Обчислити»
procedure TForm1.Button1Click(Sender: TObject);
var kurs, suma:real;
begin
kurs:=StrtoFloat(Edit1.Text);
suma:=StrtoFloat(Edit2.Text);
suma:=kurs*suma;
Label4.Caption:=FloatToStr(suma);
end;
Збережіть проект у папці Проект3_1.
Виконайте проект.
Закрийте проект.
Завдання 2
Написати програму «Арифмометр» для двох заданих чисел, які вводяться з клавіатури (рис. 5). Арифмометр – це пристрій, який виконує чотири арифметичні операції над запропонованою кількістю чисел. Результати виконання програми виводяться у окремих вікнах (рис.6).
Порядок виконання
У папці ЛР-Delphi створіть папку Проект3_2.
Відкрийте Delphi 7.
На заготовку форми, що з’явилася на екрані після запуску Delphi 7, помістіть два написи, два поля редагування, чотири стандартних кнопки відповідно до рисунка 7.
Встановіть значення властивостей компонентів згідно даних таблиці 7.
Таблиця 7
Компонент |
Вкладка вікна «Інспектор об’єктів» (Object Inspector) |
Властивість (Properties) /Подія (Events) |
Значення властивості/ обробка події (тіло процедури обробки події) |
Form1 |
Properties |
Caption |
Арифмометр |
Color |
clMoneyGreen |
||
Height |
400 |
||
Width |
300 |
||
Label1 |
Properties |
Caption |
Ввести перше число |
Font |
<Шрифт, розмір, колір за вибором> |
||
Label2 |
Properties |
Caption |
Ввести друге число |
Font |
<Шрифт, розмір, колір за вибором> |
||
Edit1 |
Properties |
Text |
0 |
Enabled |
True |
||
Font |
<Шрифт, розмір, колір за вибором> |
||
Edit2 |
Properties |
Text |
0 |
Enabled |
True |
||
Font |
<Шрифт, розмір, колір за вибором> |
||
Button1 |
Properties |
Caption |
Додати |
Font |
<Шрифт, розмір, колір за вибором> |
||
Events |
OnClick |
<Процедура_1> |
|
Button2 |
Properties |
Caption |
Відняти |
Font |
<Шрифт, розмір, колір за вибором> |
||
Events |
OnClick |
<Процедура_2> |
|
Button3 |
Properties |
Caption |
Помножити |
Font |
<Шрифт, розмір, колір за вибором> |
||
Events |
OnClick |
<Процедура_3> |
|
Button4 |
Properties |
Caption |
Поділити |
Font |
<Шрифт, розмір, колір за вибором> |
||
Events |
OnClick |
<Процедура_4> |