Pernyataan for-to/downto-do Dalam Pascal

Khusus untuk pernyataan for-to/downto-do tahap kenaikan/penurunannya satu.

Pernyataan for-to-do

Diagram air pernyataan perulangan for-to-do

1. Program Putaran_for_to_do;
2. Uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:.1 to 5 do
7. Writeln('Amik');
8. Writeln('Sinar Nusantara');
9. Writeln('Solo');
10. Readln

Putaran for-to-do

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

Kemudian ubahlah program tersebut menjadi:

1. Program Putaran_for_to_do;
2. Uses crt;
3. Var i:integer;
4. begin
5.     Clrscr;
6.     For i:=1 to 5 do
7.     Writeln('Amik');
8.     Writeln('i= ',i);
9.     writeln('Sinar Nusantara');
10.     Writeln('Solo');
11.     Readln
12. End.

Jalankan program 5.1 ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan nilai variabel i !

Kemudian ubahlah susunan penulisannya pada program tersebut menjadi:

1. Program Putaran_for_to_do;
2. Uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:=1 to 5 do
7.     Writeln('Amik');Writeln('i=',i);Writeln('Sinar Nusantara');
8.     Writeln('Solo');
9.     Readln
10. lad.

Jalankan program 5.1 ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan nilai variabel i ! Apakah ada perbedaannya, jelaskan (diskusikan dengan teman anda).

Baca juga:

• Pernyataan Berulang Dalam Pemograman Pascal
• Deklarasi Konstanta Dan Variabel Dalam Pascal
• Pernyataan repeat-until Dalam Pascal

Kemudian ubah lagi program tersebut menjadi:

1. Program Putaran_for_to_do;
2. Usss crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:=1 to 5 do
7.     begin
8.         writeln('Amik');
9.         Writeln('i= ',i);
10.         Writeln('Sinar Nusantara');
11.     rad;
12.     Writeln('Solo');
13.     Readln
14. End.

Jalankan program 5.1 ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan nilai i !

Kemudian ubah lagi program tersebut menjadi:

1. Program Putaran_for_to_do;
2. Uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:=1 to 5 do
7.     begin
8.         Writeln('Amik');
9.         Writeln('Sinar Nusantara');
10.     End;
11.     Writeln('i= ',i);
12.     Writeln('Solo');
13.     Readln
14. End.

Jalankan program 5.1 ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan nilai i !
Program 5.2. berikut ini dari program 5.1. yang ditambah dengan variabel k:

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

Program 5.2. Putaran for-to-do dengan kounter k. Jalankan program 5.2 ini! Berapa kali kata Amik, Sinar Nu-santara dan Solo dicetak? Perhatikan nilai variabel i dan k !

Kemudian ubahlah program 5.2. tersebut menjadi:

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

Jalankan program 5.2 ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dan variabel i,k dicetak? Perhatikan nilai variabel i dan k ! Diskusikan dengan teman anda ten-tang perbedaan nilai variabel i clan k ini !

Kemudian ubahlah program 5.2. tersebut menjadi:

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

Jalankan program 5.2 ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dan variabel i, k dicetak? Perhatikan nilai variabel i dan k ! Diskusikan dengan teman anda ten-tang perbedaan nilai variabel i dan k ini !

Gunakan program 5.3. ini untuk mencoba mengkounter variabel yang digunakan pada for-to-do:

1. Program Mengkounter_Putaran_for_to_do;
2. Uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:=1 to 10 do
7.     begin
8.         Write('Amik');
9.         Write('Sinar Nusantara');
10.         Writeln('Solo');
11.     End;
12.     i:=1+1;
13.     Writeln('i= ',i);
14.     Readln
15. End.

Program 5.3. Mengkounter putaran for-to-do.

Sekarang jalankan program 5.3. ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak?

Perhatikan hasil program ini terutama nilai variabel > ! Kemudian ubah program tersebut sehingga menjadi:

1. Program Mengkounter_Putaran_f or_to_do;
2. Uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:=1 to 10 do
7.     begin
8.         Write('Amik');
9.         Write('Sinar Nusantara');
10.         Writeln('Solo');
11.         i:=i+1;
12.     End;
13.     Writeln('i= ',i);
14.     Readln
15. End.

Sekarang jalankan program 5.3. ini! Perhatikan hasil program ini terutama nilai variabel i !

Bandingkan dengan program-program sebelumnya ! Diskusikan dengan teman andal.

Pernyataan for-downTo-do

Pernyataan for-downTo-do merupakan putaran dengan koun-ter yang menurun (penurunannya satu) berarti dari nilai awal paling tinggi ke nilai akhir paling rendah.

1. Program Putaran_for_downto_do;
2. uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:=5 downTo 1 do
7.     begin
8.         Writeln('Amik');
9.         Writeln('i= ',1);
10.         Writeln('Sinar Nusantara');
11.         Writeln('Solo');
12.     Ends
13.     Writeln('i= ',i);
14.     Readln
15. End.

Program 5.4. Mengkounter putaran for-downTo-do.

Sekarang jalankan program 5.4. ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan hasil program ini terutama nilai variabel i !

Kemudian ubah program tersebut sehingga menjadi:

1. Program Putaran_for_downto_do_dengan_variabel_kounter:
2. Uses crt;
3. Var k, i:integer;
4. Begin
5.     Clrscr;k:=0;
6.     For i:-5 downTo 1 do
7.     begin
8.         Writeln('Amik');
9.         Writeln('i= ',i);
10.         Writeln('Sinar Nusantara');
11.         Writeln('Solo');
12.         K:=succ(k);
13.     End;
14.     Writeln('i= ',i);
15.     Writeln('k= ',k);
16.     Readin
17. End.

Sekarang jalankan program 5.4. ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan hasil program ini terutama nilai variabel i dan k !

Kemudian ubah lagi program tersebut sehingga menjadi:

1. Program Mengkounter_putaran_for_downTo_do;
2. Uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;i:=0;
6.     For i:=10 downTo 1 do
7.     begin
8.         Writeln('Amik');
9.         Writeln('i= ',i);
10.         Writeln('Sinar Nusantara');
11.         Writeln('Solo');
12.         I:=i+3
13.     End;
14.     Writeln('i= ',i);
15.     Readln
16. End.

Sekarang jalankan program 5.4. ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan hasil program ini terutama nilai variabel i ! Diskusikan dengan teman anda mengapa hasilnya demikian! 

Share this

Author : admin

Related Posts