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;
, .
