Question

Составить программу для построения функции в программе PascalABC. Условия на фото.

Answer 1

program abc;

var

 a, b, x, h: real;

begin

 read(a, b);

 h := 0.5;

 x := a;

 while x <= b + h / 2 do

 begin

   writeln(x:20:9, x * x - sqr(x * x) / 2:20:9);

   x := x + h;

 end;

end.