Enter.
:
Write(A1,A2,...AK);
WriteLn(A1,A2,...AK);
WriteLn;
1, 2,..., . 1, 2,..., . .
, , , , . .
, .
: , - , - , - TRUE FALSE.
. :, - , - . , , . , . ::, - , - , - . - . .
:
..
var rA, rB: Real;
iP,iQ:Integer;
bR, bS: Boolean;
chT, chV, chU, chW: Char;
WriteLn(rA, rB:10:2);
WriteLn(iP, iQ:8);
WriteLn(b, b:8);
WriteLn(ch, ch, ch, ch);
, . , , , , . :
Goto 218;
̳ (:)
218:X:=2*A;
' .
:
;
.
If (B) then OP1;
: B , 1, , . B , , .
|
|
:
:
if a+1<0 then x:=x+1;
1 , begin ... end :
if a+1<0 then begin x:=x+1; y:=2*x; z:=x+y end;
If (B) then OP1 else OP2;
: B , 1, , . B , OP2, , .
:
:
if a+1<0 then x:=x+1 else x:=x-1;
( 1 2):
if a+1<0 then
begin
x:=x+1;
k:=a+b
End
Else
begin
x:=x-1;
k:=a-b
End;
. :
if a-1<10 then goto 4;
2.4.5
, . :
;
;
;
;
.
.
2.4.5.1
. , y=2*x2-5*x 3 45 1. , , :
x:=3; { 1 - }
1:y:=2*x*x-5*x; { 2 - }
x:=x+1; { 3 - }
if x<46 then goto 1; { 4 - }
2.4.5.2
, 1, 3, 4 . :
for x:=xn to xk do OP1;
xn - ;
xk - ;
OP1 - .
:
for x:=3 to 45 do y:=2*x*x-5*x;
, .
. , +1. 1 :
for x:=xn downto xk do OP1;
xn = xk, . xn < xk xn > xk , .
|
|
, 1, . , 0,5. :
x:=0; { }
mkr:=45/0.5; { ()}
mk:=Trunc(mkr); { }
for m:=1 to mk do { }
Begin
y:=2*x*x-5*x; { }
x:=x+0.5 { }
End;
2.4.5.3
( ) . , y=2*x2-5*x, =0 0,3 , 500. 1 . :