Допомога 1.
Procedure TForm1.Button1Click(Sender: TObject);
var x1, x2, x3:integer;
begin
x1:=StrToInt(Edit1.Text);
x2:=StrToInt(Edit2.Text);
x3:=x1+x2;
Edit3.Text:= IntToStr(x3);
end;
Допомога 2.
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
Лабораторна робота №6. «Створення програм лінійної структури. Створення програми «Калькулятор»
Мета: 1. Навчитися створювати програми, що містять лінійні структури.
2. Навчитися використовувати функції введення-виведення числих даних.
3. Навчитися використовувати об’єкти Label, Edit.
3. Виконувати математичні обчислення в програмі.
Теорія
Введення та виведення числових даних
Коли ми в програмі посилаємось на властивість певного об’єкта , то це посилання повинно складатись із двох частин: імені об’єкта та назви властивості. Між цими двома назвами ставиться крапка. Зміна властивості відбувається шляхом присвоювання йому нового значення. Для цього використовують оператор присвоювання. Якщо присвоюється текст, то його обов»язково потрібно брати в лапки.
Всі змінні повинні бути оголошені в розділі оголошень з вказуванням їх типу. Правила запису змінних тіж, що й в Паскалі.
Всі змінні поділяються на два вида: локальні та глобальні. Локальні можуть бути використані лише в окремій процедурі, а глобальні використовуються у всій програмі і відповідно оголошуються в розділі оголошень програми. Практика показує, що в програмі повинно бути якомога менше глобальних змінних.
В Паскалі дані, що вводяться з клавіатури, записуються в змінну зразу в числовому вигляді. В Дельфі ми всі дані будемо вводити в текстове поле, тому всі дані інтерпритуються системою, як текст, навіть тоді коли вони є числами. Тому ми будемо використовувати функції для переведення тексту в числові дані (таб. Функції перетворення)
Наприклад:
X:=StrToInt(t); // перетворює текстову величину t в числову
X:=StrToInt(Edit1.Text); //в програмі аргументом виступає властивість якогось об’єкту, наприклад властивість тексту об’єкту Edit1. Тому операція перетворення має такий вигляд
Коли введені користувачем дані будуть перетворені в числові і над ними будуть виконані всі операції, постає проблема виводу результату, тобто обернена задача перевести числову інформацію в текстову для подальшого виводу її на екран. Для цього використовуються друга стандартна функція IntToStr.
Наприклад:
Label2.Caption:= IntToStr(t); //виводить результат в текстове поле
Edit2.Text:= IntToStr(t); // виводить результат в текстове вікно
Введення текстових даних X:= Edit1.Text; // х описується як символьна змінна
Виведення текстових даних Label2.Caption:=x;
Завдання:
Створити програму, яка обчислює суму двох чисел.
Допомога: Створити кнопку «Закрити» для закриття вікна. Для створення дії закриття потрібно:
Двічі клацнути по кнопці «Закрити».
Записати в відповідній процедурі таку вказівку CLOSE.
Створити програму, яка обчислить за відомими двома катетами трикутника гіпотенузу та периметр прямокутного трикутника. // Самостійно
Допомога: Створити кнопку «Очистити» для очистки текстових полів. Для створення дії очистки потрібно:
Двічі клацнути по кнопці «Очистити».
Записати в відповідній процедурі такі вказівки для очистки текстового поля Edit1.Text:=’’; Edit2.Text:=’’; Edit3.Text:=’’;
Створити програму, яка обчислює об»єм та площу поверхні паралепіпеда. А також виводить зображення паралепіпеда. // Самостійно
Допомога: малюнок паралепіпеда створити в графічному редакторі Paint. Для вставки малюнка в форму використати об’єкт Image з вкладки Additional
Створити програму, яка перераховує масу із фунтів в кілограми (1фунт=409,5 грам). // Самостійно
Створити програму «Калькулятор».