Mencari FPB menggunakan VB

sering kali semua topik yang membahas tentang FPB dan KPK di internet hanya dapat digunakan untuk 2 bilangan, padahal dengan logika yang sama yaitu menggunakan algoritma Euclidean kita bisa menghitung FPB yang lebih dari 2 bilangan. Saya akan mencoba memberikan logika untuk mencari FPB (3 bilangan), yang nantinya akan sama dengan logika untuk FPB 4 bilangan dan seterusnya. Pertama mari kita ambil contoh dengan memisalkan ketiga bilangan tersebut dengan x,y,z. Kemudian kita cari nilai FPB dari x,y dan hasilnya kita cari FPB nya lagi dengan z.

FPB (x,y,z) = FPB(FPB(x,y),z)

kurang lebih seperi diatas rumusnya, kemudian mari kita lihat codingnya dalam VB (Visual Basic), kurang lebih codingnya seperti berikut ini :

Private Function Euclid(nilai As String) As Integer
Dim larik() As String
larik = Split(nilai, “,”)
Do While Val(larik(0)) Mod Val(larik(1)) <> 0
a = larik(1)
b = larik(0) Mod larik(1)
larik(0) = a
larik(1) = b
Loop

Euclid = larik(1)
If UBound(larik) > 1 Then
For i = 2 To UBound(larik)
Euclid = Euclid(Euclid & “,” & larik(i))
Next
End If
End Function

cara penggunaanya cukup dengan memasukkan parameter nilai dengan tipe string dan dipenggal koma, jadi misalnya kita ingin mencari FPB 12,44,28

kita panggil dengan Euclid(“12,44,28”)

untuk selanjutnya tunggu artikel dari saya tentang Algoritma Stein untuk mencari FPB.