programma

Traduzione in linguaggio TurboPascal  

Program Risoluzione_equazione_di_secondo_grado;

Uses crt;

Var A, B, C, Delta, X1, X2: real;

Begin

clrscr;

writeln (‘Risoluzione Equazione di Secondo Grado’); writeln (‘ ax^2+bx + c = 0’);

writeln;

(*Acquisizione dei coefficienti dell’equazione*)

writeln (‘Scrivere i tre coefficienti a, b, c’);

writeln (‘separati da uno spazio e premere Invio’); readln (a, b, c);

writeln;

(*Calcolo del discriminante*) Delta:=B*B-4*A*C;

(*Analisi dei casi possibili*)

if       A= 0 then writeln (‘L’equazione non è di secondo grado’) else

begin

il           Delta> 0 then begin

(*Calcolo e comunicazione soluzioni distinte*)

X1 := (-B-sqrt(Delta))/(2*A);

                X2 := (-B+sqrt(Delta))/(2*A);

writeln (‘Due soluzioni distinte’);

writeln (‘X2 =‘, X1:8:4, ‘X2=’,X2:8:4);

end;

if Delta = 0 then

begin

(*Calcola e comunicazione soluzioni coincidenti*)

 X1:=-B/(2*a);

 writeln (‘Due soluzioni coincidenti’);

                 writeln (‘Xl =X2=’,X1 :8:4);

end;

if Delta < 0 then

begin

(*Equazione impossibile*)

writeln (‘Non esistono soluzioni reali’);

end;

writeln;

end;

writeln (‘Premere un tasto per tornare in ambiente Editor’);

repeat until keypressed;

end.