Kali ini saya akan hadir membantu kalian
friends ,.
langsung saja ya teman, saya langsung
membuat pemogramannya.
program Penggajian_case;
uses crt;
var
no_induk:
string[20];
nama
: string[20];
kd_sattus,jumlah_anak:
integer;
g_pokok,t_gaji,tj,tj_istri,tj_anak:
real;
begin
clrscr;
writeln
(‘sistem perhitungan gaji: ‘);
write
(‘nomor induk pegawai: ‘);
readln(no_induk);
write
(‘nama: ‘); readln (nama);
write
(‘Gaji pokok : ‘); readln (g_pokok);
write
(‘status perkawinan : ‘); readln (kd_status);
case Kd_status of
1: begin
tj_istri:=0,1
* g_pokok;
write
(‘jumlah anak: ‘); readln (jmlh_anak);
tj_anak:=
jmlh_anak * (0,05*g_pokok);
end;
2: begin
tj_istri:=
0;
write
(‘jumlah anak: ‘); readln (jmlh_anak);
tj_anak:=
jmlh_anak*(0,05*g_pokok);
end;
end;
tj:= tj_istri + tj_anak;
t_gaji:=g_pokok+tj;
write (‘jumlah gaji:’, t_gaji:8:2);
readln;
end.
Jika kalian menemukan kesalahan saat di
Run, maka silahkan kalian cek sendiri ya teman....
__Selamat Mencoba__
0 komentar:
Posting Komentar