Pernyataan repeat-until Dalam Pascal

Pernyataan repeat-until 

Pernyataan repeat-until Dalam Pascal

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

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

Kemudian ubahlah program tersebut menjadi:

1. Program Putaran_repeat_until;
2. Uses crt;
3. Var k:integer;
4. Begin
5.     Clrscr;
6.     K:=0;
7.     repeat
8.     Writeln('Amikel;
9.     k:=k+1;
10.     Until k>5;
11.     Writeln('Sinar Nusantara');
12.     writeln('Solo');
13.     Readln
14. End.

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

Kemudian ubah lagi program tersebut menjadi:

1. Program Putaran_repeat_until;
2. Uses crt;
3. Var k:integer;
4. Begin
5.     Clrscr;
6.     K:=0;
7.     repeat
8.     K:=k+1;
9.     Writeln('Amik');
10.     Writeln('Sinar Nusantara');
11.     Until k>10;
12.     Writeln('Solo');
13.     Readln
14. 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_repeat_until;
2. Uses crt;
3. Var k:integer;
4. Begin
5.     Clrscr;
6.     K:=0;
7.     repeat
8.         Writeln(`Amik');
9.         Writeln('Sinar Nusantara');          
10.         Writeln('Solo');
11.         K:=k+1;  
12.     Until k>10;
13.     writeln('Jumlah putarannya = ',k);
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 penyebab-nya!

Baca juga:

• Pernyataan Berulang Dalam Pemograman Pascal
• Deklarasi Konstanta Dan Variabel Dalam Pascal

Bagaimana hasilnya (ada perbedaan atau tidak) jika pernyataan k:=k+1; ditempatkan sebelum pernyataan Writeln(`Amik'); atau ditempatkan setelah Writeln(`Sinar Nusantara'); 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 yang terakhir menjadi sebagai berikut:

1. Program Putaran_repeat_until;
2. Uses crt;
3. Var k:integer;
4. Begin
5.     Clrscr:
6.     k:=0;
7.     repeat
8.         writeln('Amik');
9.         writeln('Sinar Nusantara');
10.         Writeln('Solo');
11.         K:=k+2;
12.     Until k>10;
13.     Writeln('Jumlah putarannya = ',k);
14.     Readln
15. End.

Jalankan dan perhatikan perbedaan jumlah putarannya!

Putaran repeat-until dengan kondisi boolean 

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

Program Putaran repeat_until dengan boolean Sekarang jalankan lagi program 4.2. ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak?

Bagaimana hasilnya (ada perbedaan atau tidak) jika per-nyataan benar:=(k>10); ditempatkan sebelum pernyataan Writeln(`Amik'); atau ditempatkan setelah Writeln(`Solo'); Tebak dulu hasilnya, sebelum menjalankan programnya! Jika ada perbedaan diskusikan dengan teman anda apa penyebabnya!

Putaran repeat_until dengan tipe karakter 

1. Program repeat_until_karakter_huruf;
2. Uses crt;
3. Var kar: char;
4. Begin
5.     Clrscr;
6.     Writelnrputaran repeat_until dengan tipe karakter');
7.     Kar:='A';
8.     repeat
9.         Writeln(kar);
10.         Kar:=succ(kar);
11.     Until kar>'Z';
12.     Writeln;
13.     Readln
14. End.

Program Putaran repeat_until dengan tipe karakter.

Jalankan program ini, lalu ubahlah program, sehingga mencetak mulai dan 'Z' sampai

Putaran repeat_until dengan kondisi jamak. 

1. Program repeat_until_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.     repeat
9.         Writeln('Jumlah putaran =',k);
10.         Writeln('Nilai A= ',A);
11.         WritelnrNilai B= ',B);
12.         A:=succ(A);B:=succ(B);
13.         K:=succ(k);
14.     Until (A>5) and (B>5);
15.     Writeln;
16.     Readln
17. End.

Program Putaran repeat until dengan kondisi jamak kondisi).

Jalankan program 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