Code-Beispiel
Nullstellenberechnung einer Parabel
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| k. A. |  Warhead |  30.01.2011 |
Dieses Beispiel soll die Verarbeitung einer allgemeinen Form einer Parabel für die Berechnung der Nullstellen darstellen.
Eingegeben werden die Werte a, b, c.
Das Programm hat noch ein paar Schwachstellen. Wer den Fehler findet, kann ihn ja hier einfügen.
'Autor: Warhead
'Datum: 25/01/2011
'Funktion: Berechnung der Nullstellen einer Parabel
'Sprache: FreeBasic
'Einbindung:
'none :D
'Variablen und Funktionen:
DIM AS DOUBLE 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
| Zusätzliche Informationen und Funktionen |
|---|
- Das Code-Beispiel wurde am 30.01.2011 von Warhead angelegt.
- Die aktuellste Version wurde am 30.01.2011 von Warhead gespeichert.
|
|
Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!
Bearbeiten
Versionen