Помощь - Поиск - Пользователи - Календарь
Полная версия: Метод Итерраций
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
geforse
Составить структурированную программу для нахождения корня уравнения ( pic.ipicture.ru/uploads/090927/CfJIsq1Rp8.png ) на отрезке [0-1] с абсолютной погрешностью методом Итерраций. В программе предусмотреть подсчёт и выдачу на печать количество итерраций необходимых для вычисления значения корня с заданной точностью.

Основываясь на данную статью получил вот это:


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




Может я формулы не так написал ? sad.gif
Client
удалил

Добавлено через 4 мин.
Эх совсем уже забыл это...
Так, Х же не надо вводить, надо ввести границы (они у тебя уже есть). На этом отрезке 1 корень, поэтому значения одинаковы
geforse
Цитата(Client @ 3.10.2009 19:22) *

удалил

Добавлено через 4 мин.
Эх совсем уже забыл это...
Так, Х же не надо вводить, надо ввести границы (они у тебя уже есть). На этом отрезке 1 корень, поэтому значения одинаковы


Нет Х 100% надо вводить...я просто в уравнении не уверен
Client
Если ты вводишь Х то что искать то надо? Твоя прога и должна найти значение Х, а ты его вводишь.
Зачем так усложнять код, когда можно в примере по ссылке просто заменить функцию на свою
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.