Français
Source/ Codesnippets

Basi Berechnen Funktion mathématique Nullstellen Visual

 

Tobias
Fröhlich

KompilierenMarqueSéparation
Attribute VB_Name = "modQuadratischeGleichung"
-------------------------------------------------------------------------------------
modQuadratischeGleichung.bas
-------------------------------------------------------------------------------------
Autor: Tobias Fröhlich
eMail: tobias-froehlich@gmx.net
www:   www.tobias-froehlich.de
-------------------------------------------------------------------------------------
Funktion:
Berechnet die Nullstellen einer quadratischen Gleichung der Form
0 = ax² + bx + c
-------------------------------------------------------------------------------------
Rückgabewerte:
"keine Lösung" - Es existieren keinerlei Nullstellen
"1|x1"         - Es existiert eine Nullstelle
"2|x1|x2"      - Es existieren zwei Nullstellen
"unendl."      - Es existieren unendlich viele Nullstellen
-------------------------------------------------------------------------------------
Beispiel:
Temp = QuadratischeGleichung(4,8,-20)
Temp = Split(Temp,"|")
MsgBox Temp(0),vbOKOnly,"Anzahl der Lösungen:"
MsgBox Temp(1),vbOKOnly,"x1:"
MsgBox Temp(2),vbOKOnly,"x2:"
-------------------------------------------------------------------------------------
Public Function QuadratischeGleichung(a As Single, b As Single, c As Single) As String
On Error GoTo QuadratischeGleichung_Fehler
Dim d As Single
Dim QuadratischeGleichung_Result As String
d = b ^ 2 - 4 * a * c

If a <> 0 Then

    If d < 0 Then

        QuadratischeGleichung_Result = "keine Lösung"
        End If

        If d = 0 Then

            QuadratischeGleichung_Result = "1|" & Format$((-b / (2 * a)), "####0.000")
            End If

            If d > 0 Then

                QuadratischeGleichung_Result = "2|" & Format$((-b + Sqr(d)) / (2 * a), "####0.000") & "|" & Format$((-b - Sqr(d)) / (2 * a), "####0.000")
                End If

            Else

                If b <> 0 Then

                    QuadratischeGleichung_Result = "1|" & -c / b

                Else

                    If c = 0 Then

                        QuadratischeGleichung_Result = "unendl."

                    Else

                        QuadratischeGleichung_Result = "keine Lösung"
                        End If
                        End If
                        End If
                        GoTo QuadratischeGleichung_OK
                        QuadratischeGleichung_Fehler:
                        MsgBox "Im Modul QuadratischeGleichung ist ein Fehler aufgetreten!", vbCritical
                        Exit Function
                        QuadratischeGleichung_OK:
                        QuadratischeGleichung = QuadratischeGleichung_Result
                        End  href='./../../function-references/XProfan/function/'>Function
 
Keep codin' ...
www.Tobias-Froehlich.de
27.04.2004  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

3.959 Views

Untitledvor 0 min.
p.specht18.04.2021
Julian Schmidt25.11.2013

Themeninformationen

cet Thema hat 1 participant:

Tobias Fröhlich (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie