Вычислите значения функции f(x)=x^2-log(1-x)-3 на отрезке [a;b] с шагом h.Итог

var a,b,h,x,y: real;

i:integer;

begin

readln(a,b,h);

for i:=0 to round((b-a)/h) do

begin

x:=a+i*h;

y:=x*x-ln(1-x)/ln(10)-3;

writeln(x:5:2,'  ', y:6:4);

end;

end.

Пример:

-0.50  -2.9261

-0.40  -2.9861

-0.30  -3.0239

-0.20  -3.0392

-0.10  -3.0314

0.00  -3.0000