. .
( 4 5 - ):
writeln(' ');
writeln('1. ');
writeln('2. ');
writeln('3. );
writeln('4. ');
writeln('5. ');
writeln(' :');
readln (choice2);{
}
. CASE... OF CHOICE2:
Case choice2 of
Begin
{ }
{ }
...
End;
Begin
{ }
{ }
...
End;
Begin
{ }
{ }
...
End;
Begin
{ }
{ }
...
End;
Begin
writeln (' ,
? (Y/N)');
Readln (exit_ans);
if exit_ans = 'Y'
then... { }
End;
end; { case }
, -, , , -, .
.
Var
exit_ans: string;
choice2: integer;
F: boolean;
{ }
Begin
F:= true; { }
while (F = true) do
Begin
writeln(' ');
writeln('1. ');
writeln('2. ');
writeln('3. );
writeln('4. ');
writeln('5. ');
writeln(' :');
Readln (choice2);
Case choice2 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.
- , .
|
|
1 5 .
Else writeln ('Incorrect menu point',choice2);
CASE, END
...
Begin
writeln (' ,
? (Y/N)');
Readln (exit_ans);
if exit_ans = 'Y'
then F:=false;
End;
Else writeln ('Incorrect menu point',choice);
end; { case }
...
.
, . STRING. ( , ) , VAL().
Readln (choice2);
Val (choice2, choice, code);
Val (choice2, choice, code);
(choice2) (choice). Code : Code = 0, , .
Repeat
writeln(' ');
writeln('1. ');
writeln('2. ');
writeln('3. );
writeln('4. ');
writeln('5. ');
writeln(' :');
Readln (choice2);
val (choice2, choice, code);
if (code<>0)
then writeln (' ! ,
Choice2,
! ');
until code=0;
Case choice of
Begin
...
( 3-5 ). , , , . , , ! , , |
PROGRAM Menu;{ }
Var
exit_ans: string;
choice, code: integer;
F, Fl: boolean;
{ }
Begin
F:= true; { }
while (F = true) do
Begin
Repeat
writeln(' ');
writeln('1. ');
writeln('2. ');
writeln('3. );
writeln('4. ');
writeln('5. ');
writeln(' :');
Readln (choice2);