Иллюстрированный самоучитель по Delphi 7 для начинающих

Выбор. Инструкция if.

Например, инструкция:

if n=m
then c: = c+1;

Увеличивает значение переменной с только в том случае, если значения переменных n и m равны.

В качестве примера использования инструкции if рассмотрим программу вычисления стоимости междугородного телефонного разговора.

Как известно, стоимость междугородного разговора по телефону в выходные дни ниже, чем в обычные. Программа, текст которой приведен в листинге 2.1, запрашивает длительность разговора и день недели, а затем вычисляет стоимость разговора. Если день недели – суббота или воскресенье, то стоимость уменьшается на величину скидки. Цена минуты разговора и величина скидки задаются в тексте программы как константы. Вид диалогового окна программы приведен на рис. 2.4.

Для ввода исходных данных (длительность разговора, номер дня недели) используются поля редактирования, для вывода результата и пояснительного текста – поля меток. В табл. 2.3 перечислены компоненты и указано их назначение, а в табл. 2.4 приведены значения свойств этих компонентов.

Рис. 2.4. Диалоговое окно программы Стоимость разговора

Примечание
Здесь и далее при описании формы приложения приводятся значения только тех свойств компонентов, которые используются в программе. Значения остальных свойств, в частности определяющих размер и положение компонентов, могут быть.оставлены без изменения или изменены произвольным образом, естественно, в разумных пределах (очевидно, что положение командной кнопки или поля редактирования может быть выбрано в пределах формы произвольным образом).

Таблица 2.3. Компоненты формы приложения Стоимость разговора.

Примечание
В таблицах, содержащих описание значений свойств компонентов формы, указывается имя компонента и через точку – имя свойства. Например, строка таблицы Form1.Caption Стоимость разговора обозначает, что во время создания формы приложения свойству Caption формы приложения надо присвоить указанное значение – текст "Стоимость разговора".