Răspuns :
program DouaEcDeGr2;
var a1,b1,c1,a2,b2,c2: integer;
procedure RezolvaEcuatia(a,b,c:integer);
var d:integer; x1,x2:real;
begin
d:=b*b-4*a*c;
if d<0 then writeln('ecuatia n-are solutii reale...');
if d=0 then writeln('ecuatia are o singura solutie x=',-b/(2*a));
if d>0 then begin writeln('ecuatia are doua solutii diferite:');
x1:=(-b-sqrt(d))/(2*a); x2:= (-b+sqrt(d))/(2*a);
writeln('x1= ', x1);
writeln('x2= ', x2);
end;
end;
begin
writeln(' dati coieficientii intregi a1, b1, c1 a unei ecuatii de gr 2');
read(a1, b1, c1);
RezolvaEcuatia(a1,b1,c1);
writeln(' dati coieficientii intregi a2, b2, c2 a unei ecuatii de gr 2');
read(a2, b2, c2);
RezolvaEcuatia(a2,b2,c2);
end.
Vă mulțumim că ați ales să vizitați site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți alte întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați în lista de favorite!