Текст программы. function fun(x:real):real;

program lab5{ вариант № 3};

uses crt;

var x,a,b,e:real;

iteraz:integer;

function fun(x:real):real;

begin

fun:=x+sqrt(x)+exp((1/3)*(ln(x)))-2.5;

end;

begin

repeat

clrscr;

writeln('Корень уравнения находиться на интервале [a,b]');

write('Введите [a=');

readln(a);

write('Введите [b=');

readln(b);

write('Введите приближённое значение корня X=');

readln(x);

write('Введите точность e=');

readln(e);

until (b-a>e) or (x>a) or (x<b) or (a<>0);

iteraz:=0;

while (fun(x)<>0) and (abs(a-b)>e) do

begin

iteraz:=iteraz+1;

if (fun(a)*fun(x))<0

then b:=x

else a:=x;

x:=((a+b)/2);

end;

writeln('Решение уравнения:');

writeln('Точное значение корня....……..0.7376’);

writeln('Вычисленное значение корня.. ',x:6:5);

writeln('Число итераций..........…………. ',iteraz);

writeln('Программа закончена, нажмите Enter.');

readln;

end.

Распечатка результатов работы программы в следующем виде:

Решение уравнения: Точное значение корня...... ……..0.73760 Вычисленное значение корня.. …0.73764 Число итераций...........…………..14

Варианты заданий.