Ошибка 201 Опции

[Buka]

Не могу понять почему не работает

Program integ;
const a=0; b=1; E=0.0001;
var R,S,Si:real;
x,h:real;
    n,i:integer;
    function F(x:real):real;
 
 
    begin
    F:=sin(x+x*x*x);
    end;
    Function Sim(n:integer):real;
    begin
    h:=abs(b-a)/n;
    S:=0;x:=a;
    for i:=1 to n do
    begin
    Si:=(f(x)+4*f(x+h/2)+f(x+h))*h/6;
    S:=S+Si;
    x:=x+h;
    end;
    Sim:=S;
    end;
    Begin
    n:=1;
    R:=abs(Sim(n)-Sim(n*2))/15;
    while(R>E)   do n:=2*n;
    writeln('S=',Sim(n):7:10);
    readln;
    end.

[IUnknown]

[telepathy on]

    while(R>E)   do n:=2*n;

Здесь проблема? Правильно делает, что вылетает: у тебя в цикле не изменяются значения R и E, условие всегда истинно. А вот n очень быстро переполняется, как только оно перестанет помещаться в отведенные 2 байта (ну, или какой там у тебя размер Integer) - тут же произойдет переполнение...
[/telepathy off]

[Buka]

Везде поменяла на extended, кроме i, и всё заработало! Спасибо за помощь)

Сообщение отредактировано: Buka - 9.11.2011 22:17