PERULANGAN Perulangan loop merupakan bentuk yang sering ditemui

PERULANGAN Perulangan (loop) merupakan bentuk yang sering ditemui di dalam suatu program aplikasi. Di dalam bahasa Pascal, dikenal tiga macam perulangan, yaitu dengan menggunakan statemen For, While-Do, dan Repeat…Until. Untuk jumlah perulangan yang telah diketahui gunakan For, sedang jika jumlah perulangannya belum diketahui, gunakan While-Do atau Repeat…Until.

Struktur Perulangan For Perulangan dengan Sintak perulangan For statemen For digunakan Variabel kontrol For Nilai awal : = untuk mengulang statemen atau satu blok To statemen berulang kali Do Nilai akhir sejumlah yang ditentukan. Down To Perulangan For dapat statemen berbetuk perulangan Positif (to), perulangan negatif (down to) dan perulangan tersarang.

Perulangan Positif Perulangan positif adalah perulangan dengan penghitung (counter) dari kecil ke besar dengan kata lain pertambahannya positif. Bentuk umum: For Variabel- Kontrol : = nilai awal To nilai akhir Do Statemen Variabel-kontrol, nilai awal, nilai akhir harus mempunyai tipe yang sama, yaitu tipe integer. Contoh: Var I : integer; Begin For I : = 1 to 5 Do Writeln(‘Pascal’); End. Bila program ini dijalankan, akan didapat hasil: Pascal Pascal

Perulangan Positif Contoh: Penulisan statemen yang akan diproses berulang kali tersebut dapat juga ditulis dalam bentuk blok statemen (diawali dengan Begin dan diakhiri dengan End), walaupun hanya berisi sebuah statemen saja. Var I : integer; Begin For I: = 1 to 5 Do Begin Writeln(‘Pascal’); End. Bila program ini dijalankan, didapat: Pascal Pascal Dengan blok statemen berarti statemen yang diulang dapat lebih dari sebuah statemen. Pada contoh berikut, yang akan diproses berulang adalah sebanyak 2 buah statemen dalam satu blok statemen. Var I : integer; Begin For I : = 1 to 5 Do Begin Write(I); Write. Ln(‘Pascal’); End. Hasil: 1 Pascal 2 Pascal 3 Pascal 4 Pascal 5 Pascal

Perulangan Positif Contoh : Bandingkan program contoh sebelumnya dengan program berikut ini yang tidak menggunakan blok statemen : Var I : integer; Begin For I : = 1 to 5 Do Write(I); Write. Ln(‘Pascal’); End. Hasil: 12345 Pascal maka yang akan diulang adalah statemen yang pertama saja, statemen berikutnya tidak termasuk dalam perulangan, karena tidak dalam bentuk blok statemen.

Perulangan Negatif Perulangan negatif adalah perulangan dengan penghitung dari besar ke kecil atau dengan kata lain pertambahannya negatif. Bentuk umum : For variabel-kontrol : = nilai awal Down. To nilai akhir Do statemen

Perulangan Negatif Var Celcius : integer; Fahrenheit : real; Begin Write. Ln(‘--------’); Write. Ln(‘ Celcius Fahrenheit’); Write. Ln(‘--------’); Celcius : = 0; For Celcius : = 15 Down. To 0 Do Begin Fahrenheit : = 1. 8 * Celcius + 32; Write. Ln(Celcius: 8, Fahrenheit : 14: 2); End; Write. Ln(‘--------------’); End. Bila program ini dijalankan, akan didapat hasil: -----------------Celcius Fahrenheit -----------------15 59. 00 14 57. 20 14 55. 40 13 53. 60 12 51. 80 11 50. 00 10 48. 20 9 46. 40 8 44. 60 7 42. 80 6 41. 00 5 39. 20 4 37. 40 3 35. 60 2 33. 80 1 32. 00 ------------------