Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Метод простых итераций
Метод простых итераций
Здравствуйте!
дано уравнение 0=f(x)=cos(4 x) −x+5, привести его к виду х=... найти корни с точностью до 4 верных знаков методом простых итераций.
Code
program ITERAT;
uses crt;

const max_iter=100; {maksimal'noe chislo iteraciy}

var

i: integer;
x,x0,eps,M: real;

function F(x:real):real; {funkciya}

begin

F:= cos (4*x)/5;
end;

begin {osnovnaya programma}
clrscr;
write('Vvedite priblijennoe znachenie x='); readln(x);
write('Vvedite tochnost vichisleniy eps='); readln(eps);

i:=0;
repeat
x0:=x;
x:=x0+F(x0);
inc(i);
writeln('---Iteraciya  ' , i:3,'  x=',x);
writeln('F(x)=' , F(x),' tochnost=' , abs(x-x0));
until (abs(x-x0)<=eps) or (i>max_iter);

if (abs(x-x0)<=eps) then writeln ('Otvet: X=' , x)
else writeln('OTVET NE NAYDEN!!! za ',max_iter:0,' shagov iteraciya ne soshlas');

end.

Когда ввожу приближенное значение х=1
Eps=0.0001
меня выбрасываемый в саму программу
1 | Автор: Sergey_ChernoV | 2011-12-13, 02:09 | Изменено: Sergey_ChernoV - Ср, 2011-12-14, 21:25   |  Репутация: [ + 0 ]
1 | Автор: Sergey_ChernoV | 2011-12-13, 02:09 | Изменено: Sergey_ChernoV - Ср, 2011-12-14, 21:25   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Метод простых итераций
Страница 1 из 11
Поиск: