If Then Else

MEMBUAT PROGAM MENGHITUNG GAJI DAN TUNJANGAN DENGAN MENGGUNAKAN  "IF THEN ELSE"






Pert. 2

Kali ini kita akan mempelajari Fungsi If, Then, dan Else pada pascal. dengan membuat aplikasi sederhana perhitungan total gaji karyawan berdasarkan gaji , tunjangan dan golongan.
Pengertian :
If = Jika
Then = Maka
Else = Lainnya

Dalam pemrograman pascal, fungsi IF, Then, dan Else tidak dapat berdiri sendiri-sendiri, mereka saling berkaitan satu sama lainnya.

Saya membuat progam dari aplikasi Borland Delphi 7 , seperti gambaran di bawah ini :

Konsep pengaturan progam tersebut yaitu seperti berikut :

           Jika golongan A, maka tunjangan = 10000;
           Jika golongan B, maka tunjangan = 20000; dan
           Jika golongan C, maka tunjangan = 30000.

Dan karenan menggunakan jika(If) maka akan menggunakan IF THEN ELSE.
untuk pengulisan listing pada progam saya seperti gambar dibawah ini.

Kalo kurang jelas bisa ditulis script dibawah ini :

var
  gaji,tot,tunjangan:integer;
begin
  gaji:=StrToInt(tGaji.Text);
  if tGol.Text = 'A' then tunjangan :=10000 else
  if tGol.Text = 'B' then tunjangan :=20000 else
  if tGol.Text = 'C' then tunjangan :=30000 else;
  tunj.Caption:=IntToStr(tunjangan);
  tot:=tunjangan+gaji;
  total.caption:=IntToStr(tot);
end;


Setelah menulis script atau listing program, lakukan penyimpanan :
·  Save as : untuk menyimpan editor
·  Save Project As : untuk menyimpan project

Dan ini gambar hasil ruuning dan hasil progam saya yang sudah jadi.

Hasil Running

Hasil Akhir