Diktat Bab 4 Kasus 4.5

Algoritma menentukan_hari

{Masukkan integer 1 sampai 7, akan ditentukan hari apa yang sesuai}

Deklarasi

                Hari_ke : iteger

                Hari : string

Deskripsi:

                Read(hari_ke);

                Case (hari_ke)of

                                1 : hari ß ‘Senin’;

                                2 : hari ß ‘Selasa’;

                                3 : hari ß ‘Rabu’;

                                4 : hari ß ‘Kamis’;

                                5 : hari ß ‘Jumat’;

                                6 : hari ß ‘Sabtu’;

Else hari ß’Minggu’;

                End case

                Write (hari)