: . .
GOTO . :
GOTO ;
, . . , . LABEL (), .
:
LABEL 1; { };
goto 1; { } { 1}
1:read(x,y); { 1 }
:
1. , GOTO, - ;
2. , (), , () .
GOTO, .. , . GOTO.
:
IF <> THEN < 1> ELSE < 2>;
: IF, THEN, ELSE (, , );
<> ;
< 1>, < 2> .
. <>. TRUE (), < 1>, < 2> ; FALSE (), , < 1> , < 2>.
< 1> < 2> , , ELSE < 2>, . : ELSE THEN . . , .
: , .
|
|
, IF ()
:
IF () THEN ( );
: .
y: = ln x, x > 0.
: :
Program PR2;
var y, x: real;
begin
writeln( x);
Readln (x);
IF x > 0 THEN y: = ln(x); {, IF}
writeln (x=, x: 7:2, y=, y:7:2);
end.
, IF
: . y = ln x, >0, y=cos x. , .
: :
Program PR3;
var x, y: real;
begin
writeln( X);
Readln (X);
if x>0 THEN y:= ln (x) ELSE y:=cos(x); {, IF}
Writeln (`x = `, x:6:2, `y = `, y:7:2)
end.
>0, THEN (), , ELSE ().
C, IF
, BEGINEND.
, ( GOTO).
, .
: y=ln x, z=y5×x, x > 0.
:
IF x>0 then Begin y:=Ln(x); z:=y5*x;
Writeln (y=, y:7:2, z=, z:8:3);end;
, IF
: y=ln x, z=y5×x, x > 0. .
: :
IF x>0 then Begin
Y:=ln (x);
Writeln (`x = `, x:6:2,`y =`, y:7:2);
End
Else begin
Y:=cos (x);
Writeln (`x = `, x:6:2,`y =`, y:7:2);
End;
, then, lse .