1. Program untuk menghitung gaji Karyawan pada PT. XYZ jika yang diinput adalah namadan Kode jabatan dan mengeluarkan jabatan dan perincian gajinya ditetapkan berdasarkan jabatan denga ketentuan sebagai berikut:
Kode Jabatan
|
Jabatan
|
Gaji Pokok
|
Tunj. Transport
|
Tunj. Makan
|
DR
|
Direktur
|
Rp 3000000
|
Rp 850000
|
Rp 500000
|
WD
|
Wakil Direktur
|
Rp 2500000
|
Rp 800000
|
Rp 500000
|
MN
|
Manajer
|
Rp 2000000
|
Rp 800000
|
Rp 450000
|
AS
|
Asisten
|
Rp 1500000
|
Rp 700000
|
Rp 400000
|
KW
|
Karyawan
|
Rp 1000000
|
Rp 500000
|
Rp 300000
|
Berikut scribnya ketikkan di turbo pascalnya.
program PT_XYZ;
uses crt;
var
kj:String;
GP,TT,TM:longint;
Total:longint;
nama:string[30];
Jabatan:string [20];
begin
clrscr;
writeln(' PROGRAM GAJI PEGAWAI ');
writeln('------------------------------------------');
writeln;
write('Masukkan Nama Karyawan: ');readln(nama);
write('Masukkan Kode Jabatan [DR,WD,MN,AS,KW]: ');readln(kj);
if kj= 'DR' then
begin
Jabatan:= 'Direktur';
GP:= 3000000;
TT:= 850000;
TM:= 500000;
end
else if kj='WD' then
begin
Jabatan:= 'Wakil Direktur';
GP:= 2500000;
TT:= 800000;
TM:= 500000;
end
else if kj='MN' then
begin
Jabatan:= 'Manajer';
GP:= 2000000;
TT:= 800000;
TM:= 450000;
end
else if kj='AS' then
begin
Jabatan:= 'Asisten';
GP:= 1500000;
TT:= 700000;
TM:= 400000;
end
else if kj='KW' then
begin
Jabatan:= 'Karyawan';
GP:= 1000000;
TT:= 500000;
TM:= 300000;
end;
Total:=GP + TT + TM;
writeln('------------------------------------------');
writeln;
writeln('Jabatan = ', Jabatan);
writeln('Gaji Pokok = Rp. ', GP);
writeln('Tunjangan Transaksi = Rp. ',TT);
writeln('Tunjangan Makan = Rp. ', TM);
writeln('Total Gaji = Rp. ',Total);
writeln;
writeln('------------------------------------------');;
readln;
end.
Agak panjang ya.... nah jika sudah di ketik maka tampilannya seperti di bawah ini
Kemudian di run maka tampilannya akan seperi di bawah ini
2. Kali ini adalah kita akan membuat program dengan cerita sebagai berikut.
"PDAM Kota Makassar menetapkan tariff pemakaian air bersih per m3-nya ditentukan secara per golongan dimana golongan ditentukan otomatis berdasarkanjumlah pemakaian. Untuk pemakaian 50 m3 pertama dikenakan biaya Rp 1500. 51-75 m3 dikenakan biaya Rp. 1750. 76-100 m3 dikenakan biaya Rp 2000 dan lewat dari 100 m3 dikenakan biaya Rp. 2250. Buatlah program untuk menghitung jumlah yang harus di bayar pelanggan jika volume air diinput dari keyboard ?"
Bingung bagaimana programnya...? Baiklah untuk membuat program seperti cerita di atas, ketikkan scrib di bawah ini di pascalnya yaa..
program PDAM_Kota_Makassar;
uses crt;
label mulai;
var
pmkn:longint;
jumlah:longint;
hrg1,hrg2,hrg3,hrg4:longint;
mau:char;
begin
clrscr;
writeln(' PROGRAM PDAM KOTA MAKASSAR ');
writeln('----------------------------------');
writeln;
mulai:
write('Masukkan Jumlah Pemakaian = ');readln(pmkn);
writeln('----------------------------------');
if pmkn<= 50 then
hrg1:=1500 * pmkn
else if pmkn<=75 then
begin
hrg1:=1500*50;
hrg2:=1750* (pmkn-50);
end
else if pmkn<=100 then
begin
hrg1:=1500*50;
hrg2:=1750*25;
hrg3:=2000*(pmkn-75);
end
else if pmkn>100 then
begin
hrg1:=1500*50;
hrg2:=1750*25;
hrg3:=2000*25;
hrg4:=2250*(pmkn-100);
end;
jumlah:=hrg1+hrg2+hrg3+hrg4;
writeln('Tarif');
writeln(' Golongan I = Rp. ',hrg1:7);
writeln(' Golongan II = Rp. ',hrg2:7);
writeln(' Golongan III = Rp. ',hrg3:7);
writeln(' Golongan IV = Rp. ',hrg4:7);
writeln('----------------------------------');
writeln(' Total Bayar = Rp. ',jumlah:7);
write('Masih Mau Menghitung [y/t]: ');
readln(mau);
if(mau='y') or (mau='Y') then goto mulai
end.
Jika sudah berikut tampilannya
Berikut tampilan hasil programnya ketika di jalankan
setelah itu akan ada pilhan y/t. Jika kita pilih "y" akan dilakukan perhitungan lagi dan jika, jika kita pilih "t" tidak akan dilakukan perhitungan lagi dan akan langsung keluar. Di bawah ini tampilanya jika kita pilih pilihan "y".
SELESAI.. :D
0 komentar:
Posting Komentar