Senin, 14 Maret 2011

Repetition

Repetition(Pengulangan)
Repetition digunakan jika ada beberapa statement berurutan yang harus diulang.
Ada dua cara untuk melakukan pengulangan :

  1. Menggunakan DO WHILE
  2. Menggunakan Repeat – Until
DO WHILE
Format DO WHILE adalah sbb :
    DO WHILE kondisi k bernilai true
        statement_1
        statement_2
        ……………
        statement_n
    END DO

        Ada 3 proses yang dilakukan dalam DO WHILE, yaitu:
Kondisi k selalu dicek
Bila k bernilai true maka statement_1 s.d statement_n dikerjakan kemudian dicek lagi kondisi k
Bila kondisi k bernilai false maka statement_1 s.d statement_n tidak dikerjakan. Alur logika menuju ke END DO dan terus ke statement berikutnya

Contoh
Mengkonversikan derajat Celcius ke Reamur dan Fahrenheit. Yang dibaca adalah derajat Celcius. Data dibaca sebanyak 15 kali.

    X = 0
        DOWHILE X<15
            X=X+1
            Baca Celcius
            Reamur = 4/5 * Celcius
            Fahrenheit =9/5*Celcius + 32
            Cetak celcius, reamur, fahrenheit
    ENDDO

Contoh – Jawaban
Desk Checking
Data Masukan


Repeat – Until

Format Repeat – Until adalah sbb:
    REPEAT
        statement_1
        statement_2
        …….
        statement_n
    UNTIL kondisi k true
Repeat – Until
    Ada tiga proses dilakukan dalam
REPEAT – UNTIL:
Melakukan statement_1 s.d statement_n
Cek kondisi k
Bila kondisi k bernilai false maka diulangi mengerjakan statement_1 s.d statement_n lagi. Bila kondisi k bernilai true maka tidak terjadi pengulangan lagi dan akan dilanjutkan dengan statement berikutnya

Contoh
X=0
REPEAT
    X=X+1
    baca celcius
    reamur = 4/5*celcius
    fahrenheit=9/5*celcius + 32
    cetak celcius, reamur, fahrenheit
UNTIL x=15


Latihan
Buat contoh penggunaan DO WHILE dan REPEAT UNTIL pada aplikasi yang dibangun untuk SISTEM INFORMASI PENYEWAAN DVD. 

34 komentar:

  1. absen dulu ah...
    jawabnya nanti...
    he...^_*

    BalasHapus
  2. Contoh : penggunaan DO WHILE dan REPEAT UNTIL pada aplikasi SI Penyewaan DVD.

    DO WHILE
    I=0
    WHILE I<10
    I= I+1
    Baca DVD
    Penyewaan_1=Pelanggan I *DVD A
    Penyewaan_2=Pelanggan II *DVD B
    Cetak DVD,Pelanggan,Penyewaan
    END DO

    jawaban
    DVD Checking
    Data Pelanggan

    REPEAT UNTIL
    I=0
    REPEAT
    I=I+1
    Baca DVD
    Penyewaan_1=Pelanggan I*DVD
    Penyewaan_2=Pelanggan II*DVD
    Cetak DVD,Pelanggan,Penyewaan
    UNTIL I=10

    Untuk Menentukan nilai true or false dari mana pak...?trus ngambil nilai true or false di SI penyewaan DVD dari mana pak....?saya bingung&kurang paham.

    BalasHapus
  3. @ sofi mana kata maafnya?
    biasanya pake kata maaf

    BalasHapus
  4. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  5. absen dulu pak...
    saya tidak mengerti...

    BalasHapus
  6. RIKI YAKUB_904_093330718

    DO WHILE
    dvd=0
    DOWHILE dvd < 5
    cetak judul dvd
    dvd= dvd+1
    pelanggan = jumlah dvd
    harga/3hr = 3000
    total = jumlah dvd * 3000
    Cetak judul,pelanggan,dan harga / tarif
    END DO

    jwb
    disk checking
    data pelanggan
    data keuangan

    REPEAT UNTIL
    dvd=0
    REPEAT
    cetak judul dvd
    dvd= dvd+1
    pelanggan = jumlah dvd
    harga/3hr = 3000
    total = jumlah dvd * 3000
    Cetak judul,pelanggan,dan harga / tarif
    UNTIL dvd=5

    BalasHapus
  7. waduhh.. pa soalnya tambah rumitt ajh...
    saya absen dlu pa.. jwbnnya nyusul..

    BalasHapus
  8. assalamualaikum,,,,absen dulu aja y pak

    BalasHapus
  9. - DO WHILE
    X = 0
    DO WHILE X < 3
    x = x + 1
    Baca daftar DVD
    Tanggal Peminjaman = Judul Film * Biaya Penyewaaan
    Tanggal Peminjaman = Judul Film * Biaya Penyewaan*14
    Cetak tanggal peminjaman, Judul Film, Biaya Penyewaan
    END DO

    Jawaban
    Disk Checking
    Data Penyewaan

    - Repeat Until
    X = 0
    REAPET
    X = X + 1
    Baca daftar DVD
    Tanggal Peminjaman = Judul Film * Biaya Penyewaan
    Tanggal Peminjaman = Judul Film * Biaya Penyewaan*14
    Cetak tanggal peminjaman, Judul Fil, Biaya Penyewaan
    UNTIL X = 3

    BalasHapus
  10. Annisa Nurul Janah / 904 / 093330688:

    DO WHILE :
    Z=0
    DOWHILE<8
    Z=Z+1
    Judul dvd
    data customer,judul dvd,harga dvd
    End Do

    REPEAT UNTIL :
    Z=0
    Repeat
    Z=Z+1
    judul dvd
    data customer
    harga dvd
    until Z = 8

    BalasHapus
  11. Eka Yuliani/093330740

    A. DO WHILE :
    Y = 0
    DOWHILE Y<10
    Y = Y + 1
    Cetak Judul DVD
    Harga per Hari = 1000 * 1 judul DVD
    Batas Penyewaan = 5 hari
    Denda keterlambatan pengembalian = 500*hari*jumlah DVD
    Cetak judul DVD,harga,denda keterlambatan Pengmbalian
    ENDDO

    B. REPEAT UNTIL :
    Y = 0
    REPEAT
    Y = Y + 1
    Cetak Judul DVD
    Harga per Hari = 1000 * 1 judul DVD
    Batas Penyewaan = 5 hari
    Denda keterlambatan pengembalian = 500*hari*jumlah DVD
    Cetak judul DVD,harga per hari,denda keterlambatan Pengembalian
    UNTIL Y=10

    BalasHapus
  12. absen dulu y pak
    irin aprianti 091131096

    BalasHapus
  13. abesin dulu pak
    maryanti 093330751

    BalasHapus
  14. DO WHILE
    Contoh
    X = 0
    DOWHILE X<15
    X=X+1
    Baca Judul dvd
    Harga = Rp. 1000
    lama pinjaman = 4
    jumlah = Rp.1000*4 = "4000"
    Cetak Juduldvd, harga, lama pinjaman,jumlah
    ENDDO

    Contoh – Jawaban
    Desk Checking
    Data Masukan


    Repeat – Until
    Contoh
    X=0
    REPEAT
    X=X+1
    baca jumlah
    jumlah = 1000*4
    cetak juduldvd, harga, lama pinjaman, jumlah
    UNTIL x=1000

    BalasHapus
  15. irin aprianti /091131096

    1.DO While

    A= 0
    DOWHILE A<5
    A=A+1
    BACA DATA DVD
    PENYEWA = DATA PENYEWA* DATA DVD
    JUMLAH = HARGA SEWA* LAMA PENYEWAAN
    CETAK DVD,PENYEWAAN,JUMLAH
    END DO

    2.REPEAT UNTIL

    A=0
    REPEAT
    A=A+1
    BACA DATA DVD
    PENYEWA = DATA PENYEWA *DATA DVD
    JUMLAH = HARGA SEWA*LAMA PENYEWAAN
    CETAK DVD,PENYEWAAN,JUMLAH

    UNTIL A=5

    BalasHapus
  16. wiji utami
    093330728
    I'm Back ^^

    BalasHapus
  17. saya absen dlu pak..soalnya ssh bgttt saya kurang mengerti pak,,,!!!

    BalasHapus
  18. IIS SELVIA D.K./093330746
    1. DO WHILE
    X = 0
    DOWHILE X<5
    X=X+1
    Baca DVD
    PELANGGAN_1=JML DVD*LAMA PNJMN*TARIF/HARI+JUDUL DVD
    PELANGGAN_2=JML DVD*LAMA PNJMN*TARIF/HARI+JUDUL DVD
    PELANGGAN_3=JML DVD*LAMA PNJMN*TARIF/HARI+JUDUL DVD
    Cetak DATA PELANGGAN, JML DVD, LAMA PNJMN, TARIF, JUDUL DVD
    ENDDO


    Contoh – Jawaban
    Desk Checking
    Data PELANGGAN

    2. Repeat – Until
    X=0
    REPEAT
    X=X+1
    baca DVD
    PELANGGAN_1=JML DVD*LAMA PNJMN*TARIF/HARI+JUDUL DVD
    PELANGGAN_2=JML DVD*LAMA PNJMN*TARIF/HARI+JUDUL DVD
    PELANGGAN_3=JML DVD*LAMA PNJMN*TARIF/HARI+JUDUL DVD
    UNTIL x=5

    PAK NANTI TOLONG JELASIN LAGI YA,SAYA GAK NGERTI PAK!!!

    BalasHapus
  19. abseen ajjh laah sayaa ga ngerty,,,
    jawabaan nyaa nyusuul

    BalasHapus
  20. 1. DO WHILE

    X = 1
    DOWHILE X < 3
    X=X+1
    Baca DVD
    Pelanggan = Tarif sewa*jumlah DVD
    Tarif sewa = jumlah DVD*2000
    Cetak DVD, Pelanggan, Tarif sewa
    ENDDO

    2. Repeat – Until

    X = 1
    REPEAT
    X=X+1
    Baca DVD
    Pelanggan = Tarif sewa*jumlah DVD
    Tarif sewa = jumlah DVD*2000
    Cetak DVD, Pelanggan, Tarif sewa
    UNTIL x=3

    Vega Halwa Nuri/093330767

    BalasHapus
  21. ikhwannudin hadir pak
    jawabanya lg saya pelajari

    BalasHapus
  22. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  23. 1.DOWHILE
    X=0
    DOWHILE x<15
    x=x+1
    Baca DVD
    Pelanggan = tarif sewa*jml dvd
    Tarif Sewa = jml dvd*4000
    Batas Sewa = 4 hari
    Denda keterlambatan pengembalian = 250*hari*jml dvd
    cetak dvd, pelangan, tarif sewa, batas sewa, denda keterlambatan pengembalian
    ENDDO

    2. REPEAT
    X=0
    REPEAT
    X=X+1
    Baca dvd
    Baca DVD
    Pelanggan = tarif sewa*jml dvd
    Tarif Sewa = jml dvd*4000
    Batas Sewa = 4 hari
    Denda keterlambatan pengembalian = 250*hari*jml dvd
    cetak dvd, pelangan, tarif sewa, batas sewa, denda keterlambatan pengembalian
    UNTIL X>15

    Ranti Kurniati 093330717

    BalasHapus
  24. y= 0
    DOWHILE A<5
    y=y+1
    DATA DVD
    PENYEWA = DATA PENYEWA* DATA DVD
    JUMLAH = HARGA SEWA* LAMA PENYEWAAN
    CETAK DVD,PENYEWAAN,JUMLAH
    END DO



    x=0
    REPEAT
    x=x+1
    DATA DVD
    PENYEWA = DATA PENYEWA *DATA DVD
    JUMLAH = HARGA SEWA*LAMA PENYEWAAN
    CETAK DVD,PENYEWAAN,JUMLAH

    UNTIL y=8

    BalasHapus
  25. DO WHILE.
    D= 0
    DO WHILE D <15
    D= D+1
    Cetak Judul DVD
    Tarif = Jumlah DVD * Lama Penyewaan
    Pelanggan = Data pelanggan * Judul DVD
    Cetak Jumlah Tarif ,Jumlah DVD, Data Pelanggan, Judul DVD, Lama Penyewaan.

    END DO
    Jawaban
    Disk Checking
    Data pelanggan
    Data keuangan

    REPEAT UNTIL

    D=0
    REPEAT
    D= D+1
    Cetak Data pelanggan
    Tarif= Jumlah DVD * Lama Penyewaan
    Pelanggan= Data Pelanggan * Judul DVD

    Cetak Jumlah Tarif, Jumlah DVD , Data Pelanggan, Judul DVD, Lama Penyewaan.

    UNTIL D= 15

    BalasHapus
  26. DO WHILE
    Contoh
    E = 0
    DOWHILE X<20
    E=E+1
    Judul dvd
    Harga = Rp. 5000
    Tarif pinjaman = harga *lama pinjaman
    pelanggan= data pelanggan *judul dvd
    Batas sewa = 7 hari
    cetak data pelanggan,Judul dvd, Harga, Lama pinjaman,batas sewa ,tarif pinjaman
    END Do

    Jawaban
    Disk Checking
    Data pelanggan

    Repeat – Until
    Contoh
    E=0
    REPEAT
    E=E+1
    Judul dvd
    Harga = Rp. 5000
    Tarif pinjaman = harga *lama pinjaman
    pelanggan= data pelanggan *judul dvd
    Batas sewa = 7 hari
    cetak data pelanggan,Judul dvd, Harga, Lama pinjaman,batas sewa ,tarif pinjaman

    UNTIL E=20


    *indah iznaeny 093330702/904

    BalasHapus
  27. pak saya masih kurang paham ..
    absen sajalah pak ...

    BalasHapus
  28. 1. do while
    x=0
    do while x<10
    x=x+1
    pelanggan=0
    do while dvd<10
    pelanggan = dvd+1
    write
    pelanggan=harga/hari*dvd
    dvd = 5000/1*jumlah dvd
    2. REPEAT-UNTIL
    X=0
    REPEAT
    X=X+1
    WRITE
    PELANGGAN=0
    REPEAT
    PELANGGAN=DVD+1
    DIBACA
    PELANGGAN= HARGA/HARI*DVD
    DVD = 5000/1*JUMLAH DVD
    UNTIL=10



    RANI.ANGGRAINI 09333758
    DUH PAK SUSAH JUGA YA BIAR JAWABANNYA GA SAMA KAYAK KAWAN2.......

    BalasHapus
  29. absen dulu ahhh...
    jawabanya nyusul besuk...pak!!!

    BalasHapus
  30. pak absen yahh.. saya hadir untuk periode tgl 20 s/d 26 maret...

    BalasHapus
  31. windya Ayu (093330729)

    DO WHILE
    Data Pelanggan
    X = 0
    Do While
    X = X + 1
    Input Data
    Cek Data Film
    Cetak Form Pinjaman
    End Do

    REPEAT UNTIL
    Data Pelanggan
    X = 0
    Repeat
    X = X + 1
    Input Data
    Cek Data Film
    Cetak Form Pinjaman
    Until x = 2

    BalasHapus
  32. absen za pak,, jarang OL.. Maav pak baru OL.

    della dwi jayanti_093330692

    BalasHapus