Revise paste IP Rental

Start

Function InputData()
        Input nomor_pelanggan
        Input nama_pelanggan
        Input kategori_iPhone (A, B, C)
        Input lama_penyewaan
        Input jumlah_hari_keterlambatan

Return nomor_pelanggan, nama_pelanggan, kategori_iPhone, lama_penyewaan, jumlah_hari_keterlambatan
    End Function

Function HitungHargaPerHari(kategori_iPhone)
        If kategori_iPhone == 'A' Then
            harga_per_hari = 200000
        Else If kategori_iPhone == 'B' Then
            harga_per_hari = 100000
        Else
            harga_per_hari = 50000
        End If
        Return harga_per_hari
    End Function

Function HitungBiayaSewa(harga_per_hari, lama_penyewaan)
        If lama_penyewaan > 3 Then
            biaya_awal = (harga_per_hari * 3) + (harga_per_hari * 0.8 * (lama_penyewaan - 3))
        Else
            biaya_awal = harga_per_hari * lama_penyewaan
        End If
        Return biaya_awal
    End Function

Function HitungBiayaKeterlambatan(harga_per_hari, jumlah_hari_keterlambatan)
        biaya_keterlambatan = jumlah_hari_keterlambatan * harga_per_hari * 0.5
        Return biaya_keterlambatan
    End Function

Function OutputData(nomor_pelanggan, nama_pelanggan, kategori_iPhone, lama_penyewaan, jumlah_hari_keterlambatan, biaya_awal, biaya_keterlambatan, total_biaya)
        Output "Nomor Pelanggan: ", nomor_pelanggan
        Output "Nama Pelanggan: ", nama_pelanggan
        Output "Kategori iPhone: ", kategori_iPhone
        Output "Lama Penyewaan: ", lama_penyewaan
        Output "Jumlah Hari Keterlambatan: ", jumlah_hari_keterlambatan
        Output "Biaya Penyewaan: ", biaya_awal
        Output "Biaya Keterlambatan: ", biaya_keterlambatan
        Output "Total Biaya: ", total_biaya
    End Function

// Main Program
    nomor_pelanggan, nama_pelanggan, kategori_iPhone, lama_penyewaan, jumlah_hari_keterlambatan = InputData()

harga_per_hari = HitungHargaPerHari(kategori_iPhone)
    biaya_awal = HitungBiayaSewa(harga_per_hari, lama_penyewaan)
    biaya_keterlambatan = HitungBiayaKeterlambatan(harga_per_hari, jumlah_hari_keterlambatan)
    
    total_biaya = biaya_awal + biaya_keterlambatan

OutputData(nomor_pelanggan, nama_pelanggan, kategori_iPhone, lama_penyewaan, jumlah_hari_keterlambatan, biaya_awal, biaya_keterlambatan, total_biaya)

End