Зміні та їх властивості Уведення та виведення даних під час виконання проекту Курило Світлана Володимирівна учитель Балясненської ЗОШ І – ІІІ ступенів Диканської районної ради Полтавської області

Розглянемо елемент керування - Поле - для введення даних. Текст, що знаходиться в полі, є значенням його властивості Text. При введенні в поле числа, програма сприймає його як текст і не зможе виконувати з ним математичних операцій. Тому спочатку потрібно перевести цей текст у число. Для цього використовується функція StrToInt – перетворення тексту у ціле число, для зворотного перетворення (числа у текст) – IntToStr. Функція StrToFloat – використовується для перетворення текстового представлення дійсних чисел у саме дійсне число, для зворотного перетворення – FloatToStr.

Щоб виконувати дії з змінними, потрібно визначити тип змінної: Real – дійсне значення. Змінні цього типу набувають цілі і дробові значення від Integer – ціле значення. Змінні цього типу набувають значення від – до Типи змінних, які використовуються в процедурі, вказуються після ключового слова var у рядку, що знаходиться між рядком заголовка процедури і рядком зі словом begin. Цей рядок називається рядком оголошення змінних.

Приклад 1. Обчислити суму двох чисел. Відкриваємо програму Delphi. На формі розміщуємо три поля (Edit) для введення чисел та виведення результату, три написи (Label) для оформлення, кнопку (Button) для виконання програми. Очищаємо у полі властивість Text. Змінюємо властивість Caption напису та кнопки. Створюємо процедуру OnClick для кнопки.

procedure TForm1.Button1Click(Sender: TObject); var x,y,z:Real; //прописані змінні та їх тип begin x:=StrToFloat(edt1.Text); //перетворення текстового представлення числа у саме число y:=StrToFloat(edt2.Text); //перетворення текстового представлення числа у саме число z:=x+y; //присвоєння змінній z суми змінних х та у edt3.Text:=FloatToStr(z); //виведення в поле результату, перетворення числа у текст end; end.

Приклад 2. Створити калькулятор для виконання дій додавання, віднімання, множення та ділення двох чисел. Відкриваємо програму Delphi. Розміщуємо на формі три поля (для введення чисел та виведення результату), три написи (для оформлення), чотири кнопки (для виконання дій). Очищаємо у полі властивість Text. Змінюємо властивість Caption напису та кнопки. Створюємо процедуру OnClick для кожної кнопки окремо, прописуючи команди процедури (див. приклад 1).

procedure TForm1.Button1Click(Sender: TObject); var a,b,z:Real; begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); z:=a+b; Edit3.Text:=FloatToStr(z); end; procedure TForm1.Button2Click(Sender: TObject); var a,b,z:Real; begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); z:=a-b; Edit3.Text:=FloatToStr(z); end; procedure TForm1.Button3Click(Sender: TObject); var a,b,z:Real; begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); z:=a*b; Edit3.Text:=FloatToStr(z); end; procedure TForm1.Button4Click(Sender: TObject); var a,b,z:Real; begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); z:=a/b; Edit3.Text:=FloatToStr(z); end; end.

Приклад 3. Створити конвертер валют. Відкриваємо програму Delphi. Розміщуємо на формі три поля (для введення чисел та виведення результату), три написи (для оформлення), кнопку (для виконання дій). Очищаємо у полі властивість Text. Змінюємо властивість Caption напису та кнопки. Створюємо процедуру OnClick для кнопки, прописуючи команди процедури (див. приклад 1).

procedure TForm1.Button1Click(Sender: TObject); var a,b,z:Real; begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); z:=a/b; Edit3.Text:=FloatToStr(z); end; end.

Домашнє завдання Розділ 2, пункт 2.5 (ст ) – прочитати, 7 (ст.62) – виконати письмово в зошиті.