Mata Kuliah Algoritma dan Pemrograman 4 SKS Chapter

Mata Kuliah : Algoritma dan Pemrograman / 4 SKS Chapter 5 : Perulangan (Repeatition) Dosen Pengasuh : Fatoni, MM. , M. Kom toniubd@yahoo. com

Materi Yang Dipelajari Struktur Perulangan FOR Struktur Perulangan WHILE … DO Struktur Perulangan REPEAT … UNTIL Tanggal : 1/11/2022 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 2

Struktur Perulangan REPEAT … UNTIL • Perulangan dengan statemen REPEAT…UNTIL digunakan untuk mengulang (Repeat) statemen-statemen atau blok statemen sampai (Until) kondisi yang diseleksi di Until tidak terpenuhi. • Formatnya : Contohnya : REPEAT pernyataan counter+1 UNTIL ungkapan; Writeln(I) I : = I+1 UNTIL I=5; Tanggal : 1/11/2022 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 3

Perbedaan Struktur Perulangan REPEAT…UNTIL dengan WHILE. . . DO 1. Paling sedikit statemen-statemen di dalam perulangan Repeat…Until diproses sekali, karena seleksi kondisi ada pada statemen Until yang terletak dibawah. Sedang pada struktur While…Do paling sedikit dikerjakan nol kali, karena seleksi kondisi ada pada statemen While yang terletak diatas, sehingga kalau kondisi sudah tidak terpenuhi maka tidak akan masuk ke dalam lingkungan perulangannya. Struktur REPEAT…UNTIL Var I : Integer; Begin I : = 10; Repeat Writeln(I) I : = I + 1; Until I > 5; End. Tanggal : 1/11/2022 Struktur WHILE. . DO Var I : Integer; Begin I : = 10; While I < 5 Do Begin Writeln(I) I : = I + 1; End. Dosen Pengasuh : Fatoni, M. M. , M. Kom. 4

Perbedaan Struktur Perulangan REPEAT…UNTIL dengan WHILE. . . DO 2. Pada Repeat…Until dapat tidak dipergunakan block statement (tidak diperlukan BEGIN dan END untuk menunjukan batas perulangannya), karena batas perulangannya sudah ditunjukan oleh Repeat sampai dengan Until (Repeat dan Until sebagai pengganti Begin dan End). Struktur REPEAT…UNTIL Uses Crt; Var C, R, F : Real; Begin Clrscr; Writeln(‘--------------’); Writeln(‘ Celcius Reamur Fahrenheit’); Writeln(‘--------------’); C: =0; Repeat R : = 0. 8 * C; F : = 1. 8 * C + 32; C : = C + 0. 5; Writeln(C: 6: 2, R: 6: 2, F: 6: 2); Tanggal : 1/11/2022 Until C = 5; Writeln(‘-----------’); Repeat Until Keypressed; End. Dosen Pengasuh : Fatoni, M. M. , M. Kom. 5

Contoh Soal : Perulangan Positif • Contoh : Tampilkan tulisan “Saya sedang belajar Algoritma dan Bahasa Pascal”, sebanyak 10 kali perulangan. • Programnya : Program Perulangan 1; { Perulangan Positif dengan Lebih Pernyataan } { Deklarasi } Uses Crt; Var X : Integer; { Deskripsi } Begin Clrscr; X : = 0; Repeat X : = X+1; Write(‘Tulisan ke : ‘, X, ’ ‘); Writeln(‘Saya sedang belajar Algoritma dan Bahasa Pascal’); Until X=10; Repeat Until Keypressed; End. Tanggal : 1/11/2022 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 6

Contoh Soal : Perulangan Positif • Hasilnya (Output) pada Program tersebut : Tulisan Tulisan Tulisan Tanggal : 1/11/2022 ke ke ke : : : : : 1 Saya sedang belajar Algoritma dan Bahasa Pascal 2 Saya sedang belajar Algoritma dan Bahasa Pascal 3 Saya sedang belajar Algoritma dan Bahasa Pascal 4 Saya sedang belajar Algoritma dan Bahasa Pascal 5 Saya sedang belajar Algoritma dan Bahasa Pascal 6 Saya sedang belajar Algoritma dan Bahasa Pascal 7 Saya sedang belajar Algoritma dan Bahasa Pascal 8 Saya sedang belajar Algoritma dan Bahasa Pascal 9 Saya sedang belajar Algoritma dan Bahasa Pascal 10 Saya sedang belajar Algoritma dan Bahasa Pascal Dosen Pengasuh : Fatoni, M. M. , M. Kom. 7

Contoh Soal : Perulangan Negatif • Contoh : Tampilkan tulisan “ 5 angka terbesar ke-1”, sampai dengan seterusnya hingga menjadi “ 1 angka terbesar ke-5”. • Programnya : Program Perulangan 2; { Perulangan Negatif dengan Lebih Pernyataan } { Deklarasi } Uses Crt; Var X, C : Integer; { Deskripsi } Begin Clrscr; X: =5; C: =1 Repeat Writeln(X, ’ Angka Terbesar ke-’, C); X : = X-1; C : = C+1; Until X = 0; Repeat Until Keypressed; End. Tanggal : 1/11/2022 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 8

Contoh Soal : Perulangan Negatif • Hasilnya (Output) pada Program tersebut : 100 Angka Terbesar ke-5 95 Angka Terbesar ke-10 90 Angka Terbesar ke-15 85 Angka Terbesar ke-20 80 Angka Terbesar ke-25 dst 10 Angka Terbesar ke-95 5 Angka Terbesar ke-100 Tanggal : 1/11/2022 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 9

Contoh Soal : Perulangan Tersarang • Contoh : Buatlah tampilan perhitungan perkalian 1 dan 2 dikalikan dengan angka 1 sampai dengan angka 5. • Programnya : Program Perulangan 3; Uses Crt; Var X, Y : Integer; Begin Clrscr; X: =0; Repeat X : = X+1; Y: =0; Repeat Y : = Y+1; Writeln(X, ’ x ’, Y, ’ = ‘, X*Y); Until Y = 5; Until X = 2; Repeat Until Keypressed; End. Tanggal : 1/11/2022 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 10

Contoh Soal : Perulangan Tersarang • Hasilnya (Output) pada Program tersebut : 1 1 1 2 2 2 x x x x x 1 2 3 4 5 = = = = = Tanggal : 1/11/2022 1 2 3 4 5 2 4 6 8 10 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 11

Soal Latihan 1. 2. 3. 4. 5. 6. 7. 8. Tampilkan bilangan 1 -10 dengan for. . to. . do, while. . do, dan repeat. . until! Buatlah program penghitung faktorial! Buatlah program untuk memangkatkan bilangan dengan looping! Buatlah program untuk menampilkan tabel penjumlahan! Buatlah program untuk menampilkan tabel perkalian! Buatlah program untuk menampilkan bilangan genap dari 1 -100! Buatlah program menu yang selalu berulang sampai user memilih pilihan exit! Buatlah program yang selalu menanyakan pada user: “mau lagi“? , jika user mengetikkan ‘Y’ atau ‘y’, maka akan mengulang program, sebaliknya jika user, mengetikkan ‘T’ atau ‘t’, maka program akan selesai. Tanggal : 1/11/2022 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 12

Soal Latihan 9. Buatlah deret : n=4 1 Fakt = 1 1 2 Fakt = 2 1 2 3 Fakt = 6 1 2 3 4 Fakt = 24 12345 11111 22222 33333 1 1 1 2 3 4 5 234 23 2 Tanggal : 1/11/2022 2345 45 5 1 2 3 4 5 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 13

Soal Latihan 9. 1 2 3 4 5 Buatlah deret : 1111 222 33 4 Tanggal : 1/11/2022 12345 6 7 8 9 10 11 12 13 14 15 12345 6789 10 11 12 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 14

Pekerjaan Rumah 1. Buat program untuk menghtung banyaknya bilangan genap dan ganjil serta total dari bilangan-bilangan genap dan ganjil yang ada dari n buah bilangan. 2. Buat program untuk menampilkan deret bilangan prima dari 1 sampai dengan n, dimana n adalah inputan dari user. 3. Mencetak Tulisan “<x> UBD Almamaterku <y>” sebanyak 10 kali, dengan <x> adalah nomor urut (mulai 1 sampai 10), sedngkan <y> adalah nomor urut terbalik (mulai 10 sampai 1) 4. Buatlah tabel harga fotokopian dari 1 – 100 lembar, dimana harga perlembar adalah 80 rupiah! 5. Buatlah program untuk menampilkan deret sebagai berikut: 12345 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dengan 1 buah loop saja! Tanggal : 1/11/2022 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 15

Pekerjaan Rumah 6. Buatlah program dengan looping untuk menampilkan hasil seperti berikut: P Q P or Q P and Q Not P P xor Q 1 1 0 0 1 0 1 1 0 0 1 0 Tanggal : 1/11/2022 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 16

Pekerjaan Rumah 7. 8. Buatlah program untuk menampilkan deret seperti: Untuk n = 5 XOXOX XOXO XOX XO X Buatlah program untuk menampilkan bilangan fibonacci pada deret ke-n! Bilangan fibonacci adalah bilangan seperti: 1 1 2 3 5 8 13. . . dst Jadi jika inputan n = 7, maka hasil adalah 13 Tanggal : 1/11/2022 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 17

Dosen Pengasuh : Fatoni, MM. , M. Kom toniubd@yahoo. com