Правила форума
Прочтите прежде чем задавать вопрос!
Основываясь на данную статью получил вот это:
program Z2N17;
uses graph,crt;
var
a,b,x1,x,f1,f2,e:real;
i,n:integer;
function ArcSin ( X : Real ): Real;
begin
if X = 1.0 then
ArcSin := Pi / 2.0
else
ArcSin := ArcTan ( X / Sqrt ( 1 - X * X ) );
end;
function f(tmpX:real):real;
begin
f:=sqrt(1*tmpX*tmpX)-ArcSin(tmpX);
end;
{ ЭТО БЛОК ДЛЯ ПРОВЕРКИ ВВЕДЁННОГО ЗНАЧЕНИЯ НА ОТРЕЗКЕ [0-1] }
begin
clrscr;
repeat
writeln('Enter X');
read(b);
clrscr;
until ((b > 0) and (b < 1));
a:=0;
x1:=a;
f1:=f(x1);
e:=0.001; {Eps}
n:=round((b-a)/e);
writeln('Method iterazii');
for i:=1 to n do begin
x:=x1+(b-a)/n;
f2:=f(x);
if f1*f2<=0 then begin
writeln('Done. X = ',(X+x1)/2:6:4);
writeln('Kolichectvo iterasii = ',i);
end;
x1:=x;
f1:=f2;
end;
readln(x);
end.
Но проблема в том, что программа при заданных значениях от 0 до 1 выдаёт одинаковый ответ =(
Пример:
Ввод х=1.1
Результат:
Х=0.0005
Количество итераций = 1
Ввод х=1.7
Результат:
Х=0.0005
Количество итераций = 1
Может я формулы не так написал ?
