Турбо Паскаль. Рекурсии

[Светик123]

Турбо Паскаль. Рекурсии

задание: Вычислить рекурсивно функцию вида
у=COS(X)+COS(X^2)+COS(X^3)+...+COS(X^N)

текст программы:
program rekursia;
uses crt;
function fact(n:integer):integer;
begin
if n=0 then fact:=1
else
fact:=n*fact(n-1);
end;
var n:integer;
y,x:real;
begin
clrscr;
write ('n = '); readln ;
write ('x = '); readln (x);
fact;
y:=exp(fact*ln(cos(x)));
write('y = ',y:3:5);
readln;
end.

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

 

[Vladimir_S]

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

Подозреваю, что это потому, что выложенная программа к Вашему заданию не имеет ровно никакого отношения.

 

[Светик123]

а как тогда нужно сделать?

 

[Vladimir_S]

а как тогда нужно сделать?

Если бы я знал... Второй час голову ломаю - ну никак не построить рекурсивную функцию! Туговато у меня с ними...

 

[Gruvi]

Может тебе это чем-то поможет.
вот задание:

Дано натуральное число N. Вычислить:
1-1/2+1/4-1/8+...+(-1)^n*(1/2*n)
используя рекурсивную функцию.

Явно видно, что это геометрическая прогрессия
b1 = 1
q = -1/2
Sn = b1(q^n - 1) / (q - 1)

const b1=1; q=(-0.5);
var s: real;
var n: integer;
function Recurs(d: integer; p: real): real;
begin
if d=n then begin
writeln(s);
readln;
halt;
end;
s:=p+s*q;
Recurs(d+1,p)
end;
begin
readln;
s:=b1;
writeln(Recurs(1,1));
end.

Вот только не помню, правильно ли она решает.