Berikut ini adalah penggunaan If-then untuk menghitung Upah.
program hitung_upah_if_then_;
{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}
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.
Program silahkan download disini.
Share
Laskar Pelangi Blog oleh M. Yasin, S.Si., MM disebarluaskan di bawah Lisensi Creative Commons Atribusi-NonKomersial-TanpaTurunan 4.0 Internasional.
Berdasarkan ciptaan pada thelaskarpelangi.blogspot.com
0 comments:
Posting Komentar
Silahkan Isi Komentar Tentang Berita yang Anda Inginkan. Trims