Materi-materi Pemrogaman Pascal Pada DELPHI 7

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 :

2. Case ... Of

Perintah bersyarat Case umumnya digunakan untuk kondisi dengan banyak pencabangan. Syarat pencabangan pada bentuk ini hanya boleh melibatkan satu buah parameter dengan tipe data bukan Real. Dengan demikian bila parameter bernilai tertentu maka dilakukan suatu aksi terkait, bila bernilai lain maka dilakukan aksi yang lain juga, demikian seterusnya.

Case <Parameter> Of
<nilai_1> : <aksi_1> ;
<nilai_2> : <aksi_2> ;
…
<nilai_n> : <aksi_n> ;
Else <aksi_n+1> ;
End;

Untuk contoh programnya buwat desain form seperti dibawah ini :

Atur propertisnya seperti ini :

nama	propertis	keterangan
Label1	Caption	Nama
Label2	Caption	Kelas
Label3	Caption	Nilai
Label4	Caption	Keterangan
Edit1	Text	M. NURFAIZIN
Edit2	Text	2-C
Edit3	Text	Di kosongkan
Edit4	Text	Di kosongkan
Button1	Caption	Proses

Klik dua kali Button1(Proses) isikan seperti dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var ket:string;

    nilai:integer;

begin

nilai:=StrToInt(edit3.Text);

ket:=edit4.Text;

case nilai of

  86..100:ket:='Grade (A)';

  70..85:ket:='Grade (B)';

  51..69:ket:='Grade (C)';

  36..50:ket:='Grade (D)';

  1..35:ket:='Grade (E)';

  else

    messageDlg('Pengisian tidak Lengkap',mtWarning,[mbOK],0);

    edit3.SetFocus;

end;

edit4.Text:=ket;

edit4.Enabled:=false;

end;

Jika di Run(f9) Hasilnya seperti ini :

Bab 2

Perintah Perulangan

1. For –To- Do

digunakan untuk melakukan perulangan dari angka kecil ke angka besar.

2. For – Down -To Do

digunakan untuk melakukan perulangan dari angka besar ke angka kecil.

3. While - do
pada while…do syarat melakukan looping diajukan terlebih dahulu jika memenuhi maka proses akan dilakukan tapi jika tidak maka looping tidak dilakukan.

4. repeat – until

pada repeat…until dilakukan proses dahulu baru dilihat syarat mengakhiri looping masih memenuhi atau tidak. Jika memenuhi maka proses looping akan berhenti tapi kalau tidak maka looping akan terus berjalan.

Untuk contoh programnya buwatlah desain form seperti ini :

Atur propertsnya seperti ini :

nama	propertis	keterangan
Label1	Caption	Masukkan Suku ke-N
Label2	Caption	PERULANGAN
Memo1	Weidth/Height	89/241
Memo2	Weidth/Height	89/241
Memo3	Weidth/Height	89/241
Memo4	Weidth/Height	89/241
Edit1	Text	Di kosongkan
Button1	Caption	For-To-Do
Button2	Caption	For-DownTo-Do
Button3	Capion	While-Do
Button4	Caption	Repeat-Until

Klik dua kali pada Button1(For-To-Do) isikan script dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var

b,c:integer;

begin

b:=strtoint(edit1.Text);

memo1.Clear;

for c:=1 to b do

begin

memo1.Lines.Add(inttostr(c));

end;

end;

Klik dua kali pada Button2(For-DownTo-Do) isikan script dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);

var

b,c:integer;

begin

b:=strtoint(edit1.Text);

memo2.Clear;

for c:=b downto 1 do

begin

memo2.Lines.Add(inttostr(c));

end;

end;

Klik dua kali pada Button3(While-Do) isikan script dibawah ini :

procedure TForm1.Button3Click(Sender: TObject);

var

b,c:integer;

begin

b:=strtoint(edit1.Text);

memo3.Clear;

c:=1;

while c<=b do

begin

memo3.Lines.Add(inttostr(c));

c:=c+1;

end;

end;

Klik dua kali pada Button4(Repeat-Until) isikan script dibawah ini

procedure TForm1.Button4Click(Sender: TObject);

var

b,c:integer;

begin

b:=strtoint(edit1.Text);

memo4.Clear;

c:=1;

repeat

memo4.Lines.Add(inttostr(c));

c:=c+1;

until c>b;

end;

Jika di Run(f9) Hasilnya Seperti ini :

Bab 3

Penggunaan Procedure dan Function

  

Function (fungsi) dan prpcedure adalah suatu rutin yang biasanya dipakai sebagai alat untuk melakukan tugas tertentu dan/atau mendapatkan nilai tertentu. Kita sering menggunakan procedure yang berhubungan dengan event, seperti procedure untuk mengontrol program ketika tombol di tekan.

-  Procedure digunakan untuk koding program yang digunakan berulang-ulang, pendeklarasian procedure dituliskan setelah kata –Public.
- Function Mirip dengan Procedure bedanya Function mengembalikan suatu nilai, sedangkan procedure tidak.

Berikut Contoh program penggunaan procedure dan funtion

Desain form seperti dibawah ini :

Atur propertisnya seperti ini :

nama	propertis	keterangan
Label1	Caption	Procedure Dan Funtion
Label2	Caption	Masukkan Angka
Label3	Caption	Di Pangkat
Label4	Caption	Hasil Pangkat
Edit1	Text	Di kosongkan
Edit2	Text	Di kosongkan
Edit3	Text	Di kosongkan
Edit4	Text	Di kosongkan
Edit5	Text	Di kosongkan
Edit6	Text	Di kosongkan
Button1	Caption	Procedure
Button2	Caption	Procedure 1
Button3	Caption	Function
Button4	Caption	Function 1

Klik dua kali Button1(Procedure) kemudian isi script seperti ini :

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,i,c:integer;

begin

i:=1;

c:=1;

a:=strtoint(Edit2.Text);

b:=strtoint(Edit1.Text);

While i<=a do

begin

c:=c*b;

i:=i+1;

end;

edit3.Text:=inttostr(c);

end;

Kemudian buwat Procedure dan Function sendiri pada bagian di bawah Public Declaration seperti ini :

Setelah itu tulis script dibawah ini tepat dibawah script button1 tadi :

procedure TForm1.pangkat1(p,l:string);

var

a,b,c,i:integer;

begin

i:=1;

c:=1;

a:=strtoint(p);

b:=strtoint(l);

while i<=a do

begin

c:=c*b;

i:=i+1;

end;

edit4.text:=inttostr(c);

end;

function TForm1.pangkat2(p,l:string):string;

var

a,b,c,i:integer;

begin

i:=1;

c:=1;

a:=strtoint(p);

b:=strtoint(l);

while i<=a do

begin

c:=c*b;

i:=i+1;

end;

pangkat2:=inttostr(c);

end;

function TForm1.pangkat3(p,l:integer):integer;

var

a,b,c,i:integer;

begin

i:=1;

c:=1;

while i<=l do

begin

c:=c*p;

i:=i+1;

end;

pangkat3:=c;

end;

Kemudia klik dua kali pada button2(Procedure 1) dan isi script dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);

begin

pangkat1(edit2.Text,edit1.Text);

end;

Kemudia klik dua kali pada button3(Function) dan isi script dibawah ini :

procedure TForm1.Button3Click(Sender: TObject);

begin

edit5.Text:=pangkat2(Edit2.Text,edit1.Text);

end;

Kemudia klik dua kali pada button4(Function 1) dan isi script dibawah ini :

procedure TForm1.Button4Click(Sender: TObject);

var

a,b,c:integer;

begin

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

c:=pangkat3(a,b);

edit6.Text:=inttostr(c);

end;

Jika di Run(f9) Hasilnya Seperti ini :

Catatan :

-Tombol Procedure menggunakan procedure otomatis ketika mengklik button1.

-Tombol Procedure 1 menggunakan procedure buatan yang sedah kita bwat.

-Tombol Funtion menggunakan function yang telah kita buwat sendiri(masih menggunakan variabel String).

-Tombol Funtion menggunakan function yang telah kita buwat sendiri(masih menggunakan variabel integer).

Bab 4

Mod dan Div

- Div (hasil pembagian dengan pembulatan kebawah),

Misalnya : 20 div 4 = hasilnya adalah 5

Karena angka 20 terdiri dari angka 4 sebanyak 5 kali (4,4,4,4,4)

Misalnya : 19 div 4 = hasilnya adalah 4

Karena angka 19 terdiri dari angka 4 sebanyak 4 kali(4,4,4,4) dan sisanya adalah 3 dan tidak akan di kenali.

- Mod (sisa hasil pembagian dengan pembulatan keatas).

Misalnya : 20 mod  4 = hasilnya adalah 0

Karena angka 20 terdiri dari angka 4 sebanyak 5 kali (4,4,4,4,4) dan tidak ada sisa jadi jawabanya 0

Misalnya : 19 mod  4 = hasilnya adalah 3

Karena angka 19 terdiri dari angka 4 sebanyak 4 kali(4,4,4,4) dan sisanya adalah 3, jadi jawabanya adalah 3

Untuk contoh programnya, buwatlah desain form seperti ini :

Atur propertisnya seperti ini :

nama	propertis	keterangan
Label1	Caption	Mod dan Div
Label2	Caption	Masukkan Angka 1
Label3	Caption	Masukkan Angka 2
Edit1	Text	Di kosongkan
Edit2	Text	Di kosongkan
Edit3	Text	Di kosongkan
Edit4	Text	Di kosongkan
Button1	Caption	Mod
Button2	Caption	Div

Klik dua kali pada Button1(Mod) dan isikan script dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var

angka1,angka2,hasil:integer;

begin

angka1:=strtoint(edit1.Text);

angka2:=strtoint(edit2.Text);

hasil:=angka1 mod angka2;

edit3.Text:=inttostr(hasil);

end;

Klik dua kali pada Button2(Div) dan isikan script dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);

var

angka1,angka2,hasil:integer;

begin

angka1:=strtoint(edit1.Text);

angka2:=strtoint(edit2.Text);

hasil:=angka1 div angka2;

edit4.Text:=inttostr(hasil);

end;

Jika di Run(f9) akan seperti ini :

Selamat Mencoba Terimakasih....

untuk download filenya disini (DOWNLOAD)