c:/gdsf/web/fuentes_pascal/ecuacion

PROGRAM ecuseg;

USES CRT;
VAR a, b, c : REAL;
VAR resultado : REAL;
BEGIN
{Calcula la incognita positiva de una ecuacion de 2� grado}
CLRSCR;
WRITE ('Para calcular la incognita positiva de una ecuacion');
WRITE (' de segundo grado escriba todas las variables:');
WRITELN (' ');
WRITELN (' ');
WRITE ('Escriba a: ');
READLN (a);
WRITE ('Escriba b; ');
READLN (b);
WRITE ('Escriba c; ');
READLN (c);
WRITELN (' ');
resultado := ( - b + SQRT (SQR (b) - 4 * a * c) ) / (2 * a);
WRITE ('RESULTADO: ');
WRITE (resultado : 5 : 2);
END.