PEMROGRAMAN PASCAL LOOPING PERULANGAN 1 BAB VI LOOPING

PEMROGRAMAN PASCAL LOOPING - PERULANGAN 1

BAB. VI LOOPING / PERULANGAN PASCAL menyediakan 3 jenis perulangan, yaitu : q For…. Do q While Do q Repeat…Until v FOR…. DO Statement Di gunakan untuk mengulangan beberapa statemen dengan jumlah perulangan yang sudah diketahui Syntax : For Var. Control : = n. Awal To/Down. To n. Akhir Do Statemen/Blok Statemen Perulangan For…Do memiliki 2 jenis. • For…Do Positif • For…Do Negatif 2

BAB. VI LOOPING / PERULANGAN FOR…. DO Positif Merupakan perulangan yang dimulai dari kecil ke besar Syntax : For Var. Control : = n. Awal To n. Akhir Do Statemen/Blok Statemen Contoh 1. tanpa blok statemen Var I : Byte ; Begin For I : = 1 To 5 Do Writeln(‘Pascal’); End. Contoh 2. dengan Blok statemen Var I : Byte ; Begin For I : = 1 To 5 Do Begin Write( I ); Writeln( ‘PASCAL’ ) ; End. 3

BAB. VI LOOPING / PERULANGAN FOR…. DO Negatif Merupakan perulangan yang dimulai dari besar ke kecil Syntax : For Var. Control : = n. Awal Down. To n. Akhir Do Statemen/Blok Statemen Contoh Var I : Byte ; Begin For I : = 5 to 1 Do Begin Writeln( I, ‘ PASCAL’ ) ; End. 4

BAB. VI LOOPING / PERULANGAN v WHILE DO Statement Digunakan untuk mengulang statemen atau satu blok statemen yang jumlahnya belum bisa ditentukan. Perulangan ini disebut juga dengan perulangan dengan kondisi benar. Syntax : WHILE Ungkapan_Logika DO Statemen/Blok Statemen Contoh Var I : Byte ; Begin I : = 0 ; WHILE I <= 5 Do Writeln( I, ‘ PASCAL’ ) ; End. 5

BAB. VI LOOPING / PERULANGAN v REPEAT…UNTIL Kondisi Statement Perulangan ini disebut juga dengan perulangan dengan kondisi salah. Syntax : REPEAT Statemen / Blok Statemen ; UNTIL Ungkapan_Logika ; Contoh Var I : Byte ; Begin I : = 0 ; REPEAT Inc( I) ; Writeln( I, ‘ PASCAL’ ) ; UNTIL I=5 ; End. 6

BAB. VI LOOPING / PERULANGAN NESTED LOOP Statemen Merupakan suatu perulangan yang terdapat di dalam sebuah perulangan Syntax : REPEAT Statemen / Blok Statemen ; For Var. Control : = n. Awal To n. Akhir Do Statemen/Blok Statemen UNTIL Ungkapan_Logika ; Contoh Var I, J : Byte ; BEGIN I : = 1 ; REPEAT For J : = 1 To J Do Writeln (I, ‘ ‘ , J, ‘ Pascal’); UNTIL I= 5 ; END. 7