Questo è 1 programma nn utilissimo magari serve a risolvere equazioni di secondo grado a discriminante maggiore o uguale a 0
(Ps: ftt da me, quindi apprezzate qnt meno la buona volontà ...)
Codice:
Program Equazione_di_secondo_grado;
(*simply program by MaxJump91*)
uses crt;
var a,b,c,d,x1,x2:Real;
Begin
clrscr;
writeln('introduci il valore di a, coefficiente di x^2');
readln(a);
writeln('introduci il valore di b, coefficiente di x');
readln(b);
writeln('introduci il valore del termine noto c');
readln(c);
d:=b*b-4*a*c;
if d>0 then
Begin
writeln('le due soluzioni sono reali e distinte:');
writeln('x1 è uguale a ',(-b)-sqrt(d))/2*a:8:2);
writeln('x2 è uguale a ',(-b)+sqrt(d))/2*a:8:2);
End
else if d=o then
Begin
writeln('le due soluzioni sono reali e coincidenti:');
writeln('x1 e x2 sono uguali a ',(-b)/2*a:8:2);
End
else
writeln('le due soluzioni non esistono nell'insieme dei numeri reali');
readln
End.