Pemrograman Desktop (Program Mod Ganjil Genap)

Program Mod Ganjil Genap

1. Script Program

Module GenapGanjil

    Function IsGenap(x As Long) As Boolean

        If (x Mod 2) = 0 Then

            Return True

        Else

            Return False

        End If

    End Function

    REM program utama

    Sub main()

        Dim bil As Long

        Console.Write("Masukkan Bilangan :")

        bil = Console.ReadLine()

        If IsGenap(bil) Then

            Console.WriteLine("Bilangan {0} adalah Genap", bil)

        Else

            Console.WriteLine("Bilangan {0} adalah Ganjil", bil)

        End If

        Console.ReadLine()

    End Sub

End Module

2. Hasil Setelah Dijalankan

jika yang diinput bilangan Genap

jika yang diinput bilangan ganjil