Паскаль.Сумма ряда.

[Виндовс 7]

Не могу обсчитать сумму ряда от 1 до бесконечности.ряд:(2*n)!/n!.Вычиление прекратить когда числитель станет в М та больше раз больше знаменателя.(я так понял М нужно вводить).

[Виндовс 7]

Благодарю тех кто хотя бы посмотрел мою тему.Но помощь уже не нужна.Сам нашел решение.Вот оно.

uses Crt;
label 99;
var n,i,k,g:integer;
f1,f2:longint;
V,M,a:real;
begin
write('M=');
readln(M);
f1:=1;
f2:=1;
n:=0;
k:=1;
V:=0;
g:=1;
while(a<M)do
begin
for i:=1 to k do
begin
f1:=f1*(n+1)*(n+2);
f2:=f2*g;
a:=(f1/f2);
if(a>=M)then goto 99
else
V:=V+a;
n:=n+2;
k:=k+1;
g:=g+1;
end;
end;
99:writeln('V=',V);
end.

[TinMan]

Виндовс 7, ты молодец, что сам сделал - это даже лучше, чем тебе сделали бы.
Я тут немного подправил твой код.. Если есть желание, посмотри.

var n:integer;
  V,M,a:real;
begin
  write('M = ');
  readln(M);
  a:= 1;
  n:= 1;
  V:= 0;
  while a<M do begin
    a:= a*2*(2*n-1);
    V:= V+a;
    inc(n);
  end;
  writeln('V = ',V:10:0);
end.

Небольшие замечания..
1. Зачем было делать цикл while с условием, если все равно потом выходишь по goto?
2. Цикл for у тебя очень странный.. Нельзя изменять границы цикла for внутри цикла.
3. Нужно по возможности избегать использования оператора goto и меток. Рекомендую тебе зайти в Опции и снять галочку с "можно использовать goto". Так ты научишься правильнее и быстрее.
4. Считать отдельно факториалы в числителе и знаменателе (да еще и целые) - нерационально,так как они очень быстро растут. Посмотри, как сделал я.
5. Зачем отдельно делать счетчики для числителя и знаменателя? В формуле же это одно число.
6. Ну и последнее - по условию.. Сумма данного ряда _до_бесконечности_ не существует (иначе говоря, ряд расходится). Некорректно говорить так - может, потому и не отвечали тебе. И еще потому, что надо свои наработки выкладывать..

Это коротко. Если появились вопросы - говори. Успехов тебе.

[Виндовс 7]

TinMan спасибо.Но есть некоторые но:
1)goto я использовал, чтоб программа мне ещё раз не выводила сумму;
2)если в твоей проге ввести M=2, то сумма(V)=2, а должна быть V=0.
Когда n=1: (2*n)!=2;
n!=1;
a=2;
a<M(условие строгое);
3) на счёт факториалов, если бы я сделал так f1:=f1*(n+1)*(n+2);
f2:=f2*(n);
то f2 считалось бы неправильно(n:=n+2);
Ну и заключительные слова:
Прошу прощения за корявое условие задачи и в будущем свои наработки буду выкладывать.

[kuy]

(ошиюся, не в ту тему написал)

[Виндовс 7]

TinMan.И ещё если тебе не сложно посмотри мою тему Циклы.Исправьте ошибки.