fct_nasp.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 26 行

program functie_complicata_rau;
var a,b:integer;
    m,n,x,p:real;
function fct(x:real):real;
         begin
         fct:=a*x+b;
         end;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
write('m= ');
readln(m);
write('n= ');
readln(n);
write('eroare mai mica decat ');
readln(p);
repeat
      if (fct(m)*fct((m+n)/2))<0 then n:=(m+n)/2
                                 else m:=(m+n)/2;
until (n-m)<p;
x:=(m+n)/2;
writeln('aproximatia este : ',x);
end.