Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [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!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Nullstellen mit Ergebnissen!

Uploader:Redakteurytwinky
Datum/Zeit:16.03.2011 21:08:52

'Siehe http://www.freebasic-portal.de/code-beispiele/mathematik/loesung-quadratischer-gleichungen-18.htm
'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 <==Spielkram!!^^
        p = i * b
        q = i * c

    END IF
    IF a = 1 Then ' nicht erforderlich..
        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