CCCPaste

Rental IP

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

    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

    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

    biaya_keterlambatan = jumlah_hari_keterlambatan * harga_per_hari * 0.5
    total_biaya = biaya_awal + biaya_keterlambatan

    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