Вычисление арккосинуса рядом тейлора

[Z1000000]

Ошибка для отрицательного значения аргумента.

while ( abs(farccosstep) > e ) do

При значениях функции 0.9<|x|<1 функция действительно выдает недостаточно точные значения. Но программа здесь ни при чем. Это формула такая. Можешь проверить по ней все шаги.

[isla]

ммм, вообщем допилил я в 6 утра прогу эту. спасибо Z1000000, но лаба преследовала немножко другие цели. и мне показалось, что у вас множители неправильные. нужно было сделать реккурентной формулой.
вот рабочий код:

program lab3_3;
var
 x,xc,dx,ch,zn,e: real;
 farccosstep,farccos : real;
 n : Integer;
begin
write('Vvedite x,xc,dx ');
readln(x, xc,dx);
if (x > abs(1)) or (xc > abs(1)) or (dx>abs(1))then begin write('Nevernuy vvod '); exit end;
write('Vvedite tochnost e=');
readln(e);

writeln('|___x__||arccos(x)|');
while x<=xc do begin

n := 1; 
farccos := Pi/2 - x;
farccosstep := x;

 while ( abs(farccosstep) > e ) do
 begin
 ch := x*x * (2*n -1)*(2*n-1);
 zn:=  (2*n+1)* (2*n);
 farccosstep := (farccosstep*ch)/zn;
 
 inc(n);
  farccos := farccos - farccosstep;
 end;


writeln('| ',x:3:2,' |','| ',farccos:5:4,'  |');
x:=x+dx; 
end;

writeln('|______||_________|');
readln;

end.

Об особенностях ряда тейлора прочитаете в учебнике матанализа, про значения при 0.9<=x<=1

Побежал я в универ, пара в 8