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.

Komentar

Posting Komentar

Postingan populer dari blog ini

LAPORAN PRAKTIKUM KIMIA UJI NYALA API UNSUR ALKALI DAN ALKALI TANAH

-
A.     JUDUL                        UJI NYALA API UNSUR ALKALI DAN ALKALI TANAH B.      TUJUAN Mengamati nyala api dari uap logam unsur-unsur golongan alkali dan alkali tanah. C.      LANDASAN TEORI Alkali merupakan unsur-unsur golongan IA dalam sistem periodik unsur. Disebut golongan alkali karena unsur-unsur dalam golongan ini, kecuali Hidrogen, merupakan pembentuk basa kuat. Yang termasuk golongan alkali adalah Hidrogen (H), Litium (Li), Natrium (Na), K (Kalium), Rubidium (Rb), Cesium (Cs), dan Fransium (Fr). Setiap atom, jika diberi energi akan mengalami perubahan kedudukan elektron (akan mengalami eksitasi) dan memancarkan energi radiasi elektromagnetik untuk kembali ke tingkat dasar (keadaan stabil). Menurut Niels Bohr, besarnya energi yang dipancarkan oleh setiap atom jumlahnya tertentu (terkuantisas...
Baca selengkapnya

LAPORAN PRAKTIKUM KIMIA ELEKTROLISIS LARUTAN KI

-
Gambar
ELEKTROLISIS LARUTAN KI A.   Tujuan Mengamati perubahan-perubahan yang terjadi pada elektrolisis larutan kalium iodide (KI) B. Dasar Teori Elektrolisis merupakan peruraian suatu elektrolit karena adanya arus listrik. Pada sel elektrolisis, terjadi perubahan energi listrik menjadi energi kimia. Selain itu, reaksi berlangsung tidak spontan.Sel elektrolisis merupakan rangkaian dua elektrode yaitu anode dan katode yang dicelupkan ke dalam larutan elektrolit dan dilengkapi sumber arus listrik. Katode merupakn kutub negatif dan anode merupakan kutub positif. Di katode terjadi reaksi reduksi dan di anode terjadi reaksi oksidasi . Larutan elektrolit berfungsi untuk menghantarkan arus listrik. Elektrode yang digunakan pada sel elektrolisis adalah elektrode yang tidak terlibat dalam reaksi (inert). C .   Alat dan Bahan ·         Alat : 1.       Pipa U 2.       Kabel listrik 3. ...
Baca selengkapnya

LAPORAN PRAKTIKUM BIOLOGI UJI MAKANAN

-
UJI MAKANAN I.        TUJUAN Mengetahui jenis zat nutrisi yang terkandung dalam bahan makanan II.      LANDASAN TEORI Zat-zat makanan yang dibutuhkan untuk mencukupi kebutuhan gizi dan energi bagi tubuh untuk melakukan aktivitas meliputi karbohidrat, protein, lemak, vitamin, dan mineral. Zat-zat tersebut terkandung dalam bahan makanan yang dikonsumsi. Kekurangan dan kelebihan salah satu zat tersebut akan menyebabkan metabolisme tubuh tidak normal. Setiap zat makanan memiliki fungsi tertentu bagi tubuh. Sehingga diperlukan pola makan yang seimbang agar semua kebutuhan tubuh akan terpenuhi. Kebutuhan zat makanan bagi tubuh tergantung pada usia, jenis kelamin,pekerjaan/aktivitas. III.    VARIABEL Variabel bebas   : ekstrak tepung beras, ekstrak jeruk, ekstrak telur, ekstrak susu kedelai,ekstrak minyak goreng Variabel terikat: perubahan warna Variabel kontrol: penambahan biuret, lugol, benedict IV. ...
Baca selengkapnya