Jumat, 17 Januari 2014
Bagi anda yang sedang mencari Program menghitung upah karyawan,saya akan bagikan program ini walaupun masih sangat sederhana,anda dapat merubahnya sesuai keinginan anda . Nah berikut input programnya:
program menghitung_upah_karyawan;
Uses Wincrt;
Const
upah_biasa=10000;
Var
upah_kerja:real;
jam_kerja:real;
jam_lembur:real;
Begin
writeln('berapa jam_kerja dalam satu minggu?=');
readln(jam_kerja);
writeln('berapa jam_lembur?=');
readln(jam_lembur);
upah_kerja:=(jam_kerja*upah_biasa)+(jam_lembur*upah_lembur);
Writeln('upah yang diterima dalam satu minggu=',upah_kerja:0:0);
End.
Terimakasih sudah mampir diblog ini,semoga bermanfaat . . . . . . . .
