как исправить ошибку 205

[AndrewPl]

program nyton2;
uses crt;
var x,e:real;k:integer;x0:real;
begin
clrscr;
x:=0.1;
e:=0.001;
k:=0;
while abs(x0-x)>e do
begin
x0:=x;
x:=2*x0+4*cos(x0); - в этом рядке..................
k:=k+1;
end;
writeln('k=',k,' x=',x:2:4);
readln;
end.

[Человек Панда]

Опишите точное вашу ошибку.И что за модуль crt?Что такое clrscr?.

[vovk]

Сообщение от Человек Панда

Опишите точное вашу ошибку.И что за модуль crt?Что такое clrscr?.

это паскаль clrscr это очистка экрана

на счёт ошибки http://programmersforum.ru/showthread.php?t=84264

[AndrewPl]

Сообщение от vovk

это паскаль clrscr это очистка экрана

на счёт ошибки http://programmersforum.ru/showthread.php?t=84264

теперь ошибка 116((

[AndrewPl]

я вот так подписал,выдаёт 116-ю теперь ошибку(

program nyton2;
uses crt;
var x:extended;e:real;k:integer;x0:real;
begin
clrscr;
x:=0.1;
e:=0.001;
k:=0; 
while abs(x0-x)>e do
 begin
 x0:=x;
 x:=2*x0+4*cos(x0);
 k:=k+1;
 end;
writeln('k=',k,'  x=',x:2:4);
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

ряд, который Вы пытаетесь подсчитать - расходящийся. (пройдесь в отладке, или выведите первые N членов последовательности - убедитесь в этом сами).
Поэтому Вы достигаете пределов, которые могут содержаться в X, X0, K и получаете ошибку переполнения..