Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:3курс / kasat
.pas uses CRT;
const
epsilon=0.00000001;
VAR
a,b,ya,yb,x,y:real;
x0,delta,x1:real;
function f(t:real):real;
begin
f:=t*t*t*t*t-8*t-1 ;
end;
function f1(t:real):real;
begin
f1:=5*t*t*t*t-8 ;
end;
{ ===========================================}
begin
clrscr;
repeat
writeln('Задайте a,b');
readln(a,b);
ya:=f(a);
yb:=f(b);
writeln(a:6:2,b:5:1,ya:12:8,' ',yb);
until ya*yb<0;
{=======================================}
x0:=b;
delta:=1;
repeat
x1:=x0-f(x0)/f1(x0);
delta:=abs(x0-x1);
x0:=x1;
writeln (x0);
until delta<epsilon;
{==============================================}
writeln('корень=',x0,y:18:10);
repeat until keypressed;
end.
const
epsilon=0.00000001;
VAR
a,b,ya,yb,x,y:real;
x0,delta,x1:real;
function f(t:real):real;
begin
f:=t*t*t*t*t-8*t-1 ;
end;
function f1(t:real):real;
begin
f1:=5*t*t*t*t-8 ;
end;
{ ===========================================}
begin
clrscr;
repeat
writeln('Задайте a,b');
readln(a,b);
ya:=f(a);
yb:=f(b);
writeln(a:6:2,b:5:1,ya:12:8,' ',yb);
until ya*yb<0;
{=======================================}
x0:=b;
delta:=1;
repeat
x1:=x0-f(x0)/f1(x0);
delta:=abs(x0-x1);
x0:=x1;
writeln (x0);
until delta<epsilon;
{==============================================}
writeln('корень=',x0,y:18:10);
repeat until keypressed;
end.