Question

Scrieţi un program Pascal ce vă determina solutiile unei ecuatii de gradul doi ax2+bx+c=0.Valorile coeficientilor a ,b,c sunt numere intregi ,introduse de la tastatura (a=taiat0)
Vă roooog

Answer 1

program Tema;
uses Math;

var a,b,c,x1,x2,delta:real;
begin

writeln('Introduceti coeficientii ecuatiei de gradul al doilea: ');
read(a,b,c);
delta:=b*b-4*a*c;
if(delta<0) then
writeln('Solutiile ecuatiei nu sunt numere reale:');
else if(delta=0) then
begin
x1:=(-b)/(2*a);
Writeln('Radacinile sunt egale intre ele cu valoarea: ',x1);
end;
else 
begin
x1:=(-b+sqrt(delta))/(2a);
x2:=(-b-sqrt(delta))/(2a);
Writeln('Radacinile ecuatiei sunt: ',x1,' si ',x2);
end;
end.