FreePascal выдаёт фатальную ошибку №201

@maynenyta · Регистрация: 24.09.2014

Author24 — интернет-сервис помощи студентам

код программы:

Pascal

program zad3a;
var x0, x,y,f,df,dif,a,e:real;
i,n:integer;
begin
writeln('значение параметра а и n');
readln(a,n) ;
x:=0.1;
x0:=x;
e:=1e-12;
dif:=1;
i:=0;
while dif>e do
 begin
 f:=sqr(x)*x-a*x;
 df:=3*sqr(x)-a;
 y:=x-df/f;
 dif:=abs(y-x);
 i:=i+1;
 end;
writeln ('y=',y,' i=',i,'x0=',x0);
end.

изуродовала как могла программу, но ничего не помогает

@Puporev · 24.09.2014, 19:52

Так хоть бы задание написали, а то фиг поймешь что Вы хотите получить.

@maynenyta · 24.09.2014, 19:58 **[ТС]**

Определить область сходимости метода Ньютона с точностью до к нулевому корню функции f(x)=x^3-a*x
Рекомендации: рассмотреть начальные приближения на сетке (x0)i=0.001i (i=0...n) для каждого найти решение соответствующего уравнения; первое наименьшее из начальных приближений, для которого численное решение ненулевое, будет задавать границу искомой области сходимости метода к нулевому решению

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.09.2014, 19:52	2
	Так хоть бы задание написали, а то фиг поймешь что Вы хотите получить. 0

@maynenyta 0 / 0 / 0 Регистрация: 24.09.2014 Сообщений: 5
	24.09.2014, 19:58 [ТС]	3
	Определить область сходимости метода Ньютона с точностью до к нулевому корню функции f(x)=x^3-a*x Рекомендации: рассмотреть начальные приближения на сетке (x0)i=0.001i (i=0...n) для каждого найти решение соответствующего уравнения; первое наименьшее из начальных приближений, для которого численное решение ненулевое, будет задавать границу искомой области сходимости метода к нулевому решению 0