Вычислить значение функции. Возведение в степень Опции

[m3mfis]

Вот сижу тут не могу ни как решить одну задачу. Сказали сделать с помошью рекуррентных соотнощений, но я что-то запутался кароч получается билиберда привожу само условие задачи:


y=(x^4+x^7/2!+x^10/3!+x^13/4!)*5*a

Сообщение отредактировано: Altair - 18.12.2005 11:36

[m3mfis]

ну я вот тут на мучал немного :

Код

var
y,x,z:real;
i,k:longint;
function fackt(x:double): double;
begin
fackt:=x*(x-1)*(x-2);
{fackt:=sqrt(2*pi*x)*(exp(x*ln(x/exp(1))));}
end;
begin
i:=1;
k:=2;
read(x);
{inc(i,3);
inc(k);}
z:=exp((3*i+1)*ln(x))/fackt(k);
writeln(z:2:0);
end.

А дальше надо просто зациклить с инкриментом для k и i?