WanShiTong/b02_denda.pas at master · littlemight/WanShiTong · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
unit b02_denda;

interface
uses
    csv_parser,
    user_handler,
    peminjaman_handler,
    pengembalian_handler,
    utilitas,
    tipe_data,
    buku_handler;

{ DEKLARASI FUNGSI DAN PROSEDUR }
procedure denda(awal, akhir: string);

{ IMPLEMENTASI FUNGSI DAN PROSEDUR }
implementation
procedure denda(awal, akhir: string);
    { DESKRIPSI : Prosedur untuk menangani denda pengguna berdasarkan tanggal awal dan akhir }
    { PARAMETER : tanggal awal dan akhir }

    { KAMUS LOKAL }
    var
        deltaHari : int64;
    { ALGORITMA }
    begin
        deltaHari := BedaHari(awal, akhir);
        if (deltaHari <= 0) then // Jika pengembalian dilakukan setelah tanggal peminjaman dan sebelum tenggat waktu
        begin
            writeln('Terima kasih sudah meminjam');
        end else  if (deltaHari > 0)// deltaHari > 0
        then begin
            writeln('Anda terlambat mengembalikan buku.');
            writeln('Anda terkena denda Rp', deltaHari * 2000 , '.');
        end;
    end;
end.