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.

Popular posts from this blog

Aplikasi Karaoke 5

Semangat Berkebun Tanam Buah Semangka dan Tomat Hasil Pemanfaatan Lahan Sempit Di Rumah

Liburan Tipis Tipis Wisata The Heritage Palace Solo Jawa Tengah