If-Then Menghitung Upah

Bang Dosen Ku M. Yasin, S.Si

Berikut ini adalah penggunaan If-then untuk menghitung Upah.
program hitung_upah_if_then_;
{menghitung upah berdasarkan jam kerj
dan upah per-jam}
uses wincrt;
var

jamkerja, upahperjam, upah : longint;

begin

{membaca jam kerja}
< write('Jam kerja = '); readln(jamkerja); {membaca upah per-jam} write('Upah per-jam = '); readln(upahperjam); {menghitung upah} upah := jamkerja * upahperjam; if jamkerja > 40 then upah := upah + ((jamkerja-40) * upahperjam); / {menampilkan upah}

write('Upah yang diterima sebesar Rp.', upah);

end.



Berikut ini adalah penggunaan If-then-else untuk menghitung Upah.



program hitung_upah_if_then_else;

{menghitung upah berdasarkan jam kerja

dan upah per-jam}

uses wincrt;

var

jamkerja, upahperjam, upah : longint;



begin

{membaca jam kerja}

write('Jam kerja = ');

readln(jamkerja);



{membaca upah per-jam}

write('Upah per-jam = ');

readln(upahperjam);




{menghitung upah}

if jamkerja > 40 then

upah := ((jamkerja + (jamkerja-40)) * upahperjam)

else

upah := jamkerja * upahperjam;



{menampilkan upah}

write('Upah yang diterima sebesar Rp.', upah);

end.

No comments:

Powered by Blogger.