[cash]

при любом j у меня получается 0 ((( печально

Код:

var s,e: extended;
    j : integer;
begin
readln(j);
s:=(exp((j+1)*(-ln(1))))/(j*(j+1)*(j+2));
write (s:0:0);
readln;
end.

Оригинал формулы
http://i001.radikal.ru/1104/6e/2a2c645ed8b8.jpg

[cash]

вот так корректней

Код:

var s: real;
    j : integer;
begin
readln(j);
s:=(exp((j+1)*(-ln(1))))/(j*(j+1)*(j+2));
write (s:0:0);
readln;
end.

Админ: Пользуемся тегами, иначе последуют санкции!

[cash]

программа в консольном приложение (если это как то вдруг влияет)

[Assistant]

судя по формуле:

Код:

uses Math;
........
  Power((-1),i+1) / (i * (i+1) * (i + 2))

[cash]

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

Код:

uses Math;
........
  Power((-1),i+1) / (i * (i+1) * (i + 2))

У меня не работает Power, да тем более мы таких слов еще не проходили, не пойдет (((

[Assistant]

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

[cash]

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

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

Мне так нельзя делать, мы Power не проходили, у меня её не примут такую
нужно через формулу exp(a*ln(x)); в степень возводить

[Assistant]

дык напишите свою собственную функцию возведения в степень, кто не даёт? или русское образование не позволяет самовольничать?

P.S.: или почитайте тут