Рекурсия. Рекурсивные подпрограммы

[maks133]

Составить программу вычисления суммы:
-((x^1)/1!)+ ((x^3)/3!)- ((x^5)/5!)+ ((x^7)/7!)-...+(-1)^n*((x^n)/n!)
При увеличении n эта сумма приближается к значению sin(x).

нашел несколько программ:

Var
     x,j,n:longint;
     s:real;
  function  fact(i:longint):longint;
    begin
     if i>0 then fact:=i*fact(i-1)
     else fact:=1
    end;
      begin
       writeln('vvedite x and n');
       readln(x,n);
       s:=0;
       j:=1;
       while j<=n do
        begin
         s:=s+exp(j*ln(x))/fact(j);
         j:=j+2
       end;
  writeln('sin(x)=', s:5:2)
end.

uses crt;
var x,s,t:real;
    n,i:integer;
begin
clrscr;
write('x=');readln(x);
write('n=');readln(n);
s:=x;t:=1;
for i:=1 to n do
  begin
   t:=t*((-1)*x*x)/(2*i*(2*i+1));
   s:=s+t;
  end;
writeln('Приближенное значение  sinx=',s:10:8);
writeln('Аналитическое значение sinx=',sin(x):10:8);
readln
end.

[D1em]

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

Составить программу вычисления суммы:
-((x^1)/1!)+ ((x^3)/3!)- ((x^5)/5!)+ ((x^7)/7!)-...+(-1)^n*((x^n)/n!)
При увеличении n эта сумма приближается к значению sin(x).

нашел несколько программ:

Var
x,j,n:longint;
s:real;
function fact(i:longint):longint;
begin
if i>0 then fact:=i*fact(i-1)
else fact:=1
end;
begin
writeln('vvedite x and n');
readln(x,n);
s:=0;
j:=1;
while j<=n do
begin
s:=s+exp(j*ln(x))/fact(j);
j:=j+2
end;
writeln('sin(x)=', s:5:2)
end.



uses crt;
var x,s,t:real;
n,i:integer;
begin
clrscr;
write('x=');readln(x);
write('n=');readln(n);
s:=x;t:=1;
for i:=1 to n do
begin
t:=t*((-1)*x*x)/(2*i*(2*i+1));
s:=s+t;
end;
writeln('Приближенное значение sinx=',s:10:8);
writeln('Аналитическое значение sinx=',sin(x):10:8);
readln
end.

и что тебе мешает сменить одно уравнение на другое??

[Акоб]

разбеваем формулу на несколько частей
a = 1(отвечает за знак выражения)
b = x
c = 1
создаем цикл
i = 0
sum = 0
for i to n do
begin
sum := sum + (a*b)\c;
a := a * (-1);
b := b * x * x;
c := c * (c + i) * (c + i);
end