Mata Kuliah Algoritma dan Pemrograman 4 SKS Chapter

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

Materi Yang Dipelajari Struktur Perulangan FOR Struktur Perulangan WHILE … DO Struktur Perulangan REPEAT … UNTIL Tanggal : 12/17/2021 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 2

Struktur Perulangan FOR • Perulangan dengan statemen FOR digunakan untuk mengulang statemen atau satu blok statemen berulang kali sejumlah yang ditentukan. Perulangan dengan statemen FOR dapat berbentuk perulangan positif, perulangan negatif dan perulangan tersarang. Tanggal : 12/17/2021 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 3

Perulangan FOR pada Perulangan Positif • Perulangan positif adalah perulangan dengan penghitung (counter) dari kecil ke besar atau dengan kata lain pertambahannya positif. Perulangan positif dapat dibentuk dengan menggunakan statemen For … To … Do • Formatnya : 1. FOR variabel_kontrol : = nilai_awal TO nilai_akhir DO pernyataan Penulisan syntax dengan menggunakan format seperti ini digunakan untuk menuliskan pernyataan yang hanya terdiri dari satu pernyataan. 2. FOR variabel_kontrol : = nilai_awal TO nilai_akhir DO BEGIN pernyataan END; Penulisan syntax dengan menggunakan format seperti ini digunakan untuk menuliskan pernyataan yang terdiri lebih dari satu pernyataan. Tanggal : 12/17/2021 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 4

Perulangan FOR pada Perulangan Positif • Contoh : Tampilkan tulisan “Saya sedang belajar Algoritma dan Bahasa Pascal”, sebanyak 5 kali perulangan. • Programnya : Program Perulangan_1; { Perulangan Positif dengan 1 Pernyataan } { Deklarasi } Uses Crt; Var X : Integer; { Deskripsi } Begin Clrscr; For X: =1 To 5 Do Writeln(‘Saya sedang belajar Algoritma dan Bahasa Pascal’); Repeat Until Keypressed; End. Tanggal : 12/17/2021 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 5

Perulangan FOR pada Perulangan Positif • Programnya : Program Perulangan_2; { Perulangan Positif dengan Lebih Pernyataan } { Deklarasi } Uses Crt; Var X : Integer; { Deskripsi } Begin Clrscr; For X: =1 To 5 Do Begin Write(‘Tulisan ke : ‘, X, ’ ‘); Writeln(‘Saya sedang belajar Algoritma dan Bahasa Pascal’); End; Repeat Until Keypressed; End. Tanggal : 12/17/2021 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 6

Perulangan FOR pada Perulangan Positif • Hasilnya (Output) pada Program ke-1 : Saya Saya sedang sedang belajar belajar Algoritma Algoritma dan dan dan Bahasa Bahasa Pascal Pascal • Hasilnya (Output) pada Program ke-2 : Tulisan Tulisan ke ke ke Tanggal : 12/17/2021 : : : 1 2 3 4 5 Saya Saya sedang sedang belajar belajar Algoritma Algoritma dan dan dan Bahasa Bahasa Pascal Pascal Dosen Pengasuh : Fatoni, M. M. , M. Kom. 7

Perulangan FOR pada Perulangan Negatif • Perulangan negatif adalah perulangan dengan penghitung (counter) dari besar ke kecil atau dengan kata lain pertambahannya negatif. Perulangan negatif dapat dibentuk dengan menggunakan statemen For…Down. To…Do • Formatnya : 1. FOR variabel_kontrol : = nilai_awal DOWNTO nilai_akhir DO pernyataan Penulisan syntax dengan menggunakan format seperti ini digunakan untuk menuliskan pernyataan yang hanya terdiri dari satu pernyataan. 2. FOR variabel_kontrol : = nilai_awal DOWNTO nilai_akhir DO BEGIN pernyataan END; Penulisan syntax dengan menggunakan format seperti ini digunakan untuk menuliskan pernyataan yang terdiri lebih dari satu pernyataan. Tanggal : 12/17/2021 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 8

Perulangan FOR pada Perulangan Negatif • Contoh : Tampilkan tulisan “ 5 angka terbesar ke-1”, sampai dengan seterusnya hingga menjadi “ 1 angka terbesar ke-5”. • Programnya : Program Perulangan_3; { Perulangan Negatif dengan Lebih Pernyataan } { Deklarasi } Uses Crt; Var X, C : Integer; { Deskripsi } Begin Clrscr; C: =1 For X: =5 Down. To 1 Do Begin Writeln(X, ’ Angka Terbesar ke-’, C); C : = C+1; End; Repeat Until Keypressed; End. Tanggal : 12/17/2021 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 9

Perulangan FOR pada Perulangan Negatif • Hasilnya (Output) pada Program tersebut : 5 4 3 2 1 Angka Angka Terbesar Terbesar Tanggal : 12/17/2021 ke-2 ke-3 ke-4 ke-5 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 10

Perulangan FOR pada Perulangan Tersarang (Nested Loop) • Perulangan tersarang (nested loop) adalah perulangan yang berada didalam perulangan lainnya. Perulangan yang lebih dalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan bertambah, mengerjakan perulangan yang lebih dalam lagi mulai dari nilai awalnya dan seterusnya. • Perulangan tersarang ini bisa divariasikan antara perulangan yang berada diluar dengan yang berada didalam, dengan kombinasinya adalah perulangan tersarang positif–positif, positif-negatif, negatif -positif, dan negatif-negatif. • Formatnya perulangan tersarang positif–positif : 1. FOR variabel_kontrol_1 : = nilai_awal TO nilai_akhir DO BEGIN FOR variabel_kontrol_2 : = nilai_awal TO nilai_akhir DO BEGIN pernyataan END; Tanggal : 12/17/2021 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 11

Perulangan FOR pada Perulangan Tersarang (Nested Loop) • Formatnya perulangan tersarang positif–negatif : 2. FOR variabel_kontrol_1 : = nilai_awal TO nilai_akhir DO BEGIN FOR variabel_kontrol_2 : = nilai_awal DOWNTO nilai_akhir DO BEGIN pernyataan END; • Formatnya perulangan tersarang negatif–positif : 3. FOR variabel_kontrol_1 : = nilai_awal DOWNTO nilai_akhir DO BEGIN FOR variabel_kontrol_2 : = nilai_awal TO nilai_akhir DO BEGIN pernyataan END; Tanggal : 12/17/2021 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 12

Perulangan FOR pada Perulangan Tersarang (Nested Loop) • Formatnya perulangan tersarang negatif–negatif : 4. FOR variabel_kontrol_1 : = nilai_awal DOWNTO nilai_akhir DO BEGIN FOR variabel_kontrol_2 : = nilai_awal DOWNTO nilai_akhir DO BEGIN pernyataan END; Tanggal : 12/17/2021 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 13

Perulangan FOR pada Perulangan Tersarang (Nested Loop) • Contoh : Buatlah tampilan perhitungan perkalian 1 dan 2 dikalikan dengan angka 1 sampai dengan angka 5. • Programnya : Program Perulangan_4; { Perulangan Positif – Positif dengan Lebih Pernyataan } { Deklarasi } Uses Crt; Var X, Y : Integer; { Deskripsi } Begin Clrscr; For X: =1 To 2 Do Begin For Y: =1 To 5 Do Begin Writeln(X, ’ x ’, Y, ’ = ‘, X*Y); End; Repeat Until Keypressed; End. Tanggal : 12/17/2021 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 14

Perulangan FOR pada Perulangan Tersarang (Nested Loop) • Hasilnya (Output) pada Program tersebut : 1 1 1 2 2 2 x x x x x 1 2 3 4 5 = = = = = 1 2 3 4 5 2 4 6 8 10 Tanggal : 12/17/2021 Dosen Pengasuh : Fatoni, M. M. , M. Kom. 15

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