04 Mei, 2010

tugas komputer ( 12 mei 2010)

Tugas Komputer untuk tanggal 12 mei 2010

1. Buatlah program untuk menghitung pembayaran listrik PLN dengan ketentuan
- Biaya Beban 40000
- pemakaian di bawah 10 kWh harga listrik per kwh Rp 750,-
- pemakaian di atas 10 kwh harga listrinya Rp 1000,-/kwh
- pembayaran setelah tanggal 20 dikenakan denda Rp 15000,-
- dikenakan biaya PPN 10%
Buatlah flowchart dan program fortrannya!!.

2. suatu toko menjual alat alat komputer mempunyai ketentuan sebagai berikut
- jika membeli barang kode 1 ---> potongan 10%
- Jika membeli barang kode 2 ---> potongan 20%
- jika membeli barang kode 3 ---> potongan 30%
harga barang kode 1 = Rp 10000,-
harga barang kode 2 = Rp 30000,-
harga barang kode 3 = Rp 50000,-
Buatlah program untuk menghitung jumlah yang harus dibayar!!
Diposting oleh di
Label:

22 komentar:

  1. sopyan ali rohman1 Juni 2010 pukul 03.13

    ne pak program saya, NIM F1C 008 050

    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    BalasHapus
  2. Sopyan Ali Rohman1 Juni 2010 pukul 03.15

    NIM : F1C 008 050

    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end

    BalasHapus
  3. Ahmad Bayu Cahyo P1 Juni 2010 pukul 18.37

    Nim : F1c008032

    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang & jumlah barang'
    5 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 5
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,6)bayar
    6 format('anda harus membayar = Rp.',f10.2)
    end

    BalasHapus
  4. Ahmad Bayu Cahyo P1 Juni 2010 pukul 18.39

    NIM : F1C008032

    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    BalasHapus
  5. AHMAD MULTAZAM1 Juni 2010 pukul 18.42

    NIM : F1C 008010

    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    BalasHapus
  6. AHMAD MULTAZAM1 Juni 2010 pukul 18.49

    NIM :F1C 008 010

    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang & jumlah barang'
    10 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 10
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,5)bayar
    5 format('anda harus membayar uang sebesar = Rp.',f10.2)
    end

    BalasHapus
  7. mocoz_121 Juni 2010 pukul 21.43

    M.MANSYUR(F1C008056)
    buat ngitung harga barang
    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end



    buat ngitung tagihan listrik
    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    BalasHapus
  8. Anonim1 Juni 2010 pukul 21.49

    F1C008058 ATAS NAMA ZAINUDIN
    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end


    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    BalasHapus
  9. Anonim1 Juni 2010 pukul 21.50

    AFIF ALMU (F1C008042)
    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end

    BalasHapus
  10. Anonim1 Juni 2010 pukul 21.53

    SAIFUL JAMIL(M. SYAIFUL BAHRI)nim f1c008044)

    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end


    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    BalasHapus
  11. mocoz_121 Juni 2010 pukul 21.55

    IDRIS SUHENDRO F1C 008062

    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end



    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end

    BalasHapus
  12. Anonim1 Juni 2010 pukul 21.58

    LALU ASGAF WAHYU PRIBADI (F1C008052)
    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end

    BalasHapus
  13. Anonim1 Juni 2010 pukul 22.00

    WIJIK ARTA MULTIKANAKA F1COO8046
    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end

    BalasHapus
  14. Anonim2 Juni 2010 pukul 00.26

    I Putu Krishna Artha S. F1C 006032
    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end

    BalasHapus
  15. Anonim2 Juni 2010 pukul 00.28

    I Gede Widiartha, F1C 006038
    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end

    BalasHapus
  16. Anonim2 Juni 2010 pukul 00.29

    Prayuda Atmam,, F1C 004060
    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end

    BalasHapus
  17. Anonim2 Juni 2010 pukul 00.38

    M. ANWAR F1C008006
    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end





    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end

    BalasHapus
  18. Anonim2 Juni 2010 pukul 00.39

    DEDI FATRA WIJAYA F1C008038



    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end

    BalasHapus
  19. Anonim2 Juni 2010 pukul 00.40

    yudi saputra f1c008068





    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end

    BalasHapus
  20. Anonim2 Juni 2010 pukul 00.41

    bagus aprianta f1c008018




    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end

    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang dan jumlah barang'
    2 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 2
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,3)bayar
    3 format('anda harus membayar = Rp.',f10.2)
    end

    BalasHapus
  21. mocoz_124 Juni 2010 pukul 07.01

    pak mana alamat emailnya...

    BalasHapus
  22. Anonim9 Juni 2010 pukul 00.08

    nama : hari jatmiko
    nim : F1C 009 014



    c program menghitung bayar listrik
    integer d, m, y
    real denda, bayar, jlh, pem, tag, ppn
    write (*,*) 'tanggal bayar tagihan : tanggal, bulan, tahun'
    read (*,*) d, m, y
    if(d.GT.20)then
    denda=15000
    else
    denda=0
    endif
    write(*,*) 'jumlah kebutuhan listrik'
    read (*,*) pem
    if(pem.GT.10)then
    bayar=1000
    else
    bayar=0
    endif
    jlh=4000+denda+(bayar*pem)
    ppn=0.1*jlh
    tag=jlh+ppn
    write(*,*)'---------------------------------------'
    write(*,1)d,m,y
    1 format('Tanggal Pembayaran',2X,i2,'/',i2,'/',i4)
    write(*,*)'Biaya Beban : Rp. 40000.00'
    write(*,2)pem
    2 format('Jumlah Pemakaian :',1X,f13.2,1X,'KWH')
    write(*,3)denda
    3 format('Denda :'1X,'Rp.',f10.2)
    write(*,4)jlh
    4 format('Bayar pemakaian :',1X,'Rp.',f10.2)
    write(*,5)ppn
    5 format('PPN :',1X,'Rp.',f10.2)
    write(*,*)' -----------------------'
    write (*,6) tag
    6 format('Tagihan yang dibayar:',1X,'Rp.',f10.2)
    write(*,*)'---------------------------------------'
    end





    c program menghitung harga barang
    integer kode, jlh
    real disc, harga, total, bayar
    write (*,*)'masukkan kode barang & jumlah barang'
    10 read (*,*)kode, jlh
    if (kode.EQ.1)then
    harga=9000
    elseif (kode.EQ.2)then
    harga=24000
    elseif(kode.EQ.3)then
    harga=35000
    else
    write(*,*)'anda memasukkan kode barang yang salah'
    write(*,*)'masukkana kode baranga 1-3'
    go to 10
    endif
    total=harga*jlh
    if (total.GT.1000000)then
    disc=0.25*total
    else
    disc=0
    endif
    bayar=total-disc
    write(*,5)bayar
    5 format('anda harus membayar uang sebesar = Rp.',f10.2)
    end

    BalasHapus

Langganan: Posting Komentar (Atom)