Переполнение при вычислении суммы ряда

@Artem_24 · Регистрация: 22.03.2013

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

В Pascal ABC всё работает, а в turbo выскакивает переполнение. Можете объяснить, почему?
Заранее спасибо!

Pascal

program lab9;
uses crt;
var
i,n:integer;
an,nf,sum,VR:real;
begin
clrscr;
n:=0;
an:=1;
while an>0.00001 do
 begin
  n:=n+1;
  nf:=1;
  for i:=1 to n do
   begin
    nf:=nf*i;
    end;
   begin
    VR:=(EXP(n*ln(10)));
    end;
  an:=VR/nf;
  writeln('an',i,'=',an:10:8);
  sum:=sum+an;
 end;
writeln('sum=',sum:10:8);
readln;
end.

@Puporev · 30.05.2013, 10:38

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

а в turbo выскакивает переполнение

Попробуйте сменить тип real на тип double, ибо real в АВС=double в Турбо

@Artem_24 · 30.05.2013, 15:51 **[ТС]**

"Для компиляции нужно быть в режиме 8087", дописал {$N+} и выскочило деление на ноль

@Puporev · 30.05.2013, 16:25

Сделал тоже самое

Pascal

program lab9;
{$N+}
uses crt;
var
i,n:integer;
an,nf,sum,VR:double;
begin

и никакого деления на 0

@Artem_24 · 30.05.2013, 17:04 **[ТС]**

через досбокс заработала, спасибо!

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.05.2013, 10:38	2
	Сообщение от Artem_24 а в turbo выскакивает переполнение Попробуйте сменить тип real на тип double, ибо real в АВС=double в Турбо 1

@Artem_24 0 / 0 / 0 Регистрация: 22.03.2013 Сообщений: 8
	30.05.2013, 15:51 [ТС]	3
	"Для компиляции нужно быть в режиме 8087", дописал {$N+} и выскочило деление на ноль 0

@Artem_24 0 / 0 / 0 Регистрация: 22.03.2013 Сообщений: 8
	30.05.2013, 17:04 [ТС]	5
	через досбокс заработала, спасибо! 0