Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Mathematik

Nullstellenberechnung einer Parabel

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.MitgliedWarhead 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 MitgliedWarhead angelegt.
  • Die aktuellste Version wurde am 30.01.2011 von MitgliedWarhead gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen