Jumat, 29 Oktober 2010

MENGHITUNG LUAS LINGKARAN DAN PERSEGI

Sub Main()
        Const phi = 3.14
        Dim Rumus As Byte
        Dim p, l, luas, r, luas2, n As Integer

        Console.WriteLine("1 = Lingkaran ")
        Console.WriteLine("2 = Persegi ")
        Console.WriteLine("3 = Menghitung Nilai ")
        Console.WriteLine("Masukkan Angka untuk rumus : ")
        Rumus = Console.ReadLine
        Select Case Rumus
            Case 1
                Console.WriteLine("Mengehitung Luas Lingkran")
                Console.Write("masukkan jari2 : ")
                r = Console.ReadLine
                luas2 = phi * r ^ 2
                Console.Write("Hasil Adalah : " & luas2)
                Console.ReadKey()
            Case 2
                Console.WriteLine("Mengehitung Luas Persegi")
                Console.Write("Masukkan Panjang :")
                p = Console.ReadLine
                Console.Write("Masukkan Lebar :")
                l = Console.ReadLine
                luas = p * l
                Console.WriteLine("Hasil : " & luas)
            Case 3
                Console.Write("Masukkan Nilai Anda :")
                n = Console.ReadLine
                If n >= 85 And n <= 100 Then
                    Console.WriteLine("Conversi Nilai Anda : A")
                ElseIf n >= 70 And n < 85 Then
                    Console.WriteLine("Conversi Nilai Anda : B")
                ElseIf n >= 60 And n < 70 Then
                    Console.WriteLine("Conversi Nilai Anda : C")
                ElseIf n >= 25 And n < 60 Then
                    Console.WriteLine("Conversi Nilai Anda : D")
                ElseIf n >= 0 And n < 25 Then
                    Console.WriteLine("Conversi Nilai Anda : E")
                Else
                    Console.WriteLine("Nilai yang Anda Masukkan Error")
                End If
        End Select

        Console.ReadKey()
    End Sub

0 komentar:

Posting Komentar

Silahkan gan komentarnya,,karena komentar anda sangat berarti bagi blog ini...Salam blogger

Jangan lupa kasih komentar nya ya gan...