File: QUAGL.PS of Tape: Various/Decus/decus-3

(Source file text) 

---

PROGRAM QUAGL(INPUT,OUTPUT);

  VAR   A,B,C,DISKR,X1,X2,RE,IM: REAL;

BEGIN
    READ(A,B,C);
    DISKR := B*B - 4*A*C;
    IF DISKR>=0 THEN
                    BEGIN
                        X1 := (-B + SQRT(DISKR))/(2*A);
                        X2 := (-B - SQRT(DISKR))/(2*A);
                        WRITELN("X1=", X1:10:5);
                        WRITELN("X2=", X2:10:5)
                    END
                ELSE
                    BEGIN
                        RE := -B/(2*A);
                        IM := SQRT(-DISKR)/(2*A);
                        WRITELN("X1=", RE:10:5, "     +", IM:10:5, " *J");
                        WRITELN("X2=", RE:10:5, "     -", IM:10:5, " *J")
                    END
END.

---