Page 95 - Pemrograman Dasar kelas X

Bab 3 Struktur Percabangan 91

......................................................................
begin

writeln(‘PROGRAM GAJI KARYAWAN’);
Write (‘ ..................................................... ’);
readln( .................................. );

write(‘ ...................................................... ’);
readln( .................................. );

write(‘ ...................................................... ’);
readln( .................................. );
...................:= 0.1 *.........................;

...................:= ................................+ ..............................;
if (..........................>=20) then
.............................:=..............................+ .........................

writeln(‘Total gaji karyawan bernama ‘,.....................,’sebesar Rp. ‘, .................... : ............. );
readln;
end.

c. Kompilasi kode program yang sudah dibuat dengan Free Pascal. Perbaiki hingga kode

kalian berhasil.

2. Perhatikan masalah berikut:

Sebuah persewaan komik memberikan batas waktu menyewa adalah 3 hari dengan biaya
sewa per tiap buku adalah Rp1.500,00. Jika peminjam terlambat maka dikenakan denda

sebesar Rp 1000,00 per buku per hari. Buatlah program persewaan buku tersebut dengan
format tampilan programsebagai berikut.
PROGRAM PERSEWAAN BUKU

Nama Peminjam : ................................................
Jumlah Buku : ................................................
Lama Pengembalian (hari) : ..........

Biaya Sewa : ................................................
Biaya Denda : ................................................
Total yang harus dibayar : ...............................................

Ingat, kalian hanya boleh menggunakan percabangan dengan 1 kondisi saja, yaitu bentuk
IF THEN saja, tidak boleh yang lain.

Jawab:
Kalian dapat menggunakan bantuan kode berikut, yaitu dengan mengsisi titik-titik yang
tersedia, atau sialakan boleh menggunakan ide sendiri jauh lebih baik.