Program untuk Meghitung Luas dan Keliling; Segitiga sama kaki, Persegi, Persegi panjang, Lingkaran, menggunakan java


Script;

Module Module1
Dim pilih, a, ts, LS, KS, sp, LP, KP, p, l, LPP, KPP, r, LL, KL As Double
Dim conf As String

Sub Main()
b:
Console.WriteLine("PILIH JENIS PENGHITUNGAN")
Console.WriteLine("1. LUAS DAN KELILING SEGITIGA SAMA KAKI")
Console.WriteLine("2. LUAS DAN KELILING PERSEGI")
Console.WriteLine("3. LUAS DAN KELILING PERSEGI PANJANG")
Console.WriteLine("4. LUAS DAN KELILING LINGKARAN")
pilih = CInt(Console.ReadLine)
If (pilih = 1) Then
Console.WriteLine("HITUNG LUAS DAN KELILING SEGITIGA SAMA KAKI")
Console.WriteLine("Masukkan ALAS : ")
a = CDbl((Console.ReadLine))
Console.WriteLine("Masukkan TINGGI : ")
ts = CDbl((Console.ReadLine))
LS = (1.5 * a * ts)
KS = (a + a + a)
Console.WriteLine("LUAS = " & LS)
Console.WriteLine("KELILING = " & KS)
Console.WriteLine("------------------------------------------")
c:
Console.WriteLine("APAKAH ANDA INGIN MENGULANGI LAGI (y/t)")
conf = (Console.ReadLine)
Select Case conf
Case "y"
GoTo b
Case "t"
Console.WriteLine("----------SEKIAN----------")
Case Else
Console.WriteLine("----------SALAH----------")
End Select
ElseIf (pilih = 2) Then
Console.WriteLine("HITUNG LUAS DAN KELILING PERSEGI")
Console.WriteLine("Masukkan SISI : ")
sp = CDbl((Console.ReadLine))
LP = (sp * sp)
KP = (4 * sp)
Console.WriteLine("LUAS = " & LP)
Console.WriteLine("KELILING = " & KP)
Console.WriteLine("------------------------------------------")
GoTo c
ElseIf (pilih = 3) Then
Console.WriteLine("HITUNG LUAS DAN KELILING PERSEGI PANJANG")
Console.WriteLine("Masukkan PANJANG : ")
p = CDbl((Console.ReadLine))
Console.WriteLine("Masukkan LEBAR : ")
l = CDbl((Console.ReadLine))
LPP = (p * l)
KPP = ((2 * p) + (2 * l))
Console.WriteLine("LUAS = " & LPP)
Console.WriteLine("KELILING = " & KPP)
Console.WriteLine("------------------------------------------")
GoTo c
ElseIf (pilih = 4) Then
Console.WriteLine("HITUNG LUAS DAN KELILING LINGKARAN")
Console.WriteLine("Masukkan JARI-JARI : ")
r = CDbl((Console.ReadLine))
LL = (3.14 * r * r)
KL = (3.14 * (2 * r))
Console.WriteLine("LUAS = " & LL)
Console.WriteLine("KELILING = " & KL)
Console.WriteLine("------------------------------------------")
GoTo c
Else
Console.WriteLine("MOHON MASUKKAN PILIHAN YANG BENAR.....!!!!!!!!!")
End If
Console.ReadKey()


End Sub

End Module


0 Responses So Far: