1XrARPZto8KPVyBtR6k3uLKtRzQszSXdI

Калькулятор

https://drive.google.com/drive/folders/1JashzLMbJVhRWwjtiBtwUIvhbeNfglLj

Практична робота. Проект «Найпростіший калькулятор в Lazarus»

Створимо додаток «Калькулятор», яке може складати, віднімати, множити і ділити два числа. У цій роботі ми познайомимося з тим, як вибирати компоненти (об'єкти) з панелі інструментів, а також навчимося перетворювати типи даних.

Порядок дій:

1. Запустимо середовище Lazarus і збережемо файли нашого проекту в окремій папці. Сам проект можна зберегти під ім'ям 'calc'.

2. Розмістимо на формі

три мітки класу TLabel;
три текстових поля класу TEdit;
чотири кнопки класу TButton.

Всі ці об'єкти можна брати з закладки Standart:

3. За допомогою вікна Інспектор об'єктів виділяємо об'єкти і міняємо їх властивості згідно наведеної нижче таблиці:

4. Розмісти об'єкти на формі так:

5. Напишемо процедуру-обробник натискання на кнопку додавання (Button1).

Для цього у вікні інспектора об'єктів вибираємо закладку Події і знаходимо подію OnClick (це і є натискання на кнопку).

6. Наберемо наступний текст всередині процедури-обробника (набираємо лише текст світло- оранжевого кольору):

procedure TForm1.Button1Click(Sender: TObject);
var a, b, result:real; {Оголошення локальних змінних дійсного типу}
begin
a:=strtofloat(edit1.Text); {Перекладаємо текст, що у полі введення edit1 в дійсне число}
b:=strtofloat(edit2.Text); {Перекладаємо текст, що у полі введення edit2 в дійсне число}
result:=a+b; {присвоюємо змінній значення суми чмсел}
edit3.Text:=floattostr(result); {У текстовому полі введення edit3 виводимо отриману суму, не забувши при цьому зробити зворотне перетворення речового числа result у рядок.}
end;

6. Аналогічно напишемо процедури-обробники натискань по кнопках віднімання, множення і ділення, не забувши при цьому змінити знак операції на відповідний.

procedure TForm1.Button2Click(Sender: TObject);

var a, b, result:real; {Оголошення локальних змінних дійсного типу}

begin

a:=strtofloat(edit1.Text); {Перекладаємо текст, що у полі введення edit1 в дійсне число} b:=strtofloat(edit2.Text); {Перекладаємо текст, що у полі введення edit2 в дійсне число} result:=a-b; {присвоюємо змінній значення суми чмсел} edit3.Text:=floattostr(result); {У текстовому полі введення edit3 виводимо отриману суму, не забувши при цьому зробити зворотне перетворення речового числа result у рядок.}

end;

procedure TForm1.Button3Click(Sender: TObject);

var a, b, result:real; {Оголошення локальних змінних дійсного типу}

begin

a:=strtofloat(edit1.Text); {Перекладаємо текст, що у полі введення edit1 в дійсне число} b:=strtofloat(edit2.Text); {Перекладаємо текст, що у полі введення edit2 в дійсне число} result:=a*b; {присвоюємо змінній значення суми чмсел} edit3.Text:=floattostr(result); {У текстовому полі введення edit3 виводимо отриману суму, не забувши при цьому зробити зворотне перетворення речового числа result у рядок.}

end;

procedure TForm1.Button4Click(Sender: TObject);

var a, b, result:real; {Оголошення локальних змінних дійсного типу}

begin

a:=strtofloat(edit1.Text); {Перекладаємо текст, що у полі введення edit1 в дійсне число} b:=strtofloat(edit2.Text); {Перекладаємо текст, що у полі введення edit2 в дійсне число} result:=a/b; {присвоюємо змінній значення суми чмсел} edit3.Text:=floattostr(result); {У текстовому полі введення edit3 виводимо отриману суму, не забувши при цьому зробити зворотне перетворення речового числа result у рядок.}

end;

7. Збережемо всі файли проекту (Файл → Зберегти все)

8. Виконаємо програму (F9 або меню Запуск → Запуск)