Jumat, 03 Desember 2010

PERSEGI PANJANG

Sub Main()
        Dim panjang As Integer
        Dim lebar As Integer
        Dim luas As Long

        Console.Write("masukkan panjang:")
        panjang = Console.ReadLine()
        Console.Write("masukkan lebar:")
        lebar = Console.ReadLine()
        luas = panjang * lebar
        Console.WriteLine("luas persegi panjang adalah:" & luas.ToString())



        Dim r As Single
        Dim Luas1 As Double

        Const PI As Single = 3.14

        Console.Write("masukkan jari-jari:")
        r = Console.ReadLine()
        Luas1 = PI * r ^ 2
        Console.WriteLine("Luas : {0, 10:f2}", Luas1) '10 tempat 2 desimal
        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...