O ecuație pătratică este un polinom de gradul doi care are forma „ax^2 + bx + c = 0”. „a”, „b” și „c” sunt constantele, iar „x” este variabila. Când rezolvați o ecuație pătratică, trebuie să aveți valorile constantelor și să rezolvați pentru x, care dă întotdeauna două valori, numite „rădăcini”. În Visual Basic, puteți scrie un program sau o funcție care solicită utilizatorului să introducă valorile a, b și c, să găsească rădăcinile și apoi să afișeze valorile pe formă.
Pasul 1
Deschideți un nou program Visual Basic. Faceți dublu clic pe instrumentul „Button” pentru a adăuga Button1 la formular. Faceți dublu clic pe instrumentul „Etichetă” de două ori pentru a adăuga Label1 și Label2 la formular.
Videoclipul zilei
Pasul 2
Faceți dublu clic pe „Button1” pe formular pentru a deschide fereastra de cod. Tastați următorul cod:
Dim a As Decimal = InputBox("Introduceți A: ") Dim b As Decimal = InputBox("Introduceți B: ") Dim c As Decimal = InputBox("Introduceți C: ") Quadratic (a, b, c)
Primele trei linii solicită utilizatorului valorile constantelor. Apoi apelează un sub numit „Quadratic” și îi transmite constantele ca argumente.
Pasul 3
Introduceți cursorul în afara butonului secundar Button1. Tastați următorul cod:
Privat sub-cuadratic (ByVal a ca zecimal, ByVal b ca zecimal, ByVal c ca zecimal) Dim rădăcini (1) Ca șir Dim x1, x2, disc Ca disc zecimal = b ^ 2 - 4 * a * c
Prima linie creează subquadratic și acceptă trei argumente. Apoi definește o matrice cu două elemente pentru cele două rădăcini. Apoi creează trei variabile zecimale și atribuie valoarea discriminantului, care determină numărul de rădăcini pe care le are ecuația pătratică.
Pasul 4
Tastați următorul cod:
Dacă discul >= 0, atunci x1 = (-b + Math. Sqrt (disc)) / (2 * a) x2 = (-b - Math. Sqrt (disc)) / (2 * a) rădăcini (0) = x1.ToString rădăcini (1) = x2.ToString Else rădăcini (0) = "(-" & b. ToString și „+Sqrt(” și disc. ToString & "))/(2_" & a. ToString & ")" rădăcini (1) = "(-" & b. ToString și „-Sqrt(” și disc. ToString & "))/(2_" & a. ToString & ")" End If
Funcția „dacă” verifică dacă valoarea discriminantului este mai mare sau egală cu zero, ceea ce înseamnă că ecuația are una sau două rădăcini. Apoi rezolvă pentru x. Dacă discriminantul este mai mic decât zero, ecuația nu are rădăcini reale și se execută porțiunea „altfel”, care afișează ecuațiile complexe ale rădăcinilor.
Pasul 5
Tastați următorul cod:
Label1.Text = rădăcini (0) Label2.Text = rădăcini (1) End Sub
Aceste linii de cod pur și simplu afișează rădăcinile de pe etichete și apoi închid blocul de cod al subconjunctului Quadratic.
Pasul 6
Salvați programul Visual Basic. Apăsați „F5” pentru al rula.
