1.
Uraian kalimat Deskriptif (narasi):
•
Baca Alas (A)
•
Baca Sisi Miring (SM)
•
Keliling ß 2*(alas*sisimiring)
•
Tulis Keliling
2.
Flowchart
Manual
|
3.
Bentuk Pseudocode
Algoritma
Keliling_Jajar Genjang
{
Menerima masukkan Alas (A), Menerima masukkan Sisi Miring (SM), menghitung Kelilingnya dengan rumus 2*(alas*sisimiring),kemudian
menuliskan hasilnya }
|
|
Kamus
A,SM
: Integer
Keliling
: Double
|
|
Deskripsi
Read(A)
Read(SM)
Keliling
ß 2*(alas*sisimiring)
Write(Keliling)
|
4.
Uji
dengan menggunakan Raptor
5. Bahasa pemograman
menggunakan Console Application
(VB 2008/2010/2012)
Sub
Main()
'Bagian Judul
Console.WriteLine("Menghitung Keliling_Jajar Genjang")
Console.WriteLine("-------------------------")
'Bagian Kamus
Dim A,
sm As Integer
Dim
Keliling As Double
'Bagian
Deskripsi
Console.WriteLine("Masukan Nilai Alas: ")
A = Console.ReadLine
Console.WriteLine("Masukan Nilai Sisi Miring: ")
sm = Console.ReadLine
Keliling = 2 * (A * sm)
Console.WriteLine("Keliling: " & Keliling)
Console.ReadLine()
End Sub
