Вычислить сумму слагаемых при некоторых х и у

[Julila]

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

arcsin(x)=x + 1/2 * x^3/3 +1*3/2*4 * x^5/5+1*3*5 /2*4*6 * x^7/7



пример программы

 	
PROGRAM LAB3_3;
VAR I,N:INTEGER;
S1,S2,S3,SL,CH,ZN,ZNAK,AI,X,EPS,K2,K3,P1,P2,P3:REAL;
BEGIN
WRITE('X=');
READLN(X);
WRITE('EPS=');
READLN(EPS);
WRITELN('N=');
READLN(N);
S1:=LN(1+X);
S1:=0;
CH:=X;
ZN:=1;
ZNAK:=1;
FOR I:=1 TO N DO
BEGIN
AI:=CH/ZN*ZNAK;
S1:=S1+AI;
CH:=CH*X;
ZN:=ZN*I;
ZNAK:=-ZNAK;
END;
K2:=0;
S2:=0;
CH:=X;
ZN:=1;
ZNAK:=1;
AI:=CH/ZN*ZNAK;
I:=1;
WHILE ABS(AI)>EPS DO
BEGIN
S2:=S2+AI;
K2:=K2+1;
CH:=CH*X;

ZN:=ZN*I;
ZNAK:=-ZNAK;
I:=I+1;
END;
K3:=0;
S3:=0;
CH:=X;
ZN:=1;
ZNAK:=1;
AI:=CH/ZN*ZNAK;
I:=1;
WHILE ABS(AI)>EPS DO
BEGIN
S3:=S3+AI;
K3:=K3+1;
CH:=CH*X;
ZN:=ZN*I;
ZNAK:=-ZNAK;
AI:=CH/ZN*ZNAK;
I:=I+1;
END;
P1:=ABS(SL-S1);
P2:=ABS(SL-S2);
P3:=ABS(SL-S3);
WRITELN('SL=',SL:5:2,' S1=',S1:5:2,' P1=',P1:5:2);
WRITELN('SL=',SL:5:2,' S2=',S2:5:2,' P2=',P2:5:2,' K2=',K2:5:2);
WRITELN('SL=',SL:5:2,' S3=',S3:5:2,' P3=',P3:5:2,' K3=',K3:5:2);
READLN;
END.

формула примера
1/?(1+х)?^3 =1 – (2*3)/2 *х + (3*4)/2 * х^2 – (4*5)/2*х^3 +….(R=1)

еще раз спасибо за внимание

[Stilet]

А так?:http://www.programmersforum.ru/showthread.php?t=64723

[Julila]

ой. спасибо. я искала эту ссылку.
я ее видела раньше.
спасибо!!!!

[Julila]

там вообще не то. но формула моя.

[Valio]

Там всё то.... в первом посте ерунда какаято.

[Julila]

ну мне просто надо именно так как в примере. по этой программе надо будет делать другие. без процедур и фунцкий

[k0tone]

без процедур и фунцкий

Вот тебе без процедур и функций:

program arcsin;
uses crt;
var x,xr,y,fx,e,z:real;
    i,j:integer;
begin
clrscr;

repeat
write('Vvedite x=');
readln(x);
until abs(x)<=1;

write('Vvedite tochnost e=');
readln(e);

 fx:=0;
 z:=1;
 y:=x;
 i:=0;
 j:=1;

while abs(y/(2*i+1))>=e do
  begin
    fx:=fx+z*y/(2*i+1);
    z:=z*(2*j-1)/(2*j);
    y:=y*x*x;
    i:=i+1;
    j:=j+1;
  end;

writeln('znachenie arcsin(',x:1:2,')=',fx:3:6);
readln;
end.

P.S. |x|<=1, то есть икс вводишь от -1 до 1.

[Julila]

спасибо)))

[Julila]

а как можно преобразовать пример под мое условие?