Код программы

Лабораторная работа №6

По курсу «Информатика»

Вариант 4

Выполнил: ст.гр. БВВ-14-01 Бабенко Д.С.

Проверил Виноградов Д.А.

Уфа

Численное решение алгебраических и трансцендентных уравнений

График функции

Блок-схема уточнения корней методом половинного деления

 

 

 

Блок-схема уточнения корней методом хорд и касательных

Код программы

1) program pr6;
vara, b, x, eps: real;
function f(x: real): real;
begin
f: = 2*exp(x)-5*x;
end;
begin
writeln('задайте интервал поиска корня');
write('левая граница а='); readln(a);
write('левая граница b='); readln(b);
write('требуемая погрешность вычисления eps='); readln(eps);
repeat
x: =(a+b)/2;
if f(a)*f(b)< 0 then b: =x else a: =x;
until (b-a)< =eps;
x: =(a+b)/2;
writeln('результат вычисления корней методом половинного деления');
writeln('x=', x: 2: 5);
end.

2) program pr6;
var a, b, x, eps: real;
functionfx (x: real): real;
begin
fx: = 2*exp(x)-5*x;
end;
functionfp (x: real): real;
begin
fp: =1/(sqr(x)-2*x+2)+2;
end;
begin
writeln('задайте интервал поиска корня');
write('левая граница а='); readln(a);
write('левая граница b='); readln(b);
write('требуемая погрешность вычисления eps='); readln(eps);
repeat
a: =a-fx(a)*(b-a)/(fx(b)-fx(a));
b: =b-fx(b)/fp(b);
until (b-a)< =eps;
x: =(a+b)/2;
writeln('результат вычисления корней комбинированным методом');
writeln('x=', x: 2: 5);
end.