Guida alla risoluzione delle equazioni di secondo grado in Pascal

Marta.hihi
di Marta.hihi
1 min
Erectus
Vota 4,5/5
Appunto verificato
Contenuto verificato e approvato dal  Team di Esperti di Skuola.net Informazioni appunto verificato Informazioni appunto verificato hover

Scopri come risolvere le equazioni di secondo grado in Pascal attraverso un programma pratico. Impara a gestire i coefficienti e a calcolare le soluzioni reali, sia coincidenti che distinte, per affrontare con successo questo argomento matematico.

program equazione;

uses crt;

(*Risolvere un'equazione di secondo grado*)

var A,B,C,X1,X2,D:real;

begin

clrscr;

Input dei coefficienti

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

writeln ('Non ci sono soluzioni reali');

readln

end.

Guida alla risoluzione delle equazioni di secondo grado in Pascal articolo

Appunti correlati

Domande e risposte

Hai bisogno di aiuto?
Chiedi alla community
Vai al forum