c:/gdsf/web/fuentes_pascal/ecuaciones

PROGRAM ecu_seg;

USES CRT;
VAR a, b, c : REAL;
VAR resultado1, resultado2 : REAL;
BEGIN
{Calcula ecuaciones de segundo grado}
CLRSCR;
WRITE ('ESTE PROGRAMA SIRVE PARA CALCULAR ECUACIONES ');
WRITELN ('DE SEGUNDO GRADO');
WRITELN (' ');
WRITELN ('Introduzca: a, b y c: ');
WRITELN (' ');
READLN (a);
READLN (b);
READLN (c);
resultado1 := ( - b + SQRT (SQR (b) - 4 * a * c) ) / (2 * a);
resultado2 := ( - b - SQRT (SQR (b) - 4 * a * c) ) / (2 * a);
WRITELN ('RESULTADO DE LA EXPRESION: ');
WRITE ('VALOR 1: ');
WRITELN (resultado1 : 5 : 2);
WRITE ('VALOR 2; ');
WRITE (resultado2 : 5 : 2);
END.