Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Diskriminante D
| Uploader: |  Warhead |
| Datum/Zeit: | 09.02.2011 23:59:15 |
'Autor: Warhead
'Datum: 09/02/2011
'Funktion: Berechnung der Diskriminante D
'Sprache: FreeBasic
'Bemerkungen: Mathe ist geil!
'Einbindung:
'none! :D
'Variablen:
DIM AS DOUBLE a, b, c, d, p, q, i
DIM AS STRING wahl
'Hauptprogramm:
? !"Programm: Berechnung der Anzahl von Lösungsmengen (Nullstellen) bei quadratischen Gleichungen (Diskriminante D) \n"
? !"Formel: D = (p / 2)^2 - q"
? !"Sodass folgende Lösungsmengen entstehen:\n"
? !"2 Lösungen, falls"; SPACE(10); "D > 0 ist"
? !"1 Lösung , falls"; SPACE(10); "D = 0 ist"
? !"0 Lösungen, falls"; SPACE(10); "D < 0 ist"
DO
? !"Gib dazu die Werte a, b, c für die allgemeine Form der Parabel an!\n"
INPUT !"a = " ,a
INPUT !"b = " ,b
INPUT !"c = " ,c
? !"Term lautet";a;"x^2 + ";b;"x + "; c;
? !"\n"
IF a > 1 THEN
p = b / a
q = c / a
END IF
IF a < 1 THEN
i = a^-1 ' i = 1 / a
p = i * b
q = i * c
END IF
IF a = 1 THEN
b = p
c = q
END IF
d =(p/2)^2 - q
? "D = (p / 2)^2 - q"
? !", da p = ";p;" und q = ";q;
? !"\n"
IF d > 0 THEN
? !"Die Gleichung hat 2 Lösungen"
END IF
IF d = 0 THEN
? !"Die Gleichung hat 1 Lösung"
END IF
IF d < 0 THEN
? !"Die Gleichung hat 0 Lösungen"
END IF
SLEEP
CLS
? !"Programm beenden"; SPACE(5);"exit"
INPUT wahl
IF wahl = "exit" THEN
END
END IF
LOOP