Материалы сайта
Это интересно
Лабораторные работы по вычислительной математике
Задание 1. Отделить корни уравнения графически и уточнить один из них методом итераций с точностью до 0,001. X=0,213310688. Количество шагов – 3. Задание 2. Отделить корни уравнения аналитически и уточнить один из них методом итераций с точностью до 0,001. X=-1,1246907. Количество шагов – 4. {определение корня методом итераций} uses crt; function fun(x:real):real; begin fun:=x*x*x-0.1*x*x+0.4*x+2; end; function fun1(x:real):real; begin fun1:=3*x*x-0.2*x+0.4; end; var u,x,xn,q:real; min,max:real; a,b,e:real; m:byte; begin clrscr; writeln('Введите промежуток где возможен корень'); write('a=');readln(a); write('b=');readln(b); write('Введите точность E=');readln(e); writeln('Введите m и M'); write('m=');readln(min); write('M=');readln(max); u:=2/(min+max); q:=(max-min)/(max+min); e:=abs(e*(1-q)/q); x:=a; m:=0; repeat xn:=x; x:=xn-u*fun(xn); m:=m+1; until abs(x-xn)