7.0




6.1. - 2


end;

End.

REPEAT

:

REPEAT

< >;

UNTIL < >;

, , . FALSE, . REPEAT .

, WHILE, .

- REPEAT -.

2. REPEAT.

Program TAB_2;

Var

a, b, x, y: real;

Begin

writeln( );

read(a, b);

writeln( x y(x));

x := -0.5;

repeat

y := ln(abs(x))/(a*a - b*b);

writeln(x:8:1, y:8:1)

x := x + 0.1;

until x > 2.5;

End.

-

WHILE

REPEAT.

1.      WHILE . BEGIN END.

REPEAT , REPEAT UNTIL.

2.      WHILE , .

REPEAT . .