PRAKTIKUM 5 DAN 6 STATEMEN PERULANGAN

Prak. Algoritma dan Pemrograman

PRAKTIKUM 5 DAN 6 STATEMEN PERULANGAN

1. Judul Materi/ Pokok Bahasan

: Statemen Perulangan

2. Tujuan Insruksional Khusus

: Mahasiswa dapat menggunakan dan membedakan jenis- jenis statement perulangan dalam bahasa pascal

3. Pengetahuan Prasyarat

: Tipe data sederhana

4. Teori Dasar

:

Perulangan dalam Pascal Di dalam Pascal terdapat tiga macam perulangan yaitu dengan menggunkan statemen : 1. For … Do, 2. While … Do dan 3. Repeat … Until. 1. Struktur perulangan For … Do Jenis perulangan ini digunakan untuk mengulang statemen atau satu blok statemen berulang kali yang ditentukan. Bentuk perulanan For … Do adalah sebagai berikut: For := To/Downto Statemen/ Blok Statemen. a. Perulangan For … Do Positif Perulangan positif adalah perulangan dengan penghitung dari kecil ke besar atau dengan kata lain pertambahannya positif. Adapun bentuk umumnya adalah: For var_kontrol := awal To akhir Do Statemen Perulangan 1


Statemen/ Blok Statemen; Dengan syarat awal <= akhir. b. Perulangan For … Do Negatif Perulangan negatif adalah perulangan dengan penghitung dari besar ke kecil atau dengan kata lain pertambahannya negatif. Bentuk umumnya adalah: For var_kontrol := awal downTo akhir Do Statemen/ Blok Statemen; Dengan syarat awal >= akhir. c. Perulangan For … Do tersarang Perulangan tersarang adalah perulangan yang berada di dalam perulangan yang lainnya. Pada perulangan ini perulangan yang lebih dalam akan diproses terlebih dahulu sampai habis, lalu baru perulangan yang lebih luar. 2. Struktur perulangan While … Do Jenis perulangan ini digunakan untuk mengulang statemen atau satu blok statemen berulang kali yang jumlahnya belum bisa ditentukan, tergantung nilai kondisi yang terletak antara While … do. Perulangan akan dikerjakan bila nilai kondisinya bernilai benar dan akan berhenti jika kondisi bernilai salah. Bentuk perulanan While … Do adalah sebagai berikut: While < kondisi> Do Statemen/Blok Statemen; Bisa pula dibuat perulangan While … do dalam while … do, yang dinamakan while … do tersarang.

Statemen Perulangan 2


3. Struktur perulangan Repeat … Until Jenis perulangan ini digunakan untuk mengulang statemen atau satu blok statemen berulang kali yang jumlahnya belum bisa ditentukan, tergantung nilai kondisi yang terletak setelah until. Perulangan akan dikerjakan bila nilai kondisinya bernilai salah dan akan berhenti jika kondisi bernilai benar. Bila kondisi bernilai Bentuk perulanan Repeat … Until adalah sebagai berikut: Repeat Statemen/Blok Statemen; Until < kondisi> ; Bisa pula dibuat perulangan Repeat … Until dalam Repeat … Until, yang dinamakan Repeat … Until tersarang. Contoh : 1. Ketiklah Program sebagai berikut, Program Contoh_For; Var j : integer; Begin For j:= 1 to 10 do Begin Writeln (‘Indonesia’); End; End.



Pada program di atas akan mencetak ‘Indonesia’ sebanyak 10 kali. Algoritma Contoh_For {Algoritma Menampilkan tulisan Indonesia sebanyak 10 kali } Deklarasi j : Integer Deskripsi : For j ← 1 to 10 do Write (‘Indonesia’) Endfor

2. Ketiklah Program berikut, Program Contoh_For_Bersarang; Var i , j : integer; Begin For i:= 1 to 5 do For j := 3 downto 1 do Writeln (‘Kopertis Wilayah II Sumatera Selatan’); Writeln (‘Indonesia’); End. Pada program di atas akan mencetak ‘Kopertis Wilayah II Sumatera Selatan‘ sebanyak 15 kali dan ‘Indonesia’ sebanyak 3 kali.



Algoritma Contoh_For_Bersarang {Algoritma atas akan mencetak ‘Kopertis Wilayah II Sumatera Selatan‘ sebanyak 15 kali dan ‘Indonesia’

sebanyak 3 kali } Deklarasi I,j : Integer Deskripsi : For i ← 1 to 5 do For 3 ← 1 downto 1 do Write (‘Kopertis Wilayah II Sumatera Selatan’) Write (‘Indonesia’) Endfor Endfor

3. Ketiklah Program sebagai berikut, Program Contoh_While_Do; Var i : integer; Begin i:= 1; While i<=5 do Begin Writeln(‘BIDAR); i:= i + 1; End; End.



Algoritma Contoh_While_Do {Algoritma ini akan mencetak ‘BIDAR‘ sebanyak 5 kali Denga menggunakan Pengulangan While DO } Deklarasi I : Integer Deskripsi : I ← 1 While i<=5 do Write(‘BIDAR) I ← i + 1 Endwhile Pada cuplikan di atas akan mencetak ‘BIDAR sebanyak 5 kali. 4. Ketiklah Program sebagai berikut, Program Contoh_While_Do; Var i : integer; Begin i:= 1; Repeat Writeln(‘BIDAR); i:= i + 1; Until i > 5; End.



Algoritma Contoh_While_Do {Algoritma ini akan mencetak ‘BIDAR‘ sebanyak 5 kali Denga menggunakan Pengulangan Repeat Until } Deklarasi I : Integer Deskripsi : I ← 1 Repeat Write(‘BIDAR) I ← i + 1 Until I > 5 Pada cuplikan di atas akan mencetak ‘BIDAR sebanyak 5 kali.

Latihan dan Tugas 6, bisa dilihat di modul praktikum algoritma


PRAKTIKUM 5 DAN 6 STATEMEN PERULANGAN

Recommend Documents