FPB emang mudah di kalangan pelajar, tapi klo bilangan yang dicari FPB nya gede jadi beda lagi kasusnya.... kita perlu cara baru untuk menanggulangi kesusahan ini karena saat ujian waktu adalah soal.. hhe...
Algoritma Euclid adalah cara tersebut... Yaitu dengan mereduksi bilangan secara terus menerus... Reduksi tersebut dilakukan dengan melihat sisa pembagian dari satu bilangan dengan bilangan laen... Sisa terakhir yang tak nol adalah FPB yang dicari...
biar jelas perhatikan skema berikut...
jika a>b>0, FPB(a,b) dapat dicari dengan cara:
jadi FPB(a,b) yang dimaksud adalah variabel r yang berbasis n(maklum ga bisa diketik disini.. hhe... klo basis n itu variabel yang kecil dibawah)
Program :
Dim a, b As Integer
Function faktor(n, m As Integer)
If n > m Then
z = n
Else
z = m
End If
Do
a = a + 1
X = n Mod a
Y = m Mod a
If X = 0 Then Text5.Text = Text5.Text &
"[" & a & "]"
If Y = 0 Then Text6.Text = Text6.Text &
"[" & a & "]"
If X = 0 And Y = 0 Then Text7.Text = a
Loop Until a = z
End Function
Private Sub Command3_Click()
pesan = MsgBox("Anda Yakin Ingin
Keluar?", vbYesNo, "KELUAR")
If pesan = vbYes Then
End
End If
End Sub
Private Sub Command1_Click()
a = 0
Call faktor(Val(Text1.Text),
Val(Text2.Text))
Text3 = Val(Text1.Text) /
Val(Text2.Text)
Text4.Text = Val(Text1.Text) Mod
Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text1.SetFocus
End Sub
Semoga Bermanfaat kawan...
0 komentar:
Posting Komentar