"MUSUH BESAR TANOS"
1. Algoritma menggunakan flowchart dan pseudocode untuk menghitung luas persegi panjang.
Program_LuasPersegiPanjang
Deklarasi
Panjang: Integer
Lebar: Integer
Luas: Integer
Deskripsi
Begin
Read (Panjang, Lebar);
Luas=Panjang*Lebar;
Print Luas
End
=======================================================
Program_JamMenitDetik
Deklarasi
Detik: Integer
Menit: Integer
Jam: Integer
Deskripsi
Begin
Read (Detik);
Jam= Detik/3600;
Menit= Detik/60;
Print Jam;
Print Menit;
End
=======================================================
3. Algoritma menggunakan flowchart dan pseudocode untuk menentukan bilangan yang diinputkan adalah bilangan ganjil atau genap.
Program_GanjilGenap
Deklarasi
Bil: Integer
Deklarasi
Begin
If Bil mod 2=0 then
Print "Bilangan Genap"
Else
Print "Bilangan Ganjil"
End If
End
=======================================================
4. Algoritma menggunakan flowchart dan pseudocode untuk menghitung luas lingkaran.
Program_LuasLingkaran
Deklarasi
Phi: Integer
r: Integer
Luas: Integer
Deskripsi
Begin
Read (Phi, r);
Luas=Phi*r*r;
Print Luas
End
=======================================================
5. Algoritma menggunakan flowchart dan pseudocode untuk menginputkan 3 buah bilangan kemudian menentukan bilangan terbesar, terkecil, dan rata-rata.
Program_BilTerbesar
Deklarasi
a: Integer
b: Integer
c: Integer
Deskripsi
Begin
IF a>b and a>c then
Print "a Bilangan Terbesar"
Else
IF b>a and b>c then
Print "b Bilangan Terbesar"
Else
Print "c Bilangan Terbesar"
End IF
End IF
End
------------------------------------------------------------------------------------------------
Program_BilTerkecil
Deklarasi
a: Integer
b: Integer
c: Integer
Deskripsi
Begin
IF a<b and a<c then
Print "a Bilangan Terkecil"
Else
IF b<a and b<c then
Print "b Bilangan Terkecil"
Else
Print "c Bilangan Terkecil"
End IF
End IF
End
------------------------------------------------------------------------------------------------
Program_Rerata
Deklarasi
a: Integer
b: Integer
c: Integer
Jumlah: Integer
Rerata: Integer
Deskripsi
Begin
Read (a, b, c);
Jumlah= a+b+c;
Rerata=Jumlah/3;
Print Rerata;
End
0 Response to "Pseudocode 1 sampe 5"
Post a Comment