Pernyataan Bersyarat

Persamaan Kuadrat dengan bentuk:
Y = AX^2 + BX + C

untuk mengetahui nilai X1 dan X2 dapat diketahui dari rumus
X1=-B+SQRT(B^2-4AC)/2A
X2=-B-SQRT(B^2-4AC)/2A

B^2-4AC disebut sebagai Deskriminan (D).

Bila D = 0, maka akan diperoleh X1 dan X2 bernilai sama.
X1 = -B/2A
X2 = X1

Bila D > 1, maka akan diperoleh X1 dan X2 bernilai beda

Bila D < 1, maka akan diperoleh X1 dan X2 bernilai imajinir

-Antar muka program
antar muka

-Implementasi
Private Sub cmdHitung_Click()
Dim A, B, C As Single
A = Val(txtA.Text)
B = Val(txtB.Text)
C = Val(txtC.Text)
D = B ^ 2 – 4 * A * C
If (D = 0) Then
X1 = -B / (2 * A)
X2 = X2
ElseIf (D > 0) Then
X1 = (-B + Sqr(D)) / (2 * A)
X2 = (-B – Sqr(D)) / (2 * A)
Else
X1 = 0 ‘Anggapan Imajiner
X2 = 0 ‘Anggapan Imajiner
End If
txtX1.Text = Str(X1)
txtX2.Text = Str(X2)
End Sub

Private Sub cmdTutup_Click()
End
End Sub

-Running
running

-Analisis
Persamaan kuadrat adalah persamaan yang pangkat peubahanya paling tinggi adalah 2.
Persamaan kuadrat dapat diselesaikan bila diketahui minimal nilai A dan B. Sedangkan nilai C dapat sebagai pelengkap. Bila nilai A dan B maka X1 dan X2 tidak terselesaikan karena nilai X1 peubah pada A dan X2 peubah pada B.
Apakah X1 dan X2 bernilai Nol, Negatif, Positif atau Imajiner tergantung dari nilai Deskriminan (D). Bila D = 0 maka akan diperoleh nilai X1 dan X2 yang sama, apakah nol, negatif atau positif. Bila D>1 maka akan diperoleh nilai X1 dan X2 yang berbeda dan bisa nol, negatif atau positif. Sedangkan Bila D<0 maka akan diperoleh nilai X1 dan X2 imajiner (tidak nyata).

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: