Sebelumnya saya sudah posting mengenai Algoritma & Pemrograman 1 (Latihan-Latihan Penyeleksian Kondisi Pada PascaL)''Part 2''. Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya :
Nah Setelah di RUN --> Ctrl+F9 ,, Hasilnya
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 scriptnya 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.
jika sudah di ketik maka Hasilnya seperti di bawah ini :
Nah Setelah di RUN --> Ctrl+F9 ,, Hasilnya
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 di ketik maka Hasilnya seperti di bawah ini :
