STRUKTUR PENGULANGAN (LOOP STATEMENT) DALAM BAHASA PASCAL

STRUKTUR PENGULANGAN (LOOP STATEMENT)

  • Pengulangan Tanpa Kondisi (unconditional looping). Dalam struktur ini instruksi-intruksi di dalam badan pengulangan diulangi sejumlah kali yang didefinisikan (Struktur FOR TO DO).
  • Pengulangan Dengan Kondisi (conditional looping). Jumlah pengulangan tidak diketahui sebelum eksekusi, dan yang dapat ditentukan hanya kondisi berhenti pengulangan (Struktur WHILE DO dan Struktur REPEAT-UNTIL).
Macam-Macam Pengulangan :
  1. Struktur FOR.
          Digunakan untuk mengulang Statemen atau satu blok Statemen berulang kali. Jumlah
          Pengulangan dapat ditentukan sebelum di eksekusi.
          a. Menaik (Ascending)
              FOR pencacah := nilai_awal TO nilai_akhir DO
                       aksi
          b. Menurun (Descending)
             FOR pencacah := nilai_akhir DOWNTO nilai_awal DO
                       aksi
          Contoh Program Dalam PASCAL 
           program ForToDo;
           uses crt;
           var
                   i : integer;
           begin
                    clrscr;
                    for i := 1 to 20 do
                    writeln('NANO SETYANA');
                    writeln('201343500534');
                 readln;
           end.
  1. Struktur WHILE
          Aksi atau runtutan aksi akan dilaksanakan berulang kali selama kondisi bernilai true. Jika
          bernilai false berarti pengulangan selesai.
          WHILE kondisi DO
                        aksi

         Contoh Program Dalam PASCAL
         program WhileDo;
         uses crt;
         var
              a, b, c, i : integer;
         begin
                  a:=1;
                  b:=0;
                  i:=1;
                  while i <= 10 do
                  c:=a+b;
                  Writeln(c);
                  a:=b;
                  b:=c;
                  i:=1+1;
               readln;
          end.
  1. Struktur REPEAT
          Mendasarkan pengulangan pada kondisi boolean. Aksi di dalam badan pengulangan diulang
          sampai boolean bernilai true, jika boolean masih false pengulangan masih terus dilakukan.
          REPEAT aksi
                       UNTIL kondisi

          Contoh Program Dalam PASCAL
    program statemenrepeat1;
         uses wincrt;
         var i:integer;
         begin
   {inisialisasi nilai indeks i dengan 1}
         i:=1;
   {melakukan pengulangan}
         repeat
         writeln('NANO SETYANA');
         i:=i+1;
         until (i < 5);
         end.

0 komentar:

Post a Comment

Copyright © 2012 nanonymous-cyberTemplate by :Urangkurai.Powered by Blogger.Please upgrade to a Modern Browser.