Val (choice2, choice, code);. then writeln ('Вы ввели не число!’,
if (code<>0)
then writeln ('Вы ввели не число!’,
’ Повторите ввод! ');
until code=0 ;
Case choice of
Begin
{ Реализация первого варианта действий }
{ операторы }
. . .
End;
Begin
{ Реализация второго варианта действий }
{ операторы }
. . .
End;
Begin
{ Реализация третьего варианта действий }
{ операторы }
. . .
End;
Begin
{Реализация четвёртого варианта действий }
{ операторы }
. . .
End;
Begin
writeln ('Вы действительно хотите’,
’ закончить работу? (Y/N)');
Readln (exit_ans);
if exit_ans = 'Y'
then F:=false;
End;
Else writeln ('Incorrect menu point',choice);
end; { case }
end; { While }
writeln ('Спасибо за работу! До свидания!');
Readln;
End.
Далее необходимо отладить программу. Для этого подойдут пункты оператора CASE, в ветвях которого будут стоять только операторы вывода на монитор, которые только выводят отладочную информацию для своего пункта, например, для 1 пункта меню:
Begin
{Реализация первого варианта действий }
Writeln (‘Выбран и работает 1 пункт меню’);
End;
И т.д.по порядку.
После отладки можно приступать к «наполнению» составных операторов в ветвях оператора CASE, по очереди реализуя соответствующие варианты вычислений – ввод исходной информации, варианты обработки, выход из программы.
Repeat
writeln(' Заголовок меню');
writeln('1. Первый вариант действий');
writeln('2. Второй вариант действий ');
writeln('3. Третий вариант действий’);
writeln('4. Четвёртый вариант действий ');
writeln('5. Выход из программы');
writeln('Ваш выбор:');
АРХИВ
PROGRAM Menu;
Var
exit_ans : string;
choice, code : integer;
F, Fl : boolean;
{Тело главной вызывающей программы}
Begin
{ clrscr; }
F := true; { Флаг управления циклом меню }
while (F = true) do
Begin
Repeat
{ clrscr;}
writeln(' Заголовок меню');
writeln('1. Первый вариант действий');
writeln('2. Второй вариант действий ');
writeln('3. Третий вариант действий’);
writeln('4. Четвёртый вариант действий ');
writeln('5. Выход из программы');
writeln('Ваш выбор:');
Readln (choice2);
Val (choice2, choice, code);
if (code<>0)
then writeln ('Вы ввели не число!’,
’ Повторите ввод! ');
until code=0 ;
Case choice of
Begin
{ Реализация первого варианта действий }
{ операторы }
. . .
End;
Begin
{ Реализация второго варианта действий }
{ операторы }
. . .
End;
Begin
{ Реализация третьего варианта действий }
{ операторы }
. . .
End;
Begin
{Реализация четвёртого варианта действий }
{ операторы }
. . .
End;
Begin
writeln ('Вы действительно хотите’,
’ закончить работу? (Y/N)');
Readln (exit_ans);
if exit_ans = 'Y'
then F:=false;
End;
end; { case }
end; { While }
writeln ('Спасибо! До свидания!');
Readln;
End.
PROGRAM Menu;
Var
exit_ans : string;
choice, code : integer;
F, Fl : boolean;
{Тело главной вызывающей программы}
Begin
{ clrscr; }
F := true; { Флаг управления циклом меню }
while (F = true) do
Begin
Repeat
{ clrscr;}
writeln(' Заголовок меню');
writeln('1. Первый вариант действий');
writeln('2. Второй вариант действий ');
writeln('3. Третий вариант действий’);
writeln('4. Четвёртый вариант действий ');
writeln('5. Выход из программы');
writeln('Ваш выбор:');
Readln (choice2);
Val (choice2, choice, code);
if (code<>0)
then writeln ('Вы ввели не число!’,
’ Повторите ввод! ');
until code=0 ;
Case choice of
Begin
{ Реализация первого варианта действий }
{ операторы }
. . .
End;
Begin
{ Реализация второго варианта действий }
{ операторы }
. . .
End;
Begin
{ Реализация третьего варианта действий }
{ операторы }
. . .
End;
Begin
{Реализация четвёртого варианта действий }
{ операторы }
. . .
End;
Begin
writeln ('Вы действительно хотите’,
’ закончить работу? (Y/N)');
Readln (exit_ans);
if exit_ans = 'Y'
then F:=false;
End;
end; { case }
end; { While }
writeln ('Спасибо! До свидания!');
Readln;
End.
Далее необходимо отладить программу с точки зрения правильности логики работы. Для этого подойдут пункты оператора CASE, в ветвях которого будут стоять только операторы вывода на монитор, которые только выводят отладочную информацию для своего пункта, например, для 1 пункта меню:
Begin
{Реализация первого варианта действий }
Writeln (‘Выбран и работает 1 пункт меню’);
End;
И т.д. по порядку.
. . .
Case choice of
Begin
{ Реализация первого варианта действий }
Writeln (‘Выбран и работает 1 пункт меню’);
Readln;
. . .
End;
Begin
{ Реализация второго варианта действий }
Writeln (‘Выбран и работает 2 пункт меню’);
Readln;
. . .
End;
Begin
{ Реализация третьего варианта действий }
Writeln (‘Выбран и работает 3 пункт меню’);
Readln;
. . .
End;
Begin
{Реализация четвёртого варианта действий }
Writeln (‘Выбран и работает 4 пункт меню’);
Readln;
. . .
End;
Begin
writeln ('Вы действительно хотите’,
’ закончить работу? (Y/N)');
Readln (exit_ans);
if exit_ans = 'Y'
then F:=false;
End;
Else writeln ('Incorrect menu point',choice);
end; { case }
end; { While }
После отладки можно приступать к «наполнению» составных операторов в ветвях оператора CASE, по очереди реализуя соответствующие варианты вычислений – ввод исходной информации, варианты обработки, выход из программы. Например, если в 1 пункте меню предусмотрен ввод одномерного массива, то вид этого пункта в CASE может быть таким.
Case choice of
Begin
{ Ввод одномерного массива }
Writeln (‘Введите фактическое количество’,
‘ элементов массива, <= 30’);
Readln (N);
For i:= 1 to N do
Begin
Writeln (‘ Введите элемент №: ‘,i);
Readln ( A [i] );
End;
End;
И так далее, по пунктам.