Oleh: blogfirman | 27 Desember 2009

Program Menghitung Gaji

Berikut adalah contoh sederhana Program Menghitung Gaji sederhana pada Pemrograman Pascal.

program menghitung_gaji;

uses wincrt;

var

nama:string[50];

golongan:byte;

gaji_total,gaji,tunjangan:longint;

begin

write(‘masukkan nama anda  = ‘);readln(nama);

write(‘masukkan golongan    = ‘);readln(gol);

if golongan=1 then

begin

gaji:=100000;

tunjangan:=50000;

end

else if golongan=2 then

begin

gaji:=500000;

tunjangan:=250000;

end;

gaji_total:=gaji+tunjangan;

write(‘total gaji’,nama,’ = ‘,gaji_tot);

end.


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

%d blogger menyukai ini: