Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Nullstellen
| Uploader: |  Warhead |
| Datum/Zeit: | 28.01.2011 14:03:49 |
'Autor: Warhead
'Datum: 25/01/2011
'Funktion: Berechnung der Nullstellen einer Parabel
'Sprache: FreeBasic
'Einbindung:
'none :D
'Variablen und Funktionen:
DIM AS INTEGER a, b, c, p, q, i
DIM AS DOUBLE zw, x1, x2
DIM AS STRING wahl
'Hauptprogramm:
? !"Programm: Berechnung der Nullstellen einer Parabel \n"
? !"Formel: p / 2 +/- Wurzel aus (p / 2)^2 - q"
? !"Diese Formel wird aus der allgemeinen Form einer Parabel berechnet. \n"
? !"Formel: ax^2 + bx + c"
DO
? !"Gib dazu die Werte von a, b und c ein! \n"
INPUT !"a = ", a
INPUT !"b = ", b
INPUT !"c = ", c
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
zw = (p / 2)^2
x1 = -p / 2 + SQR(zw - q)
x2 = -p / 2 - SQR(zw - q)
? !"Ergebnisse: \n"
? !" x1 = ", x1
? !" x2 = ", x2
Input !"Zum Beenden des Programms: Schreibe exit ", wahl
if wahl = "exit" then
End
End if
Cls
LOOP