Алгоритм реализуемый инструкцией
Рисунок 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, для выбора страны используется список Страна.