CLS
PRINT "Prg.name:QUAD-GL.BAS"
PRINT "Autor: Stephanie Heinrich"
PRINT "Datum: 28.10.02"
REM---Deklaration---
REM x1: Variable
REM x2: Variable
REM d= b^-4*a*c
REM e= SQR(d)
REM f= Ergbnis fr x1
REM g= Ergebnis fr x2
REM---Eingabe---
INPUT "Zahl a=", a
INPUT "Zahl b=", b
INPUT "Zahl c=", c
REM---Verarbeitung---
d = b ^ 2 - (4 * a * c)
PRINT " d =", d
IF d < 0 THEN
PRINT " x1 ist keine reele L”sung"
ELSE
e = SQR(d)
f = 1 / 2 * a * (-b - e)
PRINT "x1 = ", f
END IF
IF d < 0 THEN
PRINT "x2 ist keine reele L”sung"
ELSE
e = SQR(d)
g = 1 / 2 * a * (-b + e)
PRINT "x2 = ", g
END IF
END