83531

Rozwiązanie równania kwadratowego ax² + bx + c = 0:

Sub rozwiazanie_rownania_kwadratowego()

' rozwiązuje równanie kwadratowe postaci ax^A2+bx+c=0 - po wprowadzeniu współczynników a,b,c ' autor: Piotr Urbański ' wersja RC-0

Dim xlin As Double 'deklaracja zmiennej xlin jako Double

Dim x0    As    Double    'deklaracja    zmiennej    x0    jako    Double

Dim xl    As    Double    'deklaracja    zmiennej    xl    jako    Double

Dim x2    As    Double    'deklaracja    zmiennej    x2    jako    Double

Dim a    As    Double    'deklaracja    współczynnika    a    jako    Double

Dim b    As    Double    'deklaracja    współczynnika    b    jako    Double

Dim c    As    Double    ‘deklaracja    współczynnika    c    jako    Double

Dim delta As Double ‘deklaracja wyróżnika    trojmianu (delta) jako Double

MsgBox ("program rozwiązuje równanie kwadratowe ax^A2+bx+c*0 po wprowadzeniu współczynników a,b,c")

a =    InputBox("wprowadz    wartość    współczynnika    a")    'przypisanie    wartości    współczynnika    a

b =    InputBox("wprowadź    wartość    współczynnika    b")    'przypisanie    wartości    współczynnika    b

c =    InputBox("wprowadź    wartość    współczynnika    c")    'przypisanie    wartości    współczynnika    c

If a ■ 0 Then

If b = 0 Then

If c * 0 Then

MsgBox ("równanie tożsamościowe")

Elsę

MsgBox ("brak rozwiązań")

End If Elsę

xlin ■ (-(c / b))

MsgBox ("jedno rozwiązanie: " & xlin)

End If Elsę

delta - ((b ^A 2) - (4 * a * c))

If delta ■ 0 Then

x0 ■ (-(b / (2 * a)))

MsgBox ("jedno rozwiązanie: " & x0)

Elsę

If delta > 0 Then

xl - (((-b) - (Sqr(delta))) / (2 * a)) x2 - (((-b) + (Sqr(delta))) / (2 * a))

MsgBox ("dwa rozwiązania: " & xl & " oraz " & x2)

Elsę

MsgBox ("brak rozwiązań")

End If End If

End If End Sub