Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

vlad / TURBO P / tp7 / BIN / 2_1

.PAS
Скачиваний:
3
Добавлен:
12.02.2016
Размер:
598 б
Скачать
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('Mi­i¬ «м­Ґ §­ зҐ­­п ҐЄбв६г¬г: x= ', x:6:4,' y= ', y1:3:2,' k= ', k:2:0);
readln;
end.
Соседние файлы в папке BIN