Pemrograman Repetisi pada Pascal Ramos Somya S Kom

Pemrograman Repetisi pada Pascal Ramos Somya, S. Kom. , M. Cs.

Macam-macam Perulangan for do while do repeat until

Struktur Perulangan For Perulangan dengan statement for di gunakan untuk mengulang statement atau satu blok statement berulang kali sejumlah yang ditentukan.

… Bentuk Perulangan for: Perulangan Positif Perulangan Negatif Perulangan Tersarang

Perulangan Positif adalah perulangan dengan penghitung (counter) dari kecil ke besar. Bentuk: for variabel-kontrol : = nilai-awal to nilai-akhir do statement tipe data harus sama yaitu bertipe integer.

Try It uses crt; var i: integer; begin clrscr; for i: = 1 to 5 do begin writeln(‘Selamat siang. . . '); end; readkey; end.

Perulangan Negatif Adalah perulangan dengan penghitung (counter) dari besar ke kecil. Bentuk: for variabel kontrol : = nilai awal downto nilai-akhir do statement

Try it uses crt; var i: integer; begin clrscr; for i: = 5 downto 1 do begin writeln(‘Selamat pagi. . . ’); end; readkey; end.

Perulangan Tersarang Perulangan tersarang (nested loop) adalah perulangan yang berada di dalam perulangan yang lainnya.

Try it uses crt; var i, j : integer; begin clrscr; for i : = 1 to 5 Do begin for j : = 1 to 3 do begin write(i: 8, j: 3); end; writeln(); end; readkey; end.

Struktur Perulangan while do Statemen while do digunakan melakukan proses perulangan statement atau blok statement menerus selama kondisi ungkapan pada while bernilai logika benar. untuk suatu teruslogika

Try it uses crt; var i : integer; begin clrscr; i : =0; while i< 5 do begin writeln(i); i : = i + 1; end; readkey; end.

Struktur Perulangan repeat until Struktur repeat. . . until digunakan untuk mengulang statement atau blok statement hingga kondisi yang diseleksi di until terpenuhi (True). Dengan demikian selama kondisi bernilai FALSE, maka perulangan akan terus dilakukan.

Try it uses crt; var i : integer; begin clrscr; i : = 0; repeat i : = i+1; writeln(i); until i = 5; readkey; end.

. . . uses crt; var i : integer; begin clrscr; i : = 1; repeat write(i); writeln(' Selamat pagi. . . '); i: =i+1; until i > 5; readkey; end.

1 22 333 1 12 123

Latihan (1)

Latihan (2)

Latihan (3)

Latihan (4)

Latihan (5)

Soal Latihan (1) uses crt; var a, b : integer; begin clrscr; a: =100; b: =5; repeat b : = b + 1; a : = a -b; until a>b; write(a, b); readkey; end.

(2) jdata: =n; jml: =1; for i: = 0 to jdata-1 do begin jml: =3*jml-1; end; writeln(jml); Jika sebelumnya n berharga 3 berapakah yang dicetak oleh potongan program itu? 58 d. 26 42 e. 15 14 Jika sebelumnya n berharga 1 berapakah yang dicetak oleh potongan program itu? 1 d. 4 2 e. 5 3

(3) begin j : = 3; for i: = 1 to 20 do begin if j > 2 then writeln('sukses'); j: =5 - (j*2); end; Berapa kalikah pencetakan keluaran ’sukses’ dilakukan oleh penggalan program itu ? a. 5 b. 8 c. 10 d. 12 e. 13

(4) begin t: =2; while t <= n do begin writeln(' OK'); t: =t * 4 div 2 - 1; end. Berapa kalikah pencetakan ’OK’ jika program dijalankan dengan harga n=129 ? a. 4 b. 5 c. 8 d. 9 e. 11

Terima Kasih