{ File: eq2dispo.pas } { Scopo: uso di espressioni } program EqGrado2DiscrPositivo; { Calcola le radici di un'equazione di 2o grado che si suppone essere a discriminante positivo. } var a, b, c, { coefficienti dell'equazione } d : real; { quadrato del discriminante } begin write('Immettere i 3 coefficienti: '); readln(a, b, c); d := sqrt(sqr(b) - 4*a*c); writeln('x1 = ', (-b-d)/(2*a):10:3); writeln('x2 = ', (-b+d)/(2*a):10:3) end. { EqGrado2DiscrPositivo }