:
1. .
2. .
3. .
4. .
.
Goto , . :
goto <>,
<> - 0 9999, label.
- , .. . , .
Break .
Continue , .
Exit .
Halt (n), ( n - ) n.
.
. ,
- , , . (if , else - ).
, . , - .
:
1)
2)
3)
4)
1) IF THEN ;
2) IF THEN 1 ELSE 2;
3) IF THEN BEGIN
1;
2;
N;
END;
4) IF THEN BEGIN
1;
2;
N;
END ELSE
BEGIN
1;
2;
N;
END;
. . . :
begin
;
end
";". begin () end (), , . , end , , ";" . end ";". , end , . , .
|
|
, .
: .
var b: integer;
Begin
Readln(b);
If b=5 then Writeln(' ') else
If b=4 then Writeln(' ') else
If b=3 then Writeln(' ') else
If b=2 then Writeln(' ') else
Writeln (' ');
End.
.
. , . , . (, , ), .
case, of, else, end . if, else .
:
Case of
1: begin 1; 2; ; N; end;
2: begin 1; 2; ; N; end;
M: begin 1; 2; ; N; end;
else begin 1; 2; ; N; end;
end;
case .
, , , , . , else. , else , case , , case. ,
a..b ( a b).
:
case DayOfWeek of
1..5: writeln(' ');
6,7: writeln(' ');
end;
: .
var b: integer;
Begin
Readln(b);
Case b of
5: Writeln(' ');
4: Writeln(' ');
3: Writeln(' ');
2: Writeln(' ');
else Writeln(' ');
end;
end.
.
. , . , , . . , begin... end;. .
, , , .