Создать меню для программы

@raulZarul · Регистрация: 22.04.2012

Author24 — интернет-сервис помощи студентам

меню.

@Puporev · 27.05.2012, 16:45

Pascal

var w:char;
begin
repeat
clrscr;
writeln('Выберите действие');
writeln('1-1 задача');
writeln('2-2 задача');
writeln('3-3 задача');
writeln('Другое - выход');
readln(w);
case w of
'1':procedure1;
'2':procedure2;
'3':procedure3;
else exit;
end;
until not (w in ['1'..'3']);
end.

@raulZarul · 27.05.2012, 19:51 **[ТС]**

глупый вопрос, но как это работает?

@Puporev · 27.05.2012, 21:14

Создаете 3 процедуры соответственно заданиям и вызываете их в меню.

Добавлено через 1 минуту
Вот пример программы с таким меню.
https://www.cyberforum.ru/pascal/thread172202.html

@raulZarul 0 / 0 / 0 Регистрация: 22.04.2012 Сообщений: 12
		1
	Создать меню для программы 27.05.2012, 13:57. Показов 1678. Ответов 3 Метки нет (Все метки) меню. Изображения 0

@raulZarul 0 / 0 / 0 Регистрация: 22.04.2012 Сообщений: 12
	27.05.2012, 19:51 [ТС]	3
	глупый вопрос, но как это работает? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.05.2012, 21:14	4
	Создаете 3 процедуры соответственно заданиям и вызываете их в меню. Добавлено через 1 минуту Вот пример программы с таким меню. https://www.cyberforum.ru/pascal/thread172202.html 1

Создать меню для программы

Решение