Question

Помогите написать программу на Паскале для:
x^2+4=0

Answer 1

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

var

   x0, xk, dx, x: real;

function f(x: real): real;

begin

   f := x * x + 4;

end;

begin

   write('Введите промежуток и шаг ([a,b] h) ');

   readln(x0, xk, dx);

   

   x := x0;

   writeln(' x ':10, ' | ', ' f(x) ':10);

   

   repeat

       writeln(x:10:3, ' | ', f(x):10:3);

       x := x + dx;

   until x > xk;

end.