Метод простых итерации для нелинейных уравнений. Подскажите где ошибка

[DuHbka]

мне было задано разработать программы решение нелинейных уравнений методом простых итераций, у меня 3 уравнения есть с коэффициентами которые нада с клавы вводить... Программа работат но корни которые она находит мне кажется не правельные... подскажите пожалуйста где тут ошибка плиз. ( я сам думаю что у меня не правильная формула для нахождения корней -с(а*х+ в). помогите
текст программы:

program Rasskaz_iter;
uses CRT;
const E=0.0001;
var n:integer; x,a,b,c: real; ab:text; 
function f(x:real;k:integer):real;
begin
if k=1 then f:= -c/(a*x*x + b);
if k=2 then f:= c/(a*x*x*x - b);
if k=3 then f:= -c/(a*x - b);
end;
procedure mitercii(var X:real; t:integer);
var X1:real;
begin
repeat
X1:=X;
X:=f(X,t);
until abs(x-x1)<E;
end;
begin
clrscr;
writeln ('‘ введите коэффициенты’');
read (a);
read (b);
read (c);
writeln('Выберете уравнение');
writeln('1. aX^3 + bX + c = 0 ');
writeln('2. aX^4 - bX - c =0 ');
writeln('3. ax^2 – bx + c =0 ');
write('n = '); 
readln(n);
write('Введем начальное приближение X = ');
readln(X);
mitercii(X,n);
writeln('Корень уравнения X = ',X);
assign(ab,'Rasskazov_iter.TXT');
rewrite(ab);
writeln(ab,'Номер уравнения ',n);
writeln(ab,'Корень уравнения X =',x);
close(ab);
readln;
end.

[__STDC__]

Что значит кажется? В уравнение корни подставьте.. В коде разбираться невозможно, хоть бы в теги запихнули (такая кнопочка с решеткой)
Насколько я вижу, при коэффициентах 1 2 3 первое уравнение решает правильно... получается -0.99, а корень уравнения x^3+2x+3 это -1... вы погрешность задайте скажем 1.0E-17... и будет как раз -1..

[DuHbka]

Сообщение от __STDC__

Что значит кажется? В уравнение корни подставьте.. В коде разбираться невозможно, хоть бы в теги запихнули (такая кнопочка с решеткой)
Насколько я вижу, при коэффициентах 1 2 3 первое уравнение решает правильно... получается -0.99, а корень уравнения x^3+2x+3 это -1...

а если ввести другие коэффициенты он решать его не будет, мне интересно какие коэффициенты можно вводить а какие нет, тесть области их определний... если не трудно... или у меня все таки не правильная формула(

[__STDC__]

ну какие например, другие? Между прочим, итерационные методы не являются безусловно сходящимися...

[DuHbka]

Сообщение от __STDC__

ну какие например, другие? Между прочим, итерационные методы не являются безусловно сходящимися...

ввожу рандомно 3 9 7 для 1ого уравнения корень -6.7. он не является корнем если его подставить... (((
для 3его ввожу 4 10 1 корень выдает 1.04 но он тоже не подходит(((
мне кто то говорил там зависимость какая то должна быть типо а+б больше с или а+с больше бблин... попадалово.. незнаю чо делать

[__STDC__]

Сообщение от DuHbka

ввожу рандомно 3 9 7 для 1ого уравнения корень -6.7. он не является корнем если его подставить... (((
для 3его ввожу 4 10 1 корень выдает 1.04 но он тоже не подходит(((
мне кто то говорил там зависимость какая то должна быть типо а+б больше с или а+с больше бблин... попадалово.. незнаю чо делать

вы не совсем правы.. не -6.7, а -0.67, что как раз является корнем (в пределах погрешности). Если вы не знакомы с E-формой записи, предлагаю оформить вывод результата как

writeln('Корень уравнения X = ',X:0:3);

Также советую в конце программы вычислить ф-цию f подставив значение полученное.. тогда можно убедить препода, что прога работает как надо (когда у вас в выводе будет число порядка погрешности)

[DuHbka]

Сообщение от __STDC__

вы не совсем правы.. не -6.7, а -0.67, что как раз является корнем (в пределах погрешности). Если вы не знакомы с E-формой записи, предлагаю оформить вывод результата как

writeln(ab,'Корень уравнения X =',x:0:3);

блииин а у меня выводиться -6.7519... и тд а не как у вас -0.67

[__STDC__]

Сообщение от DuHbka

блииин а у меня выводиться -6.7519... и тд а не как у вас -0.67

выше исправьте.. не где вывод в файл, я просто ошибся, не ту строку скопировал.. в своем посте исправил уже

[DuHbka]

Сообщение от __STDC__

выше исправьте.. не где вывод в файл, я просто ошибся, не ту строку скопировал.. в своем посте исправил уже

ой спасибо вам большое вот где ошибка, а значит можно вводить любые коэффициенты сама программа расчет а меня правильно сделана?

[__STDC__]

Сообщение от DuHbka

ой спасибо вам большое вот где ошибка, а значит можно вводить любые коэффициенты сама программа расчет а меня правильно сделана?

это не ошибка.. просто программа выводила данные в E-формате... с плавающей точкой.. Повторюсь, итерационные методы не всегда сходятся.. насколько я проверял - все верно... Так что думаю переживать не стоит) Но проверочку добавить было бы здорово