Факториал

@Валентин26 · Регистрация: 13.03.2010

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

Скажите как мне записать (3n)! в паскале так, что будет находить сумму ряда a=n!/(3n)!????

@Puporev · 04.04.2010, 17:47

Примерно так.

Pascal

var n,i:integer;
    s,t:real;
begin   
s:=1;
t:=1;
for i:=1 to n do
 begin
  t:=t*i/(3*i);
  s:=s+1;
 end;

@Валентин26 · 04.04.2010, 17:51 **[ТС]**

Но я предпологаю что (3n)! Это элемнт умноженый на 3. если например мы подставим вместо n 3, то мі получим отношение (1*2*3)/(1*2*3*...*8*9)....

@Puporev · 04.04.2010, 19:17

Тогда я не понял, будет так, первые числа сокращаются, останется

Pascal

var n,i:integer;
    s,t:real;
begin   
s:=1;
t:=1;
for i:=n+1 to 3*n do
 begin
  t:=t/i;
  s:=s+1;
 end;

@Валентин26 · 04.04.2010, 20:21 **[ТС]**

А как тоогда написать само выражение n!/(3n)!

@Puporev · 05.04.2010, 10:32

Валентин26, А зачем тебе его писать? Тебе его вычислять нужно, а вычисляется это выражение не по формуле типа y:=sin(x);, а в цикле.

Добавлено через 6 минут
Типа write('Введите n=');
readln(n);
writeln('Cумма ряда с общим членом An=n!/(3n)! будет:');
пишешь программу вычисления этой суммы.
Кстати а какое условие подсчета суммы? Задается точность или количество слагаемых?

Добавлено через 34 минуты

Pascal

uses crt;
var n,i,j:integer;
    s,t,e:real;
begin
clrscr;
{положим задано число членов ряда и ряд 1..n,
если ряд 0..n, то начальная сумма=1}
n:=10;
s:=0;
for i:=1 to n do
 begin
  t:=1;
  for j:=i+1 to 3*i do
  t:=t/j;{считаем очередной член}
  s:=s+t;{суммируем}
 end;
writeln('S10=',s:0:10);
{положим задана точность вычислений}
e:=0.0000001;
s:=0;
t:=1;
i:=1;
while t>e do{пока очередной член больше точности}
 begin
  t:=1;
  for j:=i+1 to 3*i do
  t:=t/j;{считаем его}
  s:=s+t;{суммируем}
  i:=i+1;{увеличиваем счетчик}
 end;
writeln('Se =',s:0:10);
readln
end.

@Валентин26 · 05.04.2010, 13:15 **[ТС]**

Задаёться точность выраженная через е=0.001.)

@Puporev · 05.04.2010, 13:19

Валентин26, Ну и в чем проблема? Я тебе оба варианта написал. А точность очень маленькая, на втором шаге будет достигнута.

@Валентин26 · 05.04.2010, 13:32 **[ТС]**

огромное спасибо) Никаких проблем нет)) Я тчность в последнем цыкле поменял и всё) Спасибо)

@Валентин26 0 / 0 / 0 Регистрация: 13.03.2010 Сообщений: 35
		1
	Факториал 04.04.2010, 17:08. Показов 852. Ответов 8 Метки нет (Все метки) Скажите как мне записать (3n)! в паскале так, что будет находить сумму ряда a=n!/(3n)!???? 0

@Валентин26 0 / 0 / 0 Регистрация: 13.03.2010 Сообщений: 35
	04.04.2010, 17:51 [ТС]	3
	Но я предпологаю что (3n)! Это элемнт умноженый на 3. если например мы подставим вместо n 3, то мі получим отношение (123)/(123...8*9).... 0

@Валентин26 0 / 0 / 0 Регистрация: 13.03.2010 Сообщений: 35
	04.04.2010, 20:21 [ТС]	5
	А как тоогда написать само выражение n!/(3n)! 0

@Валентин26 0 / 0 / 0 Регистрация: 13.03.2010 Сообщений: 35
	05.04.2010, 13:15 [ТС]	7
	Задаёться точность выраженная через е=0.001.) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.04.2010, 13:19	8
	Валентин26, Ну и в чем проблема? Я тебе оба варианта написал. А точность очень маленькая, на втором шаге будет достигнута. 1

@Валентин26 0 / 0 / 0 Регистрация: 13.03.2010 Сообщений: 35
	05.04.2010, 13:32 [ТС]	9
	огромное спасибо) Никаких проблем нет)) Я тчность в последнем цыкле поменял и всё) Спасибо) 0