Pascal. Программа, использующая оператор case of.

В данной программе используется:

1. подключение библиотеки Crt;

2. переменные;

3. операторы ввода/вывода данных;

4. оператор выбора.

Написать программу-меню, печатающую рецепт приготовления выбираемого пользователем блюда.

Program menu;

Uses Crt;

var

punkt: byte;

begin

ClrScr;

WriteLn(‘М Е Н Ю’);

WriteLn(‘1. Суп Харчи’);

WriteLn(‘2. Пицца’);

WriteLn(‘3. Обычный чай’);

WriteLn(‘4. Чай Lipton);

WriteLn;

WriteLn(‘Выберите интересующее Вас блюдо’);

ReadLn(punkt);

case punkt of

1:

begin

WriteLn(‘Всё, что есть в холодильнике,’);

WriteLn(‘бросаете в кастрюлю,’);

WriteLn(‘разбавляете водой и кипятите.’);

end;

2:

begin

WriteLn(‘Всё, что есть в холодильнике,’);

WriteLn(‘бросаете на сковородку’);

WriteLn(‘и жарите.);

end;

3,4:

begin

WriteLn(‘Насыпаете в чайник заварку и,’);

WriteLn(‘заливаете кипящей водой’);

WriteLn(‘при необходимости говорите’);

WriteLn(‘гостям, что чай’);

WriteLn(‘назвается Липтон’);

else

WriteLn (‘Такого блюда в меню нет!’);

end;

repeat

until KeyPressed

end.