Kamis, 19 Mei 2011

Algoritam-2 (Topik If)

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)
Write (“Hasil Analisa:”,Hasil Analisa)

0 komentar:

Posting Komentar