Page 71 - MODUL PDKP'21

Modul 2 – Pengondisian, Looping, Decision dan Compound 2021

Contoh Sourcecode pada perintah While Do
:
program while_do;
uses crt;
var
Saldo:integer;
begin
write('Masukkan Saldo Anda:');readln(saldo);
while Saldo> 200000 do
begin
clrscr;
writeln('Saldo Anda :',Saldo);
writeln('Keterangan : Pembayaran pendaftaran sekolah');
Saldo:=Saldo-200000;
writeln('Sisa Saldo Anda:',Saldo);
writeln('Tekan <ENTER> Untuk mengulangi pembayaran pendaftaran sekolah');
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) di dalamnya. 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 di mana pengulangan dimulai dengan
perhitungan dari nilai kecil ke besar.
 For down to do (pengulangan bernilai negatif)
Terbalik dengan pengulangan for to do di mana pengulangan pada perintah ini
yaitu dimulai dengan perhitungan dari nilai besar ke kecil.
:
Contoh Flowchart dan Pseudocode perintah For to Do
FOR a:=nilai_XI TO nilai_X2 DO FOR a:=nilai_X2 DOWNTO nilai_X1
Writeln(‘statement yang diulang:’); DO
Writeln(‘statement yang diulang:’);
*Catatan (Nilai X1<X2) *Catatan (Nilai X2>X1)

Praktikum Dasar Komputer & Pemrograman 2021 II-56