Modul xi
- 1. PERULANGAN DENGAN REPEAT ... UNTIL ... A. TUJUAN 1. Memahami statement perulangan dengan repeat ... until ... dalam Pascal 2. Memahami proses perulangan dengan jumlah yang tidak diketahui 3. Mampu mengaplikasikan proses perulangan dalam program Pascal B. DASAR TEORI Bentuk umum dari REPEAT ... UNTIL ... adalah sebagai berikut : REPEAT Statement1; Statement2; ... UNTIL (ekspresi logika) Blok perulangan dalam repeat until tidak memerlukan BEGIN dan END sebagai tanda bagian yang diulang, sebab repeat until itu sendiri sudah menjadi pembatas bagian yang diulang. Cara kerja perulangan repeat until adalah mula-mula blok perulangan dilaksanakan. Setelah itu baru ekspresi logika dicek. Apabila ekspresi logika SALAH atau FALSE, maka blok perulangan dikerjakan. Apabila ekspresi logika bernilai BENAR atau TRUE, maka blok perulangan tidak dikerjakan lagi. C. LATIHAN SOAL 1. Nomor Program 1101 a. Tulislah program berikut ini dan amatilah outputnya! PROGRAM repeat_until; USES CRT; VAR i : integer; BEGIN CLRSCR; i := 3; REPEAT WRITELN(i:10); INC(i); UNTIL (i < 10); READLN; END. b. Jika statement i := 3; diganti menjadi i := 30; dan statement INC(i); diganti menjadi DEC(i); bagaimana outputnya? Keterangan : fungsi DEC(i) berguna untuk mengurangi nilai variabel dengan 1. .................................................................................................................. .................................................................................................................. .................................................................................................................. blok perulangan
- 2. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. 2. Nomor Program 1102 a. Tulislah program berikut dan amatilah outputnya! PROGRAM tebakan; USES CRT; VAR bilangan, tebak : integer; BEGIN CLRSCR; RANDOMIZE; bilangan := random(10) + 1; WRITELN(‘Saya memiliki sebuah bilangan antara 1-10. Coba tebak! ‘); REPEAT WRITE(‘Tebakan anda adalah : ‘); READLN(tebak); IF tebak <> bilangan THEN WRITELN(‘Tebakan salah. Coba tebak lagi.’) ELSE WRITELN(‘Kamu is the best. Tebakanmu tepat.’); UNTIL (tebak = bilangan); READLN; END. Program di atas menggunakan prosedur randomize yang berguna untuk menghasilkan bibit bilangan random atau acak. Bilangan acak tersebut nanti dihasilkan oleh fungsi random(10). Fungsi random(10) akan menghasilkan bilangan bulat acak dari 0 s.d. 9. b. Modifikasilah program di atas untuk menebak tanggal lahir. Nilai tanggal tentunya dimulai dari angka 1 s.d. 31. Petunjuk : gunakan fungsi random() dengan nilai variabel yang sesuai. .................................................................................................................. .................................................................................................................. ..................................................................................................................
- 3. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. .................................................................................................................. 3. Nomor Program 1103 Buatlah program untuk menampilkan bilangan genap sempai nilai tertentu yang diinputkan. Contoh output : Masukkan bilangan tertinggi : 11 11 diinput oleh user Deret bilangan genap : 0 2 4 6 8 10 ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ 4. Nomor Program 1104 Sama dengan nomor program 1103, tetapi untuk menampilkan deret bilangan ganjil. ........................................................................................................................ ........................................................................................................................
- 4. ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ 5. Nomor Program 1105 Sama dengan nomor program 1103, tetapi untuk menampilkan deret bilangan fibonacci. ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................ ........................................................................................................................