Рекурсия. Вычислить рекурсивно функцию вида y=cos(x)+cos(x^2)+cos(x^3)+...+cos( x^n).

[мария71]

У меня задание вычислить рекурсивно функцию вида y=cos(x)+cos(x^2)+cos(x^3)+...+cos( x^n).
Но мне кажется что работает она неправильно и я не знаю что надо исправить...посмотрите пожалуйста и скажите что не так.

Program ret;
const
 max=10;
var
stepen,argyment:integer;
t,y:real;
{---------------------------------------------------}
 
Function Vvod:integer;
var
 st:integer;
 s:string;
 er:integer;
begin
repeat
  write('Введите максимальную степень:');
  readln(s);
  val(s,st,er);
  if er<>0 then
    writeln('ошибка!введите число')
  else
    if st>max then
      writeln('ошибка!значение должно быть < max')
  else
    If st<0 then
      writeln('ошибка!значение должно быть  >0');
until(er=0) or (st<max) or (st>0);
Vvod:=st;
end;
{---------------------------------------------------}
Function Arg:integer;
var
 x:integer;
 er:integer;
 s:string;
begin
repeat
  write('введите значение агрумента:');
  readln(s);
  val(s,x,er);
  if er<>0 then
    writeln('ошибка!Введите число');
until(er=0);
Arg:=x;
end;
{-----------------------------------------------}
Function Schet(a,b:integer):real;
begin
t:=0;
  if a=0 then
    Schet:=1
  else
     Schet:=b*Schet(a-1,b);
 
end;
{---------------------------------------------------}
 
begin
 
stepen:=Vvod;
argyment:=Arg;
t:=t+cos(Schet(stepen,argyment));
writeln('Значение функции',t:3:3);
end.

[spein]

for i:=1 to 5 do
sum:=sum+cos(exp(i*ln(x)));

Сложно представляю себе рекурсивную реализацию.

[мария71]

мне только непонятно зачем нужна экспанента и логарифм

[spein]

Это все чистая математика. Изучайте:
2^5 = exp(5 * ln(2));

[Step_UA]

 Function Schet(z,x:real;n:integer):real;
 begin
 if n=1 then
  Schet:=cos(z)
 else
  Schet:=cos(z)*Schet(z*x,x,n-1);
 end;
...
// вывод результата
writeln('Значение функции',Schet(argyment,argyment,stepen):3:3);