Основы языка Delphi


Алгоритм реализуемый инструкцией ifthen Например инструкция



Рисунок 2.3. Алгоритм, реализуемый инструкцией if-then Например, инструкция





if n=m

then c:=c+l;

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

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

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

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









- Начало -  - Назад -  - Вперед -


Книжный магазин