Середовище програмування Delphi Робота №1. Тема. Керуючі структури мови Delphi
Як приклад використання інструкції if розглянемо програму обчислення вартості міжміської телефонної розмови.
Вартість міжміської розмови по телефоні у вихідні дні нижче, ніж у звичайні. Програма, текст якої наведений у лістингу 1, запитує тривалість розмови й день тижня, а потім обчислює вартість розмови. Якщо день тижня - субота або неділя, то вартість зменшується на величину знижки. Ціна минути розмови й величина знижки задаються в тексті програми як константи. Вид діалогового вікна програми наведений на рис. 1. Для введення вхідних даних (тривалість розмови, номер дня тижні) використовуються поля редагування, для виводу результату й пояснювального тексту - поля міток. У табл. 1 перераховані компоненти й зазначений їхнє призначення, а в табл. 2. наведені значення властивостей цих компонентів.
Таблиця 1. Компоненти форми додатка Вартість розмови
Компонент |
Призначення |
Edit1 Edit2 Label1, Labe2 |
Для введення тривалості розмови в минутах Для введення номера дня тижня 2 Для виводу пояснювального тексту про призначення полів введення |
Label3 Button1 |
Для виводу результату обчислення - вартості розмови Для активізації процедури обчислення вартості розмови |
Примітка. У таблицях, що містять опис значень властивостей компонентів форми, вказується ім'я компонента й через крапку - ім'я властивості. Наприклад, рядок таблиці Form1.Caption Вартість розмови позначає, що під час створення форми додатка властивості Caption форми додатка треба привласнити зазначене значення - текст "Вартість розмови".
Рис. 1. Діалогове вікно програми Вартість розмови
Таблиця 2. Значення властивостей компонентів
Властивість |
Значення |
Form1 . Caption |
Вартість розмови |
Edit1.Text |
|
Edit2.Text |
|
Label1 .Caption |
Тривалість (хв.) |
Label2 .Caption |
Номер дня тижня |
Label3 .Caption |
|
Button1 . Caption |
Обчислити |
Програма робить обчислення в результаті клацання на командній кнопці Обчислити. При цьому виникає подія onclick, що обробляється процедурою TForm1.Button1Click.
Лістинг 1. Обчислення вартості телефонної розмови
unit Phone;
Interface
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Editl: TEdit; // поле введення тривалості розмови
Edit2: TEdit; // поле введення номера дня тижня
Button1: TButton; // кнопка Обчислити
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure ButtonlClick(Sender: TObject); private
/ Private declarations }
public
{ Public declarations }
end;
var Form1: TForm1;