Bab 1

Perintah Percabangan (If....Then....Else dan Case...of )

 

Percabangan mrupakan suatu perintah bersyarat dimana komputer melakukan suatu aksi tertentu bila suatu kondisi terpenuhi. Bahasa Pascal menyediakan dua cara penyajian perintah bersyarat, yaitu If…Then…Else dan Case…Of.

1. If ... Then ... Else

Perintah bersyarat If umumnya digunakan untuk melakukan pencabangan sederhana (antara 2 atau lebih cabang). dimana kondisi yang menjadi prasyaratnya melibatkan lebih dari satu parameter.

 

 Bentuk sintaks dari perintah bersyarat ini adalah:

 

If <kondisi_pencabangan1> then
Begin
… {aksi-1}
end
else
If <kondisi_pencabangan2> then
Begin
… {aksi-2}
end
else
Begin
… {aksi-3}
End;

 

Untuk contoh programnya buwat desain form seperti dibawah ini :

 

 

 

Atur propertisnya seperti ini :

 

nama	propertis	keterangan
Label1	Caption	NAMA
Label2	Caption	GAJI
Label3	Caption	GOLONGAN
Label4	Caption	TUNJANGAN
Label5	Caption	TOTAL
Label6	Caption	Bonus
Edit1	Text	M. NURFAIZIN
Edit2	Text	Di kosongkan
Edit3	Text	Di kosongkan
Button1	Caption	Proses
Button2	Caption	Exit

 

Klik dua kali pada bagian Button1(Proses) lalu isikan kode seperti dibawah ini :

 

procedure TForm1.Button1Click(Sender: TObject);

var

gaji,tot,tunjangan:integer;

begin

gaji:=strtoint(Edit2.Text);

if Edit3.Text ='A' then

begin

   tunjangan:=10000;

   Label9.Caption :='Baju';

end

else if Edit3.Text ='B' then

begin

   tunjangan:=20000;

   Label9.Caption :='Celana';

end

else if Edit3.Text ='C' then

begin

   tunjangan:=30000;

   Label9.Caption :='Tas';

end

else

begin

   tunjangan:=0;

   Label9.Caption :='Tidak ada';

end;

Label7.Caption:=inttostr(tunjangan);

tot:=tunjangan+gaji;

Label8.Caption:=inttostr(tot);

end;

 

Kemudian klik dua kali pada Button2(Exit) dan isikan :

 

halt;

 

Jika di Run(f9) Hasilnya akan seperti ini :