Másodfokú egyenletek programozása a Visual Basicben

A másodfokú egyenlet egy másodfokú polinom, amelynek alakja "ax^2 + bx + c =0". Az "a", "b" és "c" az állandók, az "x" pedig a változó. Ha másodfokú egyenletet old meg, rendelkeznie kell az állandók értékeivel, és meg kell oldania x-et, ami mindig két értéket ad, ezeket "gyököknek" nevezzük. A Visual Basicben írhat olyan programot vagy függvényt, amely felszólítja a felhasználót, hogy adja meg az a, b és c értékeket, keresse meg a gyökereket, majd jelenítse meg az értékeket az űrlapon.

1. lépés

Nyisson meg egy új Visual Basic programot. Kattintson duplán a "Button" eszközre az 1. gomb hozzáadásához az űrlaphoz. Kattintson duplán a "Címke" eszközre, hogy a Label1-et és a Label2-t hozzáadja az űrlaphoz.

2. lépés

Kattintson duplán a "Button1" gombra az űrlapon a kódablak megnyitásához. Írja be a következő kódot:

Dim a As Decimal =InputBox("Enter A:") Dim b As Decimal =InputBox("Enter B:") Dim c As Decimal =InputBox("Enter C:") Quadratic(a, b, c)

Az első három sor a konstansok értékét kéri a felhasználótól. Ezután meghív egy "Quadratic" nevű részegységet, és argumentumként adja át neki az állandókat.

3. lépés

Helyezze a kurzort a Button1 almenüen kívülre. Írja be a következő kódot:

Privát Sub Quadratic(ByVal a As Decimális, ByVal b As Decimális, ByVal c As Decimális) Dim gyök(1) As String Dim x1, x2, disc As Decimális lemez =b ^ 2 - 4 * a * c

Az első sor létrehozza a másodfokú alcsoportot, és három argumentumot fogad el. Ezután meghatároz egy tömböt két elemmel a két gyökér számára. Ezután három decimális változót hoz létre, és hozzárendeli a diszkrimináns értékét, amely meghatározza a másodfokú egyenlet gyökeinek számát.

4. lépés

Írja be a következő kódot:

Ha a lemez>=0, akkor x1 =(-b + Math.Sqrt(lemez)) / (2 * a) x2 =(-b - Math.Sqrt(lemez)) / (2 * a) gyök(0) =x1 .ToString roots(1) =x2.ToString Else roots(0) ="(-" &b.ToString &"+Sqrt(" &disc.ToString &"))/(2_" &a.ToString &")" roots(1) ="(-" &b.ToString &"-Sqrt(" &disc.ToString &"))/(2_" &a.ToString &")" End If

Az "if" függvény ellenőrzi, hogy a diszkrimináns értéke nagyobb-e vagy egyenlő-e nullával, ami azt jelenti, hogy az egyenletnek egy vagy két gyöke van. Ezután x-re oldja meg. Ha a diszkrimináns kisebb, mint nulla, az egyenletnek nincs valódi gyöke, és az "else" rész végrehajtásra kerül, amely megjeleníti az összetett gyökegyenleteket.

5. lépés

Írja be a következő kódot:

Címke1.Szöveg =gyökök(0) Címke2.Szöveg =gyökér(1) End Sub

Ezek a kódsorok egyszerűen megjelenítik a gyökereket a címkéken, majd bezárják a Quadratic al kódblokkját.

6. lépés

Mentse el a Visual Basic programot. Nyomja meg az „F5” gombot a futtatáshoz.