Dasar pemograman
Menentukan Gaji Pokok Pegawai Berdasarkan Golongan
Berikut adalah program pascal untuk menentukan gaji pokok
pegawai berdasarkan golongan, dan terdapat juga beberapa tunjangan untuk
pegawai yang sudah punya istri dan punya anak. Berikut codingan untuk program pascal
menggunakan delphi
uses
SysUtils;
var
gp, gb, gol :
integer ; ttl, ti, ta : real ;
menu, pil : char ;
const
i = 0.1 ;
a = 0.05 ;
begin
menu := 'y';
pil := 'y';
while menu = 'y' do
begin
writeln
('**************************');
writeln ('');
writeln ('Golongan
pada program ini, hanya terdapat Gol 1, Gol 2, dan Gol 3');
write ('Masukkan
golongan anda : '); readln (gol);
writeln
('------------------------');
if (gol = 1) then
begin
gp := 1000000 ;
writeln ('gaji
pokok = Rp ', gp, ',00');
end
else
if (gol = 2) then
begin
gp := 2000000 ;
writeln ('gaji
pokok = Rp ', gp, ',00');
end
else if (gol = 3) then
begin
gp := 3000000 ;
writeln ('gaji
pokok = Rp ', gp, ',00');
end
else write ('tidak ada');
writeln ('');
writeln ('apa
punya pasangan ? [y/t]'); readln (pil);
if pil = 'y' then
begin
ti := i*gp ;
ttl := ti+gp ;
writeln
('Tunjangan istri = Rp ', ti :0:2);
writeln ('total
penerimaan = Rp ', ttl :0:2);
end
else writeln
('total penerimaan = Rp ', gp ,',00');
writeln ('');
writeln ('Apa
punya anak ? [y/t]'); readln (pil);
if pil = 'y' then
begin
ta := a*gp ;
ttl := ta+gp ;
writeln
('Tunjangan anak = Rp ', ta :0:2);
writeln ('Total
penerimaan = Rp ', ttl :0:2);
ttl := ta+ti+gp
;
writeln
('Tunjangan istri + Tunjangan Anak');
writeln ('Maka
total gaji = ', ttl :0:2);
end ;
writeln ('');
write ('ada data
lagi ? [y/t]'); readln (menu) ;
end ;
readln ;
end.
berikut outputnya.
Selamat mencoba....!
