-2,4 E-05
16
0,909867904
0,827859602
0,753242881
0,909879902
1,28 E-05
17
0,909879902
0,827881437
0,753272681
0,90987351
-6,8 E-06
18
0,90987351
0,827869803
0,753256804
0,909876916
3,63 E-06
19
0,909876916
0,827876002
0,753265263
0,909875101
-1,9 E-06
20
0,909875101
0,827872699
0,753260756
0,909876068
1,03 E-06
Графік функції y = х 3 + 0,1 х 2 + 0,4 х - 1,2
В
br/>
В
3. Блок схема програми
В
4. Програма мовою PASCAL 7.0
program metod_kasatel; {Назва програми}
uses Crt ; {Модуль дисплейних функцій}
var {Блок описів змінних}
xn, xn1, a, b, c, mx, y0, x0 : Real ;
function f1 (x1: Real ): Real ; {Основна функція}
begin
f1: = x1 * x1 * x1 * (-0.5) -0.05 * x1 * x1 +0.8 * x1 +0.6;
end ;
function f2 (x4: Real): Real ; {Похідна від основної функції}
begin
f2: = x4 * x4 * x4 +0.5 * x4 * x4 +0.1 * x4 * x4 +0.4 * x4-1.2;
end ;
begin {Початок основного тіла програми}
Cl rscr ; {Очищення екрану перед виконанням програми}
a: = 0; b: = 1; c: = 0.00000001;
Wr iteln ('Від A =', a, 'до B =', b); {Виведення на екран}
W riteln ('Похибка з =', c);
Readln ; {Очікування натискання клавіші Enter}
xn: = b;
xn1: = f1 (xn);
y0: = f2 (b);
while ABS (y0)> c do {Перевірка по точності обчислення кореня}
begin ...
