Найти сумму с точностью до Eps

17.05.2012, 16:22. **Показов** 826. **Ответов** 2

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

Была такая задача: найти сумму с точностью до Eps=10^-4 a_n=n!/(2ⁿ)!
Вот мое решение. Где же тут ошибка?

Pascal

program Ep;
uses crt;
var eps,a,s:real; f:longint;
n:integer;
 
[B]Function St( x: integer):integer;
var i: integer;
begin
x:=1;
for i:=1 to n do
x:=x*i;
St:=x;
end;
Function Stfac( y:integer):integer;
var i:integer;
begin
y:=2;
 for i:=1 to n do
 y:=y*2;
 Stfac:=y;
 end;
 begin
 clrscr;
Eps:=1E-4;
 S:=0;
 a:=1;
 n:=1;
 while a>eps  do
 begin
 s:=s+a;
 n:=n+1;
 f:=Stfac(n);
 a:=St(n)/St(f);
 end;
 Writeln('s=',s);
 readln;
  end.[/B]

@zhan313 · 17.05.2012, 16:58

Если не ошибаюсь, то переполнение. При каком N это происходит ?
12!=479001600

17.05.2012, 17:09

насколько я понимаю,n должен быть таким, чтобы а было больше eps. Его мы ведь не вводим. Переполнение... нужно на longint исправить? все тоже, ошибка не исчезает

@zhan313 85 / 85 / 38 Регистрация: 09.12.2011 Сообщений: 174
	17.05.2012, 16:58	2
	Если не ошибаюсь, то переполнение. При каком N это происходит ? 12!=479001600 0

Анастасия222
	17.05.2012, 17:09	3
	насколько я понимаю,n должен быть таким, чтобы а было больше eps. Его мы ведь не вводим. Переполнение... нужно на longint исправить? все тоже, ошибка не исчезает

Опции темы