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

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



Рисунок 2.7. Алгоритм, реализуемый инструкцией case Ниже приведены примеры инструкции case.


case n_day of

1,2,3,4,5: day:='Рабочий день. ' ;

6: day:='Cyббoтa!';

7: day:='Воскресенье!';

end;

case n_day of

1..5: day:='Рабочий день.';


6: day:='Суббота!';

7: day:='Воскресенье!';

end;

case n_day of

6: day:='Суббота!';

7: day:='Воскресенье!';

else day:='Рабочий день.';

end;

В качестве примера использования инструкции case рассмотрим программу, которая пересчитывает вес из фунтов в килограммы. Программа учитывает, что в разных странах фунт "весит" по-разному. Например, в России фунт равен 409,5 граммов, в Англии — 453,592 грамма, а в Германии, Дании и Исландии фунт весит 500 граммов.

В диалоговом окне программы, изображенном на Рисунок 2.8, для выбора страны используется список Страна.



Содержание раздела