Program P1;
var a,b,c:real;
i,n:integer;
function f(x:real):real;
begin
f:=x*x*x-x*x+3;
end;
begin
a:=-5;b:=5.5;n:=10;
for i:=1 to n do
begin c:=(b+a)/2;
writeln('i=',i:3,' x=',c:10:8, ' f(x)=',f(c):12:8);
if f(c)=0 then break
else if f(c)*f(a)>0 then a:=c else b:=c;
end;
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.
