консольное меню в pascal

[VaLenOK007]

приветствую. Есть вопрос. Имеются несколько лабораторных на сортировки, и поступила задача объединить их в одну, с меню из-под консоли. Как лучше всего это сделать, если можно с примерчиком

[Step_UA]

не проверял

repeat
clrscr;
writeln('1 - сортировка 1');
writeln('2 - сортировка 2');
{вывод всех пунктов меню}
writeln('0 - выход');
c:=readkey; {или  readln(c)}
case c of
 #0:readkey;
 '1':begin {код первой сортировки} end;
 '2':begin {....} end;
 end;
until c='0';

или вместо begin ... end вызов соответствующей процедуры

[VaLenOK007]

Сообщение от Step_UA

не проверял

repeat
clrscr;
writeln('1 - сортировка 1');
writeln('2 - сортировка 2');
{вывод всех пунктов меню}
writeln('0 - выход');
c:=readkey; {или  readln(c)}
case c of
 #0:readkey;
 '1':begin {код первой сортировки} end;
 '2':begin {....} end;
 end;
until c='0';

или вместо begin ... end вызов соответствующей процедуры

он не видит константы. Обьявлял всё естессно в шапке

[Step_UA]

кто он? какие константы?
для этого кода нужно определить только

var c:char;

[VaLenOK007]

Сообщение от Step_UA

кто он? какие константы?
для этого кода нужно определить только

var c:char;

он это код. Я понял что надо вписывать в варе все константы, а в бегин - энд уже писать чисто код. или в подпрограмме надо писать всё?

[Stilet]

предлагаю: http://www.programmersforum.ru/showthread.php?t=14050

[Serge_Bliznykov]

VaLenOK007
консоль в Паскале - консоле в Паскале рознь.
Если общий случай (любая консоль), тогда прокатит вариант с текстовым меню, команда вводится путём набора нужного номера (или буквы, не принципиально).

Если же речь идёт о TurboPascal (или FreePascal в режиме совместимости с DOS), тогда можно использовать красивое "настоящее" текстовое меню. Пример по ссылке Stilet
или первая же ссылка внизу темы (Похожие темы),
Создание меню в Pascal
так есть примеры.

[VaLenOK007]

Сообщение от Serge_Bliznykov

VaLenOK007
консоль в Паскале - консоле в Паскале рознь.
Если общий случай (любая консоль), тогда прокатит вариант с текстовым меню, команда вводится путём набора нужного номера (или буквы, не принципиально).

Если же речь идёт о TurboPascal (или FreePascal в режиме совместимости с DOS), тогда можно использовать красивое "настоящее" текстовое меню. Пример по ссылке Stilet
или первая же ссылка внизу темы (Похожие темы),
Создание меню в Pascal
так есть примеры.

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

[Serge_Bliznykov]

Ваша реализация хороша, но хотелось бы максимально упростить не теряя качество

рассказываю. берёте мою программу ЦЕЛИКОМ.
запускаете. убеждаетесь, что она работает так, как надо.
это будет ОСНОВА, базис, фундамент, на котором мы будем строить своё приложение.
Изменяете константу N (в примере N=3: 2 пункта + выход)
делаете её, например, N=6 (будет пять процедур)
там, где описываются пункты меню пишете свой текст:

     menu[1]:=' Ваша Программа Номер Раз';
     menu[2]:=' Вторая программа ';
     menu[3]:=' Программа для третьего расчёта ';
     menu[4]:=' Программа 4 ';
     menu[5]:=' Программа пятая ';
     menu[6]:=' Выход ';

вставляете в код СВОИ программы, как процедуры.

procedure Program1;
...тут текст Вашей первой программы...
procedure Program2;
...тут текст Вашей второй программы...
...
procedure Program5;
...тут текст Вашей пятой программы...

в коде, там где проверка нажатия Enter:

               if ch=chr(13) then begin { нажата клавиша <Enter> }
                    case punkt of
                         1:Program1;
                         2:Program2;
                         3:Program3;
                         4:Program4;
                         5:Program5;
                         N:ch:=chr(27);{ выход }
                    end;

вот и всё.

да и форум для чего нужен - чтобы помогать!
Возникнут проблемы - будем вместе их решать!
Успехов!