Составить программу для вычисления значения функции

@Tsugumi · Регистрация: 21.12.2015

Студворк — интернет-сервис помощи студентам

Проверьте пожалуйста правильность программы.

Составить программу для вычисления значения функции y =arctg(x) с помощью разложения функции в степенной ряд:

arctg(x) = x – x³/3 + x⁵/5 – x⁷/7 + … + (–1)ⁿ x²ⁿ⁺¹/(2n+1) + ...

Pascal

var
eps:real;
x,r,k,y,c:real;
begin
writeln ('введите точность вычислений');
readln (eps);
 
repeat
writeln ('введите аргумент [-1;1]');
readln (x);
until ((x>=-1) and (x<=1));
k:=1;
y:=0;
r:=x;
while abs(r)>eps do
    begin 
      y:=y+r;
      k:=k+2;
      r:=-r*x*x/k;
    end;
    writeln ( 'y = ', y:5:3);
    
    c:= arctan(x);
    writeln (c);
end.

@Puporev · 08.04.2016, 10:50

Pascal

var eps:real;
    x,r,y:real;
    k:integer;
begin
repeat
write ('введите аргумент [-1;1] x=');
readln (x);
until abs(x)<=1;
repeat
write ('введите точность вычислений (0;1) eps=');
readln (eps);
until(eps>0)and(eps<1);
k:=1;
r:=x;
y:=r;
while abs(r)/(2*k-1)>eps do
 begin
  k:=k+1;
  r:=-r*x*x;
  y:=y+r/(2*k-1)
 end;
writeln('y=',y:0:4);
writeln('arctg(x)=',arctan(x):0:4);
end.

Опции темы