Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторные работы3 / 1,2,3 / №1 / 1.ж / MET_KASA
.PAS program met_kasa;
uses crt;
var n:integer;
a,b,y1,y2,z1,z2,s,y,e,x,z:real;
function f(x:real):real;
begin
f:=x*x-3.5*x+3;
end;
function p(x:real):real;
begin
p:=2*x-3.5;
end;
begin
clrscr;
writeln('vvedite a '); read(a);
writeln('vvedite b '); read(b);
writeln('vvedite n '); read(n);
y1:=f(a);
z1:=p(a);
y2:=f(b);
z2:=p(b);
repeat
n:=n-1;
s:=(z2*b-z1*a-y2+y1)/(z2-z1);
z:=p(s);
if z<0 then
begin
a:=s;
y1:=f(a);
z1:=p(a);
end;
if z>0 then
begin
b:=s;
y2:=f(b);
z2:=p(b);
end;
until (z=0)or(n=0);
x:=(a+b)/2;
y:=f(x);
e:=(b-a)/2;
writeln('');writeln('');
writeln('x=',x:10:5);
writeln('');
writeln('y=',y:10:5);
writeln('');
writeln('E=',e:10:5);
readkey;
end.
uses crt;
var n:integer;
a,b,y1,y2,z1,z2,s,y,e,x,z:real;
function f(x:real):real;
begin
f:=x*x-3.5*x+3;
end;
function p(x:real):real;
begin
p:=2*x-3.5;
end;
begin
clrscr;
writeln('vvedite a '); read(a);
writeln('vvedite b '); read(b);
writeln('vvedite n '); read(n);
y1:=f(a);
z1:=p(a);
y2:=f(b);
z2:=p(b);
repeat
n:=n-1;
s:=(z2*b-z1*a-y2+y1)/(z2-z1);
z:=p(s);
if z<0 then
begin
a:=s;
y1:=f(a);
z1:=p(a);
end;
if z>0 then
begin
b:=s;
y2:=f(b);
z2:=p(b);
end;
until (z=0)or(n=0);
x:=(a+b)/2;
y:=f(x);
e:=(b-a)/2;
writeln('');writeln('');
writeln('x=',x:10:5);
writeln('');
writeln('y=',y:10:5);
writeln('');
writeln('E=',e:10:5);
readkey;
end.
Соседние файлы в папке 1.ж