Pernyataan berulang Pada Pemograman Pascal

Pernyataan berulang menyebabkan satu atau lebih pernyataan diproses ulang. Dalam pascal ada 3 pernyataan berulang yaitu:

1. Pernyataan while-do (pernyataan while)
2. Pernyataan repeat-until
3. Pernyataan for

Sebelum membahas lebih lanjut tentang pernyataan berulang, kita bahas dulu tentang pernyataan jamak (majemuk). Yang dimaksud pernyataan jamak adalah kelompok pernyataan, setiap pernyataan dipisahkan dengan tanda titik koma (;). Begin dan end mengelompokkan pernyataan jamak menjadi satu unit. Anda dapat menempatkan pernyataan jamak dimana saja di dalam program seperti anda meletakkan pernyataan biasa (tunggal) di dalam program. Diagram alir pernyataan jamak diperlihatkan pada Gambar berikut.

Diagram alir (RailRoad) pernyataan jamak

Kita kembali ke pernyataan berulang yaitu pernyataan while-do

while-do

Pernyataan while-do atau lebih sederhananya dikenal sebagai pernyataan while mengeksekusi pernyataan lain selama beberapa kondisi bemilai true. Disajikan diagram alit pernyataan berulang while.

Diagram alir pernyataan perulangan while-do

1. Program Putaran_while_do;
2. Uses crt;
3. Var k:integer;
4. Begin
5.     Clrscr;
6.     K:=0;
7.     While k<10 do
8.         Writeln('Amik');
9.         K:=k+1;
10.     Writeln('Sinar Nusantara');
11.     Writeln('Solo');
12.     Readln
13. End.

Jalankan program ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak?

Ket: Untuk menghentikan proses berulang secara terus-menerus
tekan : Ctrl+break.

Kemudian ubahlah program tersebut menjadi:

1. Program Putaran_while_do;
2. Uses crt;
3. Var k:integer;
4. Begin
5.     Clrscr;
6.     K:=0;
7.     While k<10 do
8.     begin
9.         writeln('Amik');
10.     Bad;
11.     k:=k+1;
12.     Writeln('Sinar Nusantara');
13.     Writeln('Solo');
14.     Readln
15. Ind.

 Jalankan program ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak?

Kemudian ubah lagi program tersebut menjadi:

1. Program Putaran_while_do;
2. Uses art;
3. Var k:integer;
4. Begin
5.     Clrscr;
6.     K:=0;
7.     While k<10 do
8.     begin
9.         Writeln('Amik');
10.         K:=k+1;
11.     End;
12.     Writeln('Sinar Nusantara');
13.     Writeln('Solo');
14.     Readln
15. End.

Sekarang jalankan lagi program  ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Jika ada perbedaan diskusikan dengan teman anda apa penyebabnya!

Kemudian ubah lagi program tersebut menjadi:

1. Program Putaran_while_do;
2. Uses crt;
3. Var k:integer;
4. Begin
5.     Clrscr;
6.     K:=0;
7.     While k<10 do
8.     begin
9.         Writeln('Amik');
10.         K:=k+1;
11.         Writeln('Sinar Nusantara');    
12.     End;
13.     Writeln('Jumlah putarannya = ',k);
14.     Writeln('Solo');
15.     Readln
16. End.

Sekarang jalankan lagi program ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Jika ada perbedaan diskusikan dengan ternan anda apa penyebabnya!

ubahlah program tersebut agar kata Solo jugs dicetak berulang! Bagaimana hasilnya (ada perbedaan atau tidak) jika pernyataan k:=k+1, ditempatkan sebelum pernyataan Writeln('Amik'); atau ditempatkan setelah Writeln(`Sinar Nusantara'); (sebelum end;).

Kemudian kondisi k<10 anda ubah menjadi k>10, lalu jalankan perhatikan hasilnya. Jika ada perbedaan diskusikan dengan teman anda! Demikian juga ubahlah kondisinya menjadi k<=10 dan k>=10, kemudian jalankan, perhatikan perbedaannya. Ubah lagi program 3.1. yang terakhir menjadi sebagai berikut:

1. Program Putaran_while_do;
2. Uses crt:
3. Var k:integer;
4. begin
5.     Clrscr;
6.     K:=0;
7.     While k<10 do
8.     begin
9.         Writeln('Amik');
10.         K:=k+2;
11.         Writeln('Sinar Nusantara');
12.     End;
13.     Writeln('Jumlah putarannya = ',k);
14.     Writeln('Solo');
15.     Readln
16. End.

Jalankan dan perhatikan perbedaan jumlab putarannya!

Putaran while-do dengan kondisi boolean 

1. Program while_do_boolean;
2. Uses crt;
3. Var k : integer;
4. benar : boolean;
5. Begin
6.     Clrscr;
7.     benar:=true;k:=0;
8.     While benar do
9.     begin
10.         Writeln('Amik');
11.         K:=k+1;
12.         benar:=(k>10);
13.         Writeln('Sinar Nusantara');
14.     End,
15.     Writeln('Solo');
16.     Readln
17. End.

Program Putaran while-do dengan boolean

Sekarang jalankan lagi program 3.2. ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak?
Bagaimana hasilnya (ada perbedaan atau tidak) jika pernyataan benar:=(k>10); ditempatkan sebelum pernyataan WritelneAmik'); atau ditempatkan setelah Writeln ('Sinar Nusantara'); (sebelum =tit). Tebak dulu hasilnya, sebelum menjalankan programnya!

Jika ada perbedaan diskusikan dengan teman ands apa penyebabnya!

Putaran while-do dengan tipe karakter

1. Program while_do_karakter_huruf;
2. Uses crt;
3. Var kar: char;
4. Begin
5.     Clrscr;
6.     Writeln('putaran while dengan tipe karakter');
7.     Kar:='A';
8.     While kar c= 'Z' do
9.     begin
10.         Writeln(kar);
11.         Kar:=succ(kar);
12.     End;
13.     Writeln;
14.     Readln
15. End.

Program Putaran while-do dengan tipe karakter.

Jalankan program ini, lalu ubah program 3.3. sehingga mencetak mulai dari 'Z' sampai 'A'.

Putaran while-do dengan kondisi jamak

1. Program while_do_Kodisi_jamak:
2. uses crt;
3. Var k : integer;
4. A,B : Integer;
5. begin
6.     Clrscr;
7.     A:=1;B:=0;k:=1;
8.     While (A<5) and (B<5) do
9.     begin
10.         Writeln('Jumlah putaran =•.k);
11.         Writeln('Niiai A= ',A);
12.         Writeln('Wilai B= ',B);
13.         A:=succ(A);B:=succ(B);
14.         K:=succ(k);
15.     End;
16.     Writeln;
17.     Readln
18. End.

Program Putaran while-do dengan kondisi jamak kondisi).

Jalankan program 3.4. ini, kemudian ubahlah kondisinya dan operator and secara bergantian menjadi or dan xor. Buat dengan 3 kondisi (campuran operator not, and, or dan xor), jika kesulitan diskusikan dengan teman anda.

Share this

Author : admin

Related Posts