Pengulangan (Loopng) [27/10/2016]

Pembinaan Ekstrakurikuler OSN Bidang TIK

Kamis, 27 Oktober 2016

Pukul : 13.00 - 15.00 wib

Pengulangan (Looping)

Pada pertemuan ini kita akan belajar sebuah perulangan (looping) pada konstruksi Repeat dan While. Pada konstruksi Repeat, kondisi pengulangan diperiksa pada akhir pengulangan. Artinya instruksi di dalam badan pengulangan dilaksanakan terlebih dahulu, baru pengetesan kondisi dilakukan. Konsekuensinya, badan pengulangan dilaksanakan paling sedikit satu kali. 

Struktur pengulangan Repeat ....Until (Perulangan Kondisi Tidak Terpenuhi)

B.U : Repeat

            Statement;

         Until ungkapan_logika ;

contoh program repeat :

uses crt;

var

i : byte;

   begin

   clrscr;

         i := 1;

   repeat

   writeln (i) ;

until i >= 5

readln;

end.

Listing program :

hasil eksekusi program :

Pada konstruksi while, kondisi perulangan diperiksa di awal pengulangan . Artinya instruksi di dalam badan perulangan hanya dapat dilaksanakan bila pengetesan kondisi menghasilkan nilai true. Konsekuensinya, badan pengulangan mungkin tidak akan pernah dilaksanakan bila kondisi pengulangan pertama kali bernilai false.

Struktur pengulangan while ....do (Perulangan Kondisi Terpenuhi)

B.U : while ungkapan logika do

            Statement;

         

contoh program while :

uses crt;
var
i : byte;
begin
clrscr;
i := 0;
while i >= 5 do
begin
writeln (i);
i := i+1;
end;
readln;
end.

listing program :

hasil eksekusi program :

Tugas !

1. Analisa dan berapa hasil dari listing program Repeat...Until berikut ini :

a. uses crt             b.  uses crt                  c. uses crt
   var                         var                            var
   i:integer;                 i:integer;                   i:integer;
   begin                      begin                        begin
   clrscr;                     clrscr;                       clrscr;
   i := 1;                     i=1;                          i:=5;
   repeat                     repeat                        repeat
   write (i);                 write (i);                   write (i);
   inc (i);                    inc(i);                       i:=i-1;
   until i = 5;              until i>5;                   until i=0;
   readln;                   readln;                       readln;
   end.                       end.                          end.

2. Analisa dan berapa hasil dari listing program while.....do berikut ini :

a.  uses crt             b.  uses crt                  c. uses crt
   var                         var                            var
   i:integer;                 i:integer;                    a,b,c,d : integer;
   begin                      begin                        begin
   clrscr;                     clrscr;                       clrscr;
   i := 1;                     i=7;                           a:=23;
   while i<7 do           while i>1 do               b:=4;
   begin                      begin                         c:=0;
   write(i);                  write(i);                      d:=0;
   inc(i);                     i:=i-1;                       while (a>b) do
   end;                        end;                          begin
   readln;                    readln;                       a:=a - b;.
   end.                        end.                           c:=c + 1;
                                                                  d:=d + b;
                                                                  end;
                                                                  writeln(c,',',d);
                                                                  readln;
                                                                  end.