Question

VA ROOG!

De la tastatura se introduc 6 nr întregi a1,b1,c1 si a2,b2,c2, ce reprezintă coeficienții a două ecuații de gradul doi. Determinați soluțiile ecuatiilor date. PASCAL, PROCEDURI

Answer 1

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.