Ominide 50 punti

program equazione;
uses crt;
(*Risolvere un'equazione di secondo grado*)
var A,B,C,X1,X2,D:real;
begin
clrscr;
writeln ('Equazione di secondo grado del tipo ax^2+bx+c=0');
write ('Inserisci il valore del coefficente a=');
readln (A);
write ('Inserisci il valore del coefficente b=');
readln (B);
write ('Inserisci il valore del termine noto c=');
readln (C);
D:=B*B-4*A*C;
if D = 0 then
begin
X1:=-B/(2*A);
X2:=X1;
writeln ('Ci sono due soluzioni reali coincidenti x1=x2=',X1);
end
else
if D>0 then
begin
X1:=(-B+sqrt(D))/(2*A);
X2:=(-B-sqrt(D))/(2*A);
writeln ('Ci sono due soluzioni reali distinte');
writeln ('x1=',X1);
writeln ('x2=',X2);
end
else
if D<0 then
writeln ('Non ci sono soluzioni reali');
readln
end.

Registrati via email