Написание формулы на паскале.

[spinogryz_ua]

пробовал уже как угодною. да все никак не выходит...

вот так она выглидит:


Помогите кто может

[whatever]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;
function fact(n:integer):real;
begin
  if n<0 then
    begin
      writeln('косяк');
      readln;
      halt
    end;
  result:=1;
  if n<>0 then
    while n<>0 do
      begin
        result:=result*n;
        dec(n);
      end;
end;

function func(i,x:integer):real;
begin
  result:=(power(-1,i+1)*power(x,i+1)*ln(i+x))/(fact(i+1)+exp(i+x));
end;

{function func(i,x:integer):real;
begin
  result:=power(-1,i+1);
  result:=result*power(x,i+1)*ln(i+x);
  result:=result/(fact(i+1)+exp(i+x));
end;}

var
  x,i:integer;
begin
  x:=5;
  i:=4;
  writeln(func(i,x):0:7);
  readln;
end.

Б*я, на паскале же... Сейчас посмотрю, там пару строчек поправить нужно.

Update: на паскале так:

program Project1;

uses
  crt,math;
function fact(n:integer):real;
begin
  if n<0 then
    begin
      writeln('Косяк');
      readln;
      halt
    end;
  fact:=1;
  if n>0 then
    while n<>0 do
      begin
        fact:=fact*n;
        dec(n);
      end;
end;
                                    {
function func(i,x:integer):real;
begin
  func=(power(-1,i+1)*power(x,i+1)*ln(i+x))/(fact(i+1)+exp(i+x));
end;                               }  //лень было искать ошибку

function func(i,x:integer):real;
begin
  func:=power(-1,i+1);
  func:=func*power(x,i+1)*ln(i+x);
  func:=func/(fact(i+1)+exp(i+x));
end;

var
  x,i:integer;
begin
  clrscr;
  x:=5;
  i:=4;
  writeln(func(i,x):0:7);
  readln;
end.

P.S. ты в скайп стучался? Если что еще раз

[spinogryz_ua]

пишет "модуль 'math' не найден" =(

[whatever]

Ты в чем пишешь? Если что скачай нормальный FPS, я на нем проверял.

[Базиля]

Убери подключение этого модуля.

[whatever]

Сообщение от Базиля

Убери подключение этого модуля.

А без него power разве работает? Можно, конечно, возвести в степень посредствам цикла while, но это, извените, ананизм.

[Базиля]

Ох. На код то я и не смотрел.
Паскаль функции power не знает. Так что прийдется использовать exp(x*ln(y)). Где X - степень числа, Y - основание.

[whatever]

exp(x*ln(y))

Изящно... То ли не знал, то ли забыл :D Ну да, если нет возможности подключить модуль, то можно самому функцию power написать.

[spinogryz_ua]

У меня вобщем то и вся проблема в том что бы просто перевести формулу в язык паскаля. а с кодами этими я вобще не знаком и кагбэ не полностью их понимаю...