1. Buatlah program untuk menentukan bonus pegawai, berdasarkan ketentuan yang diberikan oleh bagian personalia dan keuangan sebagai berikut: Pegawai perusahaan digongkan menjadi dua golongan, yaitu staf dan non staf. Staf akan mendapatkan bonus sebesar 1 juta rupiah dengan syarat bahwa ia telah bekerja paling tidak 5 tahun dan umurnya sudah mencapai 50 tahun; staf yang bekerja kurang dari 5 tahun dan berapapun umurnya, hanya mendapat bonus sebesar Rp. 500.000. Pegawai non staf yang telah bekerja lebih dari 5 tahun akan mendapat bonus sebesar Rp. 400.000 jika berumur lebih dari 50 tahun sedangkan pegawai non staf yang berumur kurang dari 50 tahun hanya mendapat bonus Rp. 250.000. Pegawai staf umurnya kurang dari 50 tahun akan mendapat bonus Rp. 300.000.
Ndak usah lama-lama berikut scribnya
program menghitung_bonus_pegawai;
uses crt;
var
Nama,jab : string;
umur : integer;
LK : byte;
bonus :real;
begin
clrscr;
writeln(' MENGHITUNG BONUS PEGAWAI ');
writeln('----------------------------------------');
write('Masukkan Nama = ');readln(nama);
write('Masukkan Jabatan [s/ns] = ');readln(jab);
write('Masukkan Umur = ');readln(umur);
write('masukkan lama kerja = ');readln(lk);
writeln('----------------------------------------');
if (jab='s') or (jab='S') then
begin
if (umur>=50)and (LK>=5)then
begin
bonus:=1000000;
end
else if (LK<=5) then
begin
bonus:=500000;
end
else if (umur < 50 ) then
begin
bonus:=300000;
end;
end
else if (jab='ns') or (jab='NS') then
begin
if (umur>=50) and(LK>=5) then
begin
bonus:=400000;
end
else if (umur<=50) and (LK>=5) then
begin
bonus:=250000;
end;
end;
writeln('Bonus ', nama ,' = Rp. ',bonus:5:0);
readln;
end.
Berikut tampilan program dan hasilnya
Hasilnya
2. Dibaca suatu nilai bertipe integer.
Jika dimasukkan harga 1 maka tulis dilayar ‘SATU’
Jika dimasukkan harga 2 maka tulis dilayar ‘DUA’
Jika dimasukkan harga 3 maka tulis dilayar ‘SATU’
........
Jika dimasukkan harga 9 maka tulis dilayar ‘SEMBILAN’
Jika dimasukkan harga 0 maka tulis dilayar ‘NOL’
Jika dimasukkan harga selain 0 s/d 9 maka tulis dilayar ‘BILANGAN SELAIN 0 s/d 9’
Scribnya
program PEMBILANG;
uses crt;
var
hrga:integer;
tls:string [35];
begin
clrscr;
writeln(' PEMBILANG ');
writeln('---------------------------------');
writeln;
write('Masukkan Angka 0 s/d 9: ');readln(hrga);
writeln('---------------------------------');
writeln;
case hrga of
0 : writeln(' NOL');
1 : writeln(' SATU');
2 : writeln(' DUA');
3 : writeln(' TIGA');
4 : writeln(' EMPAT');
5 : writeln(' LIMA');
6 : writeln(' ENAM');
7 : writeln(' TUJUH');
8 : writeln(' DELAPAN');
9 : writeln(' SEMBILAN');
end;
if(hrga >= 10) then
begin
writeln(' BILANGAN SELAIN 0 s/d 9');
end;
writeln;
writeln('---------------------------------');
readln;
end.
Tampilan program dan hasilnya
0 komentar:
Posting Komentar