Page 52 - MODUL DASKOM 2020

Modul 2 – Pengkondisian, Looping, Decision dan Compound 2020

Contoh Source Code pada perintah While Do :
program while_do;
uses crt;
var
Saldo:integer;
begin
write('Masukkan Saldo Anda:');readln(saldo);
while Saldo>50000 do
begin
clrscr;
writeln('Saldo Anda :',Saldo);
writeln('Keterangan : Beli Tiket');
Saldo:=Saldo-50000;
writeln('Sisa Saldo Anda:',Saldo);
writeln('Tekan <ENTER> Untuk Mengulang Pembelian tiket');
readln;
end;
clrscr;
writeln('Saldo Anda Telah Habis');
readln;
end.

ii. Counted Loop
Counted Loop (pengulangan pasti) merupakan sebuah bentuk pengulangan yang
disertai counter (penghitung) didalamnya. Counted Loop memiliki 2 jenis pengulangan yaitu
for to do dan for down to do.
 For to do (pengulangan bernilai positif)
Yaitu pengulangan secara positif dimana pengulangan dimulai dengan perhitungan
dari nilai kecil ke besar.
 For down to do (pengulangan bernilai negatif)
Terbalik dengan pengulangan for to do dimana pengulangan pada perintah ini yaitu
dimulai dengan perhitungan dari nilai besar ke kecil.

Contoh Deklarasi :
FOR a:=nilai_XI TO nilai_X2 DO FOR a:=nilai_X2 DOWNTO nilai_X1 DO
Writeln(‘statement yang diulang:’); Writeln(‘statement yang diulang:’);
*Catatan (Nilai X1<X2) *Catatan (Nilai X2>X1)

Praktikum Dasar Komputer & Pemrograman 2020 II-50