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:
:a: :b: :c: :d: :e: :f: :g: :h: :i: :j: :k: :l:
Posting Komentar
Silahkan gan komentarnya,,karena komentar anda sangat berarti bagi blog ini...Salam blogger