Kako programirati kvadratne jednadžbe u Visual Basicu

Kvadratna jednadžba je polinom drugog stupnja koji ima oblik "ax^2 + bx + c =0." "a", "b" i "c" su konstante, a "x" je varijabla. Kada rješavate kvadratnu jednadžbu, morate imati vrijednosti konstanti i riješiti x, što uvijek daje dvije vrijednosti, koje se nazivaju "korijeni". U Visual Basicu možete napisati program ili funkciju koja od korisnika traži da unese vrijednosti a, b i c, pronađe korijene i zatim prikaže vrijednosti na obrascu.

1. korak

Otvorite novi program Visual Basic. Dvaput kliknite na alat "Button" da biste dodali Button1 u obrazac. Dvaput kliknite alat "Oznaka" dvaput da dodate Label1 i Label2 u obrazac.

2. korak

Dvaput kliknite "Button1" na obrascu da biste otvorili prozor koda. Upišite sljedeći kôd:

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

Prva tri retka traže od korisnika vrijednosti konstanti. Zatim poziva sub nazvan "Quadratic" i prosljeđuje mu konstante kao argumente.

3. korak

Umetnite kursor izvan sub Button1. Upišite sljedeći kôd:

Private Sub Quadratic(ByVal a kao decimalno, ByVal b kao decimalno, ByVal c kao decimalno) Dim korijeni(1) Kao niz Dim x1, x2, disk Kao decimalni disk =b ^ 2 - 4 * a * c

Prvi redak stvara Quadratic sub i prihvaća tri argumenta. Zatim definira niz s dvije stavke za dva korijena. Zatim stvara tri decimalne varijable i dodjeljuje vrijednost diskriminante, koja određuje broj korijena koje ima kvadratna jednadžba.

4. korak

Upišite sljedeći kôd:

Ako je disk>=0 Tada je x1 =(-b + Math.Sqrt(disc)) / (2 * a) x2 =(-b - Math.Sqrt(disc)) / (2 * a) korijeni(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

Funkcija "if" provjerava je li vrijednost diskriminante veća ili jednaka nuli, što znači da jednadžba ima jedan ili dva korijena. Zatim rješava x. Ako je diskriminant manji od nule, jednadžba nema pravih korijena i izvršava se dio "else", koji prikazuje složene jednadžbe korijena.

Korak 5

Upišite sljedeći kôd:

Label1.Text =roots(0) Label2.Text =roots(1) End Sub

Ove linije koda jednostavno prikazuju korijene na naljepnicama i zatim zatvaraju blok koda Quadratic sub-a.

Korak 6

Spremite program Visual Basic. Pritisnite "F5" za pokretanje.