.
. , .
, , , , . :
();
();
();
();
();
6.0 ().
26) goto - . , , - , . . , : goto 12, , : goto raschets.
goto , . , .
. . , , . end . :
label Metka;
...
begin
...
goto Metka; ( )
...
Metka: ( )
end.
- Read(<_>) ReadLn(<_>).
, , - . .
- , . ,
ReadLn(k, x, c, s); {k: Byte; x: Real; c: Char; s: String}
, .
, - Enter. , . , , Enter - , - , ( ).
|
|
, . .
, ( ). - Boolean-, : , . :
repeat
WriteLn(' ? y - , n - ');
ReadLn(c); {c: Char}
case c of
'y': b:= True;
'n': b:= False;
else WriteLn('!');
end;
until (c = 'n') or (c = 'y');
: , , . Enter, .
- , - , Write(<_>) WriteLn(<_>).
, , , , .
- , , . , :
WriteLn(a, ' ', b, ' ', c);
( ) :
WriteLn(a: 5, b, c: 20: 5);
: , , - . .
, , . , . , , .
, a = 25, b = 'x', c = 10.5, WriteLn(a: 5, ' ', b, c: 10: 5) ( ):
_ _ _25_x_ _10.50000
. , , 10.5 1.0500000000+0001. .
, , ( , ), . 10 ( _x.xE+yyyy). -.
27) A ( ) , . .
.
: (.1.)
|
|
28)
, - . . - . , (, ..). , , .
;.
:
a:= 10; b:= a*5; Write(a, b);
- , , .
, BEGIN, END. BEGIN END .
:
BEGIN
a:= 10;
b:+ a*5;
Write(a, b)
END;
. , .. .
: , , . () : , .
30. : , .
:
Repeat
[ ];
Until < >;
, .
: , , ( ).
: , .
:
While < > do [][;]
[ Begin ]
[ ];
[ End ];
:
1. , , ( ), .
2. .
: ( ) , , .
, for.