Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
Program Dilennja_navpil;
uses crt;
var a,b,x,y,y1,l,k:real;
begin clrscr;
writeln('‚ўҐ¤iвм § зҐп iвҐаў «г [a,b]:');
readln(a,b);
writeln('‚ўҐ¤iвм в®зiбвм:');
readln(l);
x:=(a+b)/2;
repeat
begin
y:=(4*x-2)/(sqr(x-sqr(x)+1));
if y=0 then break
else
if y>0 then
begin b:=x; x:=(a+b)/2 end
else
if y<0 then begin a:=x; x:= (a+b)/2 end
end;
k:=k+1;
until (b-a<=l);
x:=(a+b)/2;
y1:=(1-x+sqr(x))/(1+x-sqr(x));
writeln('Mii¬ «мҐ § зҐп ҐЄбв६г¬г: x= ', x:6:4,' y= ', y1:3:2,' k= ', k:2:0);
readln;
end.
uses crt;
var a,b,x,y,y1,l,k:real;
begin clrscr;
writeln('‚ўҐ¤iвм § зҐп iвҐаў «г [a,b]:');
readln(a,b);
writeln('‚ўҐ¤iвм в®зiбвм:');
readln(l);
x:=(a+b)/2;
repeat
begin
y:=(4*x-2)/(sqr(x-sqr(x)+1));
if y=0 then break
else
if y>0 then
begin b:=x; x:=(a+b)/2 end
else
if y<0 then begin a:=x; x:= (a+b)/2 end
end;
k:=k+1;
until (b-a<=l);
x:=(a+b)/2;
y1:=(1-x+sqr(x))/(1+x-sqr(x));
writeln('Mii¬ «мҐ § зҐп ҐЄбв६г¬г: x= ', x:6:4,' y= ', y1:3:2,' k= ', k:2:0);
readln;
end.