Sabtu, 04 Desember 2010

Perpangkatan

Imports System.Console

Module Module1
    Dim a, b, c As Long

    Sub Main()
        Write("Masukan Bilangan : ")
        a = ReadLine()
        Write("Masukan Pangkat  : ")
        b = ReadLine()

        c = a ^ b

        Write("hasil : " & c)

        Read()
    End Sub

End Module

0 komentar:

Posting Komentar

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

Jangan lupa kasih komentar nya ya gan...