Palindrome

(klik on the image if want to see real image)

Palindrome : adalah kata, kalimat, bilangan yang jika dibaca dari arah berlainan memiliki tulisan yang sama, untuk lebih lengkapnya silahkan klik disini , Misalkan :

1. KataK
2. KodoK
3. SuguS
4. KasuR RusaK
5. KasuR NababaN RusaK
6. SatoR ArepO TeneT OperA RotaS
7. 121 23 42 56 65 24 32 121

Di bawah ini adalah algoritma berikut sintaksnya untuk mengecek apakah kata ini palindrome atau bukan di VB.Net / Visual Basic 2008,- silahkan dipelajari :


Public Class Palindrome

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str() As String
Dim n, i As Integer

n = InputBox("Masukkan banyaknya string ?", "Cek Palindrome")

ReDim str(n - 1)

For i = 0 To str.Length - 1
str(i) = InputBox("Masukkan Kata Ke-" & i + 1, "Cek Palindrome")
str(i) = UCase(str(i))
ListBox1.Items.Add(str(i))
Next

cekpalindrome(str)

End Sub

Function cekpalindrome(ByVal str() As String)
Dim rts(str.Length - 1) As String
Dim i, j As Integer

For i = 0 To str.Length - 1
For j = Len(str(i)) To 1 Step -1
If Mid(str(i), j, 2) = " " Then
j = j - 1
End If
rts(i) = rts(i) & Mid(str(i), j, 1)
Next j
Next i

For i = 0 To str.Length - 1
If rts(i) = str(i) Then
ListBox2.Items.Add("PALINDROME")
Else
ListBox2.Items.Add("BUKAN PALINDROME")
End If
Next

End Function

End Class

----- Code'It, Write'It, Share'It, Love'It -----
----------- IT Field It's My Passion -----------

Correct Me If I'am Wrong