BELAJAR BAHASA PEMROGRAMAN CLIPPER

DECISION

Decision adalah pengambilan keputusan dari beberapa kondisi yang telah ditentukan.

PERINTAH
Perintah yang digunakan dalam menyelesaikan suatu Decision dalam clipper adalah sebagai berikut:
1. IF …ELSE…END IF
2. DO CASE … END CASE

1. IF …ELSE…END IF

BU:
IF
[JAWABAN-1]
ELSEIF
[JAWABAN-2]
ELSE
[JAWABAN-N]
END IF

CONTOH:
1. Tentukan gaji pegawai berdasarkan golongan dimana,
Jika Golongan = “A”, Gaji = 1000000
Golongan = “B”, Gaji = 1500000
Golongan = “C”, Gaji = 2000000
Golongan = “D”, Gaji = 2500000

Penyelesaian:
Golongan adalah sebagai kondisi maka golonganlah yang akan diinput. Sementara gaji adalah keputusan.
Program:

CLS
Gol = Space(1) //Perkenalkan variabel yang akan diinput
@5,5 Say “Masukkan Golongan :” Get Gol

If Gol=”A”
Gaji = 1000000
ElseIf Gol=”B”
Gaji= 1500000
ElseIf Gol=”C”
Gaji=2000000
Else
Gaji=2500000
End if
@6,5 Say “Gaji Anda adalah :” + STR(Gaji)
2. DO CASE … END CASE
BU
DO CASE
CASE
[Jawaban-1]
CASE
[Jawaban-2]
OTHERWISE
[Jawaban-n]
END CASE

CONTOH:
1. Tentukan gaji pegawai berdasarkan golongan dimana,
Jika Golongan = “A”, Gaji = 1000000
Golongan = “B”, Gaji = 1500000
Golongan = “C”, Gaji = 2000000
Golongan = “D”, Gaji = 2500000

Penyelesaian:
Golongan adalah sebagai kondisi maka golonganlah yang akan diinput. Sementara gaji adalah keputusan.
Program:

CLS
Gol = Space(1) //Perkenalkan variabel yang akan diinput
@5,5 Say “Masukkan Golongan :” Get Gol

DO CASE
CASE Gol=”A”
Gaji = 1000000
CASE Gol=”B”
Gaji= 1500000
CASE Gol=”C”
Gaji=2000000
OTHE
Gaji=2500000
END CASE
@6,5 Say “Gaji Anda adalah :” + STR(Gaji)

Contoh Praktek

Latihancl5.PRG

*******************
Program
*******************

CLS
SETCOLOR(“W+/B”)
@5,10 CLEA TO 15,60
@5,10 TO 15,60 DOUBLE

NIP=SPACE(3)
NAMA=SPACE(15)
JABATAN=SPACE(10)
GOL=SPACE(1)
STATUS=SPACE(2)

@06,11 Say “Nip :”
@07,11 Say “Nama :”
@08,11 Say “Jabatan :”
@09,11 Say “Golongan :”
@10,11 Say “Status :”
@11,11 Say “Gaji Pokok :”
@12,11 Say “Tunjangan :”
@13,11 Say “Bonus :”
@14,11 Say “Gaji Bersih :”
X = col( )

/*******************
X Merupakan Variabel Untuk Menampung
Nilai Kolom Terakhir.
********************/
@06,X Get Nip Pict “999”
@07,X Get Nama Pict “@!”
@08,X Get Jabatan Pict “@!” Valid Jabatan=”MANAGER” ;
.OR. Jabatan=”SEKRETARIS” .OR. Jabatan = “ADMINISTRASI”;
.OR. Jabatan=”PEGAWAI”
@09,X Get Gol Pict “!” Valid Gol=”A” .Or. Gol=”B” .Or. Gol=”C”;
.Or. Gol=”D”
@10,X Get Status Pict “!” Valid Status=”TK” .or. Status=”K”




/******************************
Valid Membatasi penginputan status, yang dapat dimasukkan pada status adalah
TK atau K, dimana Jika “TK” maka Status berubah menjadi “Tidak Kawin”
jika “K” maka Status berubah menjadi “Kawin”
******************************/
Read
// Menentukan status dan Tunjangan berdasarkan status
IF Status=”K”
Status=”Kawin”
Tunj=500000
Else
Status=”Tidak Kawin”
Tunj
End If

// Menentukan Gaji Pokok Jabatan
If Jabatan = “MANAGER”
Gapok=3000000
ElseIf Jabatan = “SEKRETARIS”
Gapok=2000000
ElseIf Jabatan = “ADMINISTRASI”
Gapok=1800000
Else
Gapok=1500000
End if

//Menentukan Bonus Berdasarkan Golongan

Do Case
Case Gol=”A”
Bonus=300000
Case Gol=”B”
Bonus=200000
Case Gol=”C”
Bonus=180000
Othe
Bonus=150000
End Case

Gaber=Gapok + Bonus + Tunj

@11,X say Gapok
@12,X say Tunj
@13,X say Bonus
@14,X say Gaber

LOOP
Proses yang dilakukan secara berulang-ulang selama suatu kondisi terpenuhi.

PERINTAH
1. FOR … NEXT
2. DO WHILE … END DO

1. FOR … NEXT
BU:
FOR = To Step
[Statement]
NEXT

Keterangan:
Nawal = Nilai awal dari perulangan
Nakhir = Nilai Akhir dari perulangan
Step = Nilai lompatan dari perulangan. Dimana jika nilai lompatan hanya 1 maka step ini dapat diabaikan, tetapi jika lompatannya lebih dari 1 maka nilai stepnya harus ada.
Dimana Jika lompatannya menaik maka +
Jika Lompatannya Menurun Maka –

CONTOH
1. Buatkan perulangan untuk menampilkan bilangan 1 s/d 10!
Penyelesaian
Cls
For A = 1 TO 10
? A
Next

2. Buatlah perulangan untuk menampilkan deret bilangan berikut!
15,18,21,24,27,30
Penyelesaian:
Cls
For B = 15 to 30 step 3
? B
Next

3. Buatlah perulangan untuk menampilkan deret bilangan berikut!
50,40,30,20,10,0,-10,-20,-30,-40,-50
Penyelesaian:
Cls
For C = 50 to -50 step -10
? C
Next

4. Buatlah perulangan untuk menampilkan bilangan ganjil mulai dari bilangan 10 s/d 30!
Penyelesaian:
Cls
For D= 10 to 30
If D % 2 <> 0
? D
End if
Next
Keterangan tanda % digunakan untuk mencari sisa bagi(modulus)
Maka jika D % 2 <> 0 maka D akan dicetak
Contoh:
 sisa bagi 2 adalah 1 maka Dicetakè1 % 2
 sisa baè2 % 2 gi 2 adalah 0 maka Tidak Dicetak

5. Buatlah perulangan untuk menampilkan bilangan genap mulai dari bilangan 11 s/d 31!
Penyelesaian:
Cls
For E= 11 to 31
If E % 2 = 0
? E
End if
Next

Keterangan tanda % digunakan untuk mencari sisa bagi(modulus)
Maka jika E % 2 = 0 maka E akan dicetak
Contoh:
 sisa bagi 2 adalah 1 maka Tidak Dicetakè1 % 2
 sisa bagi 2 adalah 0 maka Dicetakè2 % 2

6. Buatlah perulangan untuk menampilkan deret bilangan berikut!
10,-11,12,-13,14,-15,16,-17,18,-19,20
Penyelesaian:
Cls
For F= 10 to 20
If F % 2 <> 0
? F
Else
?-F
End if
Next


Keterangan tanda % digunakan untuk mencari sisa bagi(modulus)
Maka jika F % 2 = 0 maka E akan dicetak
Contoh:
sisa bagi 2 adalah 1 maka Ditambahkan simbol – sebelum bilangan tersebut, Misalnya = -11è1 % 2
sisa bagi 2 adalah 0 maka Bilangan itu sendiri yang akan dicetakè2 % 2

7. Buatlah perulangan untuk menampilkan kata “Selamat Belajar Perulangan” sebanyak 5 x!
Penyelesaian:
Cls
For G = 1 to 5
? “Selamat Belajar Perulangan”
Next

8. Buatlah perulangan menampilkan deret bilangan berikut!
25,36,49,64,81,100
Penyelesaian:
Cls
For H = 5 to 10
? H * H
Next

2. DO WHILE … END DO

BU:
Var=Nawal
Do While
[Statement]
Counter
End Do
Keterangan:
Var = Menampung nilai awal perulangan
Kondisi = Nilai Akhir perulangan/ membatasi perulangan
Counter = Menentukan nilai lompatan perulangan

CONTOH
1. Buatkan perulangan untuk menampilkan bilangan 1 s/d 10!
Penyelesaian:
Cls
A=1
DO WHILE A <= 10
? A
A = A + 1
End do

2. Buatlah perulangan untuk menampilkan deret bilangan berikut!
15,18,21,24,27,30
Penyelesaian:
Cls
B= 15
Do While <=30
? B
B = B + 3
End do

3. Buatlah perulangan untuk menampilkan deret bilangan berikut!
50,40,30,20,10,0,-10,-20,-30,-40,-50
Penyelesaian:
Cls
C = 50
Do While C >=-50
? C
C = C - 10
End do

4. Buatlah perulangan untuk menampilkan bilangan ganjil mulai dari bilangan 10 s/d 30!
Penyelesaian:
Cls
D=10
Do While D <=30
If D % 2 <> 0
? D
End if
D = D + 1
End Do
Keterangan tanda % digunakan untuk mencari sisa bagi(modulus)
Maka jika D % 2 <> 0 maka D akan dicetak
Contoh:
 sisa bagi 2 adalah 1 maka Dicetakè1 % 2
 sisa bagi 2 adalah 0 maka Tidak Dicetakè2 % 2

5. Buatlah perulangan untuk menampilkan bilangan genap mulai dari bilangan 11 s/d 31!
Penyelesaian:
Cls
E=11
Do While D <=31
If E % 2 = 0
? E
End if
E = E + 1
End Do

Keterangan tanda % digunakan untuk mencari sisa bagi(modulus)
Maka jika E % 2 = 0 maka E akan dicetak
Contoh:
 sisa bagi 2 adalah 1 maka Tidak Dicetakè1 % 2
 sisa bagi 2 adalah 0 maka Dicetakè2 % 2

6. Buatlah perulangan untuk menampilkan deret bilangan berikut!
10,-11,12,-13,14,-15,16,-17,18,-19,20
Penyelesaian:
Cls
F = 10
Do While F <= 20
If F % 2 <> 0
? F
Else
?-F
End if
F = F + 1
End Do

Keterangan tanda % digunakan untuk mencari sisa bagi(modulus)
Maka jika F % 2 = 0 maka E akan dicetak
Contoh:
sisa bagi 2 adalah 1 maka Ditambahkan simbol – sebelum bilangan tersebut, Misalnya = -11è1 % 2
sisa bagi 2 adalah 0 maka Bilangan itu sendiri yang akan dicetakè2 % 2

7. Buatlah perulangan untuk menampilkan kata “Selamat Belajar Perulangan” sebanyak 5 x!
Penyelesaian:
Cls
G = 1
Do While G <=5
? “Selamat Belajar Perulangan”
G = G + 1
End Do

8. Buatlah perulangan menampilkan deret bilangan berikut!
25,36,49,64,81,100


Penyelesaian:
Cls
H = 5
Do While H <=100
? H * H
H = H + 1
End Do


Contoh Praktek

Latihancl6.PRG

*****************
Program
*****************

Do While.T.
CLS
SETCOLOR(“W+/B”)
@5,10 CLEA TO 15,60
@5,10 TO 15,60 DOUBLE

NIM=SPACE(7)
NAMA=SPACE(15)
GROUP=SPACE(10)
NILAI=0

@06,11 Say “Nim :”
@07,11 Say “Nama :”
@08,11 Say “Group :”
@09,11 Say “Nilai :”
@10,11 Say “Bobot :”

X = col( )

/*******************
X Merupakan Variabel Untuk Menampung
Nilai Kolom Terakhir.
********************/
@06,X Get Nim Pict “9999999”
@07,X Get Nama Pict “@!”
@08,X Get Group Pict “@!”
@09,X Get Nilai Pict “999” Range 0,100

/******************************
Range Membatasi penginputan Nilai, yang dapat dimasukkan pada Nilai adalah mulai dari 0 sampai dengan 100.
******************************/


Read
//Menentukan Bobot Berdasarkan Nilai

If Nilai >= 85
Bobot=”A”
ElseIf Nilai >= 70
Bobot=”B”
ElseIf Nilai >= 60
Bobot=”C”
Else
Bobot=”D”
End if
@10,X say Bobot
LAGI=SPACE(1)
@12,11 say “INPUT DATA LAGI [Y/T] :” GET Lagi valid lagi=”Y” .or. Lagi=”T”
Read
If Lagi=”Y”
Loop
Else
Exit
End If
End Do