Навчальна частина. Прикладна область: Елементарний калькулятор

Прикладна область: Елементарний калькулятор

Постановка задачі: Створити елементарний калькулятор, в якому можна знаходити суму, різницю, добуток та частку двох введених чисел.

Рекомендації

Під час розробки програмного засобу слід використовувати наступні об’єкти:

· поле ре­да­гування (Edit)

· Кнопки (Button)

· Мітка (Label).

Хід роботи

1. Завантажте середовище візуального програмування RAD Studio XE3.

2. Виберіть вкладку File → New → VCL Forms Aplication – Delphi.

3. Відмовтесь від можливості змінювати розміри вікна програми, надавши властивості форми BorderStyle значення bsDialog.

Задавши це значення, виконайте програму і переконайтеся, що не можна змінити розмір форми. Для того щоб виконати програму виберіть пункт меню Run → Run, або клавішу F9.

4. Змініть заголовок (Caption) форми з “Form1” на “ Калькулятор ” (без лапок) і збільшіть розміри форми у вертика­льно­му нап­рямку.

5. Збережіть виконану на даний момент форму у своїй власній пап­ці (FileÞSave All).

6. Розташуйте у формі поля редагування Edit1, Edit2, Edit3 та задайте їхній параметр Alignment вкладки Properties в Object Inspector на taRightJustify.

7. Добавте мітки Label1 та Label2.

Властивість Caption Label1 залиште без змін, а Label2 встановіть в ‘=’.

8. Добавте кнопки Button та змініть властивість Caption відповідним чином:

Button1	Caption	+
Button2	Caption	-
Button3	Caption	*
Button4	Caption	/

Форма Калькулятора

5. Опишіть у області глобальних змінних змінні дійсного типу

6. Запрограмуйте кнопку “+” так, щоб після її натискання у Label1 з’являвся символ “+”.

Для програмування кнопки Button1 необхідно два рази клацнути на ній лівою клавішею миші. У результаті активізується вікно тексту програми з заготовкою процедури Button1Click, яка опра­цьо­вуватиме подію клацання на кнопці Button1:

procedure TForm1.Button1Click(Sender: TObject); begin end;

У заготовку необхідно вставити текст програми реакції на цю подію. Процедура матиме такий вигляд:

procedure TForm1.Button1Click(Sender: TObject); begin a:= StrToFloat(Edit1.Text); b:= StrToFloat(Edit2.Text); Label1.Caption:= '+'; Res:= a + b; Edit3.Text:= FloatToStr(Res); end;

7. Виконайте аналогічну операцію для інших кнопок

procedure TForm1.Button1Click(Sender: TObject); begin a:= StrToFloat(Edit1.Text); b:= StrToFloat(Edit2.Text); Label1.Caption:= '+'; Res:= a + b; Edit3.Text:= FloatToStr(Res); end; procedure TForm1.Button2Click(Sender: TObject); begin a:= StrToFloat(Edit1.Text); b:= StrToFloat(Edit2.Text); Label1.Caption:= '-'; Res:= a - b; Edit3.Text:= FloatToStr(Res); end; procedure TForm1.Button3Click(Sender: TObject); begin a:= StrToFloat(Edit1.Text); b:= StrToFloat(Edit2.Text); Label1.Caption:= '*'; Res:= a * b; Edit3.Text:= FloatToStr(Res); end; procedure TForm1.Button4Click(Sender: TObject); begin a:= StrToFloat(Edit1.Text); b:= StrToFloat(Edit2.Text); Label1.Caption:= '/'; Res:= a / b; Edit3.Text:= FloatToStr(Res); end;

8. Запустіть на виконання нашу програму і перевірте правильність її роботи.

Завдання для самоконтролю

Обчислити вираз

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14. Обчислити периметр і площу прямокутного трикутника по довжинах двох катетів.

15. Дані катети прямокутного трикутника. Знайти його гіпотенузу й площу.

16. Знайти відстань між точками A (x₁, y₁) та B(x₂, y₂) на площині.

17. Обчислити довжину кола, площа круга та об’єм кулі радіуса R

18. Дано два числа. Знайти середнє арифметичне кубів цих чисел і середнє геометричне модулів цих чисел.

19. На площині дані точки A(x₁, y₁) та B(x₂, y₂). Знайти координати середини відрізка AB.

20. Дано сторони трикутника. Обчислити периметр та площу трикутника.