7.0



6.1.


:

1) WHILE ();

2)      REPEAT ( ).

WHILE

:

WHILE < > DO < >;

, .

, , , TRUE. WHILE . , .

- WHILE -.

1. .

:

, [-0.5, 2.5] 0.1.

.

.

-

Program TAB_1;

Var

a, b, x, y: real;

Begin

writeln( );

read(a, b);

writeln ( x y(x));

x := -0.5;

while x <= 2.5 do

begin

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

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

x := x + 0.1;