var x,num,denom,term,sum:real;
begin
readln(x);
elem:=x;
sum:=x;
num:=x;
denom:=1;
i:=1;
repeat
num:=num*(2*i+1)*x*x;
denom:=denom*2*i;
elem:=elem*num*/denom/(2*i+1);
sum:=sum+elem;
until elem<1e-6;
writeln('arcsin(',x,')=',sum);
end;
Циклический вычислительный процесс.
Люди помоги сделать в Pascal
Сдесь надо зделать как-то через три цикла
Цитата: Asu2007
Сдесь надо зделать как-то через три цикла
и откуда это следует и почему? три цикла вроде там и не нужны вовсе.
что-то там не то..... три цикла, конечно не надо, но числитель там не такой, да и вычисление следуйщего елемента запутаное какое-то
Код:
......
sum:=x;
num:=x;
denom:=1;
i:=1;
repeat
num:=num*(2*i-1)*x*x;
denom:=denom*(2*i)*(2*i+1);
elem:=num/denom;
sum:=sum+elem;
inc(i);
until elem<1e-6;
.......
sum:=x;
num:=x;
denom:=1;
i:=1;
repeat
num:=num*(2*i-1)*x*x;
denom:=denom*(2*i)*(2*i+1);
elem:=num/denom;
sum:=sum+elem;
inc(i);
until elem<1e-6;
.......