PROGRAM PASCAL MENGHITUNG DENDA PERPUSTAKAAN

PROGRAM PASCAL MENGHITUNG DENDA PERPUSTAKAAN

Rancangan program untuk mengetahui denda jika   perpustakaan sekolah menerapkan aturan peminjaman koleksi perpustakaan sebagai berikut:

a.Koleksi yang bisa dipinjam hanyalah koleksi berupa buku-buku teks;

b.Jika koleksi yang dipinjam tergolong ke dalam kelompok langka (jumlah koleksi ≤ 3 eksemplar), maka lama peminjaman dibatasi maksimal 3 hari. Keterlambatan pengembalian untuk 4 hari pertama dikenakan denda Rp 1.000 per hari, 3 hari berikutnya dikenakan Rp. 2.500 per hari dan hari-hari berikutnya dikenakan denda Rp 5.000 per hari;

c.Jika koleksi yang dipinjam tidak tergolong ke dalam kelompok langka, maka lama peminjaman dibatasi maksimal 7 hari. Keterlambatan pengembalian dikenakan denda Rp. 500 per hari;

d.Jumlah koleksi yang bisa dipinjam untuk setiap peminjaman dibatasi maksimal 3 judul buku.

program DendaPerpustakaan;
uses crt;
var
        bl,btl,h:integer;
        d1,d2,d3:real;
begin clrscr;
        writeln('hai, selamat datang di program denda PERPUSTAKAAN POLSTAT STIS . buku yang dapat dipinjam hanya yang koleksi teks');
        write ('jumlah buku langka yang dipinjam: ');
                readln(bl);
        write('jumlah buku tidak langka yang dipinjam: ');
                readln(btl);
        write ('lama peminjaman (dalam hari): ');
                readln (h);
                d1:=bl*1000*(h-3);
                d2:=(bl*2500*(h-7))+(bl*1000*4)+(btl*500*(h-7));
                d3:=(bl*2500*3)+(bl*1000*4)+(btl*500*3)+(bl*5000*(h-10))+(btl*500*(h-10));
                if (bl+btl>3)then
                        write ('maaf pengajuan peminjaman anda tidak dapat diproses. silakan atur ulang pengajuan anda.')
                else
                        begin
                                if h<4 then write ('denda anda 0 rupiah. terimakasih telah mengembalikan tepat waktu.');
                                        if(h>3) and (h<8) then
                                                write ('denda: ',d1,'rp', d1:9:2);
                                                 if (h>7) and (h<11) then
                                                  write ('denda:',d2,'rp',d2:9:2);
                                                   if (h>10) then
                                                    write ('denda:',d3,'rp',d3:9:2);
                                                    end;
                readln;
        end.