PROGRAM BILANGAN_GENAP
DEKLARASI :
X : Integer
ALGORITMA
INPUT
Read ( X )
PROSES
If (x mod 2 = 0) Then
Write (“ x bilangan genap “)
Endif
OUTPUT
PROGRAM Konversi_waktu
DEKLARASI :
X, Hari, Bulan, Tahun : integer
ALGORITMA
INPUT
Read (x)
PROSES
If ( x >= 365 ) then
Tahun←x div 365
Sisa←x mod 365
Bulan←Sisa div 30
Hari←Sisa mod 30
Else
if ( 365 > x >= 30 ) then
Bulan←x div 30
Hari←x mod 30
Else
Hari←x
Endif
Endif
OUTPUT
Writeln ( “ Lama proyek : “, x )
Writeln (“ Tahun : “, Tahun )
Writeln ( “ Bulan : “, Bulan )
Write ( “ Hari : “, Hari )
PROGRAM Tahun_Kabisat
DEKLARASI :
Tahun : Real
Nama, Tanggal : String
ALGORITMA
INPUT
Readln ( Tahun )
Readln ( Nama )
Read ( Tanggal )
PROSES
If ( Tahun mod 4 = 0 ) then
If ( Nama = “ Mella “ ) then
If ( tanggal = “ 29 ” ) then
Write ( “ Selamat Ulang Tahun Mella Pada Tanggal 29 “ )
Else
Write ( “ Mella Tidak Dapat Merayakan Ulang Tahun “ )
Endif
Else
Write ( “ Setiap Tahun Kabisat maka Febuari Menjadi 29 Hari “ )
Endif
Else
Write ( “ Tahun Ini Bukan Tahun kabisat “ )
Endif
OUTPUT
PROGRAM
DEKLARASI
Makanan, Rasa, Hasil Analisa : String
Harga : Real
ALGORITMA
INPUT
Readln (Makanan)
Readln (Rasa)
Read (Harga)
PROSES
If (Makanan = “Roti”, “Mie”, “Somay”) then
If (Rasa = “Enak”) then
If (Harga < 20000) then
Write (Hasil Analisa = “Saya Beli”)
Else
Write (Hasil Analisa = “Saya Tidak Beli”)
Endif
Else
Write (Hasil Analisa = “Saya Tidak Beli”)
Endif
Else
Write (Hasil Analisa = “saya kurang suka”)
Endif
OUTPUT
Writeln (“Makanan :”,Makanan)
Writeln (“Rasa :”,Rasa)
Writeln (“Harga :”,Harga)
0 komentar:
Posting Komentar