Середовище програмування 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;