PROGRAM ALGORITMA EUCLIDEAN & ARITMATKA MODULAR

Tujuan: algoritma untuk mencari PBB dari dua buah bilangan bulat.

Pengertian Algoritma Euclid

Salah satu cara mencari FPB adalah dengan algoritma Euclid. Tahun 1950, algoritma pertama kali di gunakan pada “Algoritma Euclidean (Euclid’s algorithm)“.
Euclid, matematikawan Yunani (lahir 350 SM), buku Element menuliskan langkah-langkah untuk menemukan pembagi bersama terbesar (common greatest divisor atau gcd), dari dua buah bilangan bulat, m dan n.
pembagi bersama terbesar dari dua buah bilangan bulat tak negatif adalah bilangan bulat positif terbesar yang habis membagi kedua bilangan tersebut.

Misalnya, m = 45 dan n = 36.Semua faktor pembagi 45 adalah 1, 3, 5, 9, 15,45
Semua faktor pembagi 36 adalah 1, 2, 3, 4, 6, 9,12,18,36
maka PBB(45,36) = 9 

Berikut Output menggunakan aplikasi VB ( Visual Basic) 

Source Code menggunakan Visual Basic

Ø  Private Sub cmdkeluar_Click()

pesan = MsgBox("Anda Yakin Ingin Keluar?", vbYesNo, "KELUAR")

If pesan = vbYes Then

End

End If

End Sub

Ø  Private Sub cmdproses_Click()

Dim a, b, c, i, x As Integer

a = Text1.Text

b = Text2.Text

If Val(a) > Val(b) Then

x = a

ElseIf Val(b) > Val(a) Then

x = b

End If

Print x

For i = 1 To x

If a Mod i = 0 And b Mod i = 0 Then

c = i

Text5.Text = Text5.Text & " " & Str(c)

End If

If a Mod i = 0 And b Mod i = 0 Then

c = i

End If

Next i

Text6.Text = c

vbil = Val(Text1.Text)

vbil1 = Val(Text2.Text)

For i = 1 To vbil

If vbil Mod i = 0 Then

Text3.Text = Text3.Text + Str(i)

End If

Next i

For n = 1 To vbil1

If vbil1 Mod n = 0 Then

Text4.Text = Text4.Text + Str(n)

End If

Next n

End Sub

Ø  Private Sub cmdulangi_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text1.SetFocus

End Sub

ARITMATIKA MODULAR

Aritmatika modular merupakan operasi matematika yang banyak diimplementasikan pada metode kriptografi. Aritmatika modulo mengambil bilangan tak berhingga dan menggulungnya dalam suatu lingkaran terbatas. Semua bilangan yang melintasi point yang sama pada titik lingkaran adalah kongruen.

Satu keistimewaan aritmatika modulo yaitu dapat mengganti bentuk operasi penambahan dan perkalian dengan nilai kongruen, dan masih dapat diperoleh nilai yang benar.

Berikut Output  menggunakan aplikasi VB ( Visual Basic)

 

Source Code menggunakan Visual Basic

Dim a, b As Integer

Function faktor(n, m As Integer)

End Function

Ø  Private Sub Cmdform2_Click()

Form2.Show

End Sub

Ø  Private Sub cmdproses_Click()

a = 0

Call faktor(Val(Text1.Text), Val(Text2.Text))

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

Text4.Text = Val(Text1.Text) Mod Val(Text2.Text)

End Sub

Ø  Private Sub cmdulangi_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text1.SetFocus

End Sub

http://uts-sumbawa.ac.id  
http://ft-sumbawa.ac.id