DISKUSI KELOMPOK MINGGU KE_3

Nama kelompok
1. Sri Rustiningsih (10018092)
2. Isliyati (10018091)
3. Nurul Hidayah (10018095)

1.     Bangun Tidur

2.     Rapi’in tempat tidur

·        Kalau saya tidak merapikan tempat tidur maka kamar saya berantakan

3.     Mandi

·        Jika saya tidak mandi maka saya bau’

4.     Sarapan

5.     Berangkat kuliah

·        Kalau  saya lewat jalan pramuka maka saya akan telat.

6.     Masuk kelas.

7.     Kuliah

Deklarasi:

Angka_ke:Integer;

Angka:String;

Deskripsi:

Read  : (Angka_ke);

Pilih (Hari_ke) untuk

1 : hari↔ 'Senin';

2 : hari ↔'Selasa';

3 : hari ↔ 'Rabu';

4 : hari ↔ 'Kamis';

5 : hari ↔ 'Jum''at';

6 : hari ↔ 'Sabtu';

else hari ↔ 'Minggu';

end {pilih}

write(hari)