факториал, сложный(для меня :) ) Опции

[kr3v3tkus]

Код

program lol;
var s:real;n,z,i:integer;  
begin  
writeln('vvesti n');  
readln(n);  
s:=0;  z:=1;  
for i:=1 to n do
  begin
  z:=z+(2i-1);
  s:=s+(-exp(i*ln(1))/z);
  end;  
writeln(s:2:2);
readln;
end.

косяк с факториалом ((( не знаю как сделать факториал для скобки

[GoodWind]

не знаю как сделать факториал для скобки

посчитай сначала значение выражения внутри скобок, потом от него факториал и ищи...

[kr3v3tkus]

а как в форе написать факториал? я процедурам так и не научился ещё

[volvo]

Да не нужно тебе факториал искать каждый раз... Подсчитывай произведения на каждом шаге и домножай их на (2*i - 2)*(2*i - 1)... Как это реализуется - смотри в теме "FAQ: Общие вопросы по математике" (Разложение в ряд)...

[GoodWind]

ф-ция вычисления факториала:

Код

function Factorial(a:integer):longint;
var i:integer;
     tmp:longint;
begin
tmp:=1;
for i:=1 to a do tmp:=tmp*i;
Factorial:=tmp;
end;

а факториал от скобки:

Код

factorial((2i-1));

[kr3v3tkus]

10x

[GoodWind]

10x

??? не понял

я тупой =)))) понял.
Пожалста, приходи еще =)

Сообщение отредактировано: GoodWind - 22.12.2005 2:08