Contoh Program Komputer Untuk Perulangan Dengan Pascal

Contoh progran perulangan dengan Pascal  yang paling sederhana adalah mencetak angka 1 hingga 10 dengan tampilan output seperti berikut :

1          2          3          4          5          6          7          8          9          10

Buatlah program untuk mencetak angka 1 hingga 10 dengan menggunakan perintah :

a.  For - to - do
b.  While - do
c.   Repeat - Until

a.   Perulangan  For – To- Do

  
Bentuk Perintah :
                           FOR i::= TO DO

                                 Begin
                                        Pernyataan;
                                End;

Variabel i adalah variabel yang menyimpan nilai yang menentukan banyaknya perulangan dilakukan, dimana perulangan dilakukan mulai dari NILAI AWAL hingga NILAI AKHIR. Misalnya nilai awal 1 dan nilai akhir 10, berarti proses perulangan dilakukan sebanyak 10 kali.
 
Perulangan For i:=1 to i:=10 do artinya “Ulangi pernyataan untuk nilai variabel i mulai dari 1 sampai 10. Dalam program, variabel i  digunakan sebagai variabel untuk menghitung jumlah perulangan. Pernyataan yang dikerjakan adalah mencetak nilai variabel i . Khusus untuk For-to-do, increment (pertambahan) nilai variabel i dilakukan secara otomatis dalam program perulangan pascal, sehingga tidak ada pernyataan inc(i) dalam loop.  

Perhatikan pada pernyataan :

For i:=1 to 10 do

        write('  ',i);

Baris pernyataan write('   ',i); tidak dituliskan dalam blok Begin-End karena hanya terdiri dari satu baris saja. Jika pernyataan yang akan dikerjakan secara berulang kali terdiri dari 2 baris atau lebih, maka harus dituliskan dalam blok  Begin – End.

Contoh :

For i:=1 to 10 do

Begin

        write('  ');

       Write(i);

End;

Penyataan write('   ',i); dan  write('  ');   Write(i); artinya cetak spasi kemudian cetak nilai i.

Program lengkapnya adalah sebagai berikut :

Program For_TODO1;

uses crt;

var i : integer;

begin

 clrscr;

   For i:=1 to 10 do

        write('  ',i);

  readln;

end.

b.  Perulangan While-do

Bentuk perintah :     While do 
                                Begin
                                        Pernyataan;
                                End;

Perulangan While-do artinya “kerjakan baris pernyataan secara berulang selama KONDISI pada WHILE bernilai BENAR”. Dalam perulangan While-do, variabel penghitung jumlah perulangan yaitu i selalu atau harus diberi nilai awal dengan pernyataan i:= 1;. Artinya nilai nilai i dimulai dari 1 sampai kondisi pada while-do tidak memenuhi syarat. Untuk mencetak angka 1 hingga 10, kondisinya adalah i<11 behenti.="" bernilai="" kondisi="" maka="" perulangan="" salah="" sehingga="">

Pernyataan pertambahan nilai variabel i dalam loop adalah inc(i). Program lengkapnya adalah sebagai berikut:

Program CONTOH_WHILE;

uses crt;

var i : integer;

Begin

 clrscr;

 i:=1;

   While i<11 comment-11--="" do="">

    begin

         write('  ',i);

         inc(i);

    end;

  readln;

End.

Pelajari juga Contoh penggunaan while-do tentang perhitungan sudut trigonometri.

c.  Perulangan  Repeat-Until

Bentuk Perintah :
                            REPEAT
                                 Begin                                        Pernyataan;
                                End; 
                             UNTIL
 
Perulangan dengan Repeat – Until artinya “ulangi sampai kondisi bernilai BENAR”.  Sama dengan While-do, variabel i harus diberi nilai awal pada awal program, kemudian pertambahan nilai i dilakukan dalam loop. Yang perlu  diperhatikan adalah bahwa pernyataan UNTIL i>11 berada di luar blok Begin-end. Sehingga pernyataan untuk mencetak nilai i dikerjakan lebih dahulu kemudian melakukan pengecekan nilai i. Dengan demikian, maka dalam repeat-until, pernyataan pasti dikerjakan minimal satu kali. Artinya setelah mencetak nilai i, kemudian nilai i dicek kondisinya. Jika kondisi Benar, maka perulangan langsung berhenti. Dalam program di bawah ini, perulangan akan berhenti setelah nilai i sama dengan 11.

Program lengkapnya adalah sebagai berikut.

Program CONTOH_REPEAT;

uses crt;

var i : integer;

begin

 clrscr;

 i:=1;

   Repeat

    begin

         write('  ',i);

         inc(i)

    end;

  Until =11 ;

  readln;

end.

Contoh Program Komputer Perulangan Dengan Pascal di atas menunjukkan cara menggunakan ke 3 macam perintah perulangan dalam program Pascal. Perhatikan perbedaan dan persamaannya dalam penulisan kode program. Hasil atau output dari ketiga bentuk program di atas adalah SAMA.

Sekian dulu Contoh Program Komputer Perulangan Dengan Pascal . Selamat belajar.

Mohon anda memberikan komentar, saran, atau pertanyaan untuk memperbaiki materi yang ada dalam blog ini. Dengan demikian blog ini dapat semakin bermanfaat bagi para pelajar dan mahasiswa yang ingin mempelajari contoh program komputer yang dimuat di blog ini.

Semoga bermanfaat.

God bless you all.