Новая папка_2 / Program51

PROGRAM POPOLAM;
uses CRT;

var
eps:real; x0:real;

var
x:real; k:integer;

function f(x:real):real;
begin
f:= (-x*x*x-3)/4
end;

procedure siter (eps:real; var k:integer; var x:real);
var y:real;
begin
k:=0;
y:=f(x);
while abs(y-x) >=eps do
begin
k:=k+1;
x:=y;
y:=f(x)
end
end;

begin
Writeln(' eps ');
Readln(eps);
Writeln(' x0 ');
Readln(x0);

x:=x0;
siter(eps,k,x);
WriteLn('количество итераций = ', k:3);
WriteLn('приближённое значение корня = ', x:12:8);
end.