прогрессия, хелп! Опции

[Andrej]

arctg(X)= x-x^3/3+x^5/5-x^7/7+x^9/x+...... xe [-1;1]
правелно ли я делаю ? или лутше через массив?

Код

Program first;
uses crt;
var xn,E,summa,p,x2:real;
    i:integer;
begin
clrscr;
repeat
writeln ('введите xn [-1..1]');
readln(xn);
until (xn>=(-1)) and (xn<=1);
write('E=');
read(E);
x2:=xn*xn;
summa:=xn;
p:=xn;
i:=3;
repeat
p:=-p*x2/(i*(i-2));
summa:=summa+p;
i:=i+2;
until p<E;
writeln('p=',p:5:5);
writeln('summa=',summa:5:5);
readln;
readln;
end.

так как мне надо вводить n тоесть n=1 =x
n=2 = x+x^3/3
n=3 = x+x^3/3+x^5/5

[Andrej]

ну кажись решил....посчитал на бумаге вроде всио оки

Код

Program first;
uses crt;
var xn,p,E,summa3,summa2,next,x2:real;
    i,n:integer;
begin
clrscr;
repeat
writeln ('iveskyte xn [-1..1]');
readln(xn);
until (xn>=(-1)) and (xn<=1);
repeat
writeln ('iveskyte E=');
readln(E);
until E<>0;
repeat
writeln ('iveskyte n=');
readln(n);
until n<>0;
x2:=xn*xn;
summa2:=xn;
next:=xn;
i:=3;
for n:=1 to n do begin
repeat
next:=next*x2;
p:=next/i;
summa2:=summa2+p;
i:=i+2;
until abs(p)<E;
writeln('p=',p:5:10);
writeln('summa2=',summa2:5:5);
end;
readln;
end.

еще бы зделать чтобы все n непоказывало , а толко последний

Сообщение отредактировано: Andrej - 16.11.2006 2:36