. . (for).
, . , .
FOR:
FOR := TO DO ;
FOR := DOWNTO DO ;
, , , . , ( ) (. , ) ! , . ( ).
, . , .
.
VAR i: integer;
BEGIN
FOR i:= 1 TO 10 DO Write(i:5);
FOR i:= 5 DOWNTO 0 DO Write(i:5)
END.
, , . ,
CONST n = 10;
m = 3;
VAR i,
k: integer;
BEGIN
k:= 1;
FOR i:= k TO n DO Write(i:5);
FOR i:= (m+2) DOWNTO 0 DO Write(i:5)
END.
. , ( TO) ( DOWNTO). , . (, DO), . , .. .
. , . , ,
FOR i:= i-5 TO i+5 DO...;
, !
FOR ,
VAR
i,j: integer;
BEGIN
WriteLn( );
FOR i:= 1 TO 10 DO begin
FOR j:= 1 TO 10 DO Write((i*j):5);
WriteLn;
end;
END.
. . (repeat).
, .
REPEATUNTIL:
REPEAT
1;
2;
N;
UNTIL ;
|
|
(1, 2, N), , , TRUE (). , REPEATUNTIL ( FASLE ).
, .
REPEATUNTIL : ( REPEAT) ( UNTIL), , . .
REPEATUNTIL WHILE , , , , . .
1.
VAR
N: Integer;
BEGIN
...
REPEAT
Write( 0 10: );
ReadLn(N);
UNTIL (N>=0) and (N<=10);
...
END.
, .