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.


Изучение Pascal. Оператор выбора case of.


Полный текст материала Pascal. Программа, использующая оператор case of. смотрите в скачиваемом файле.
На странице приведен фрагмент.
Автор: Галахов А.А.  K@tti
17.05.2008 1 9746 1136

Спасибо за Вашу оценку. Если хотите, чтобы Ваше имя
стало известно автору, войдите на сайт как пользователь
и нажмите Спасибо еще раз. Ваше имя появится на этой стрнице.



А вы знали?

Интересные инструкции по ПК

Лучшие материалы сайта для вас
Оставьте отзыв к материалу:
Всего: 1
avatar
1 Dina-nadin • 21:53, 06.04.2011
Я начинающий программист, желательно бы добавить комментарии. Спасибо!
[Материал]