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. 

20 komentar:

  1. Hadi Eko Prayitno / 091131093
    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
  2. Program WHILE_DO;

    Uses Crt;
    Var i:byte;
    Begin
    ClrScr;
    i:=1;
    WHILE i<=5 DO {program akan diulang selaman nilai i<=5}
    Begin
    Writeln(i);
    i:=i+1;
    End;
    End.

    =======================

    Program REPEAT_UNTIL;

    Uses Crt;
    Var i:byte;
    Begin
    ClrScr;
    i:=1;
    REPEAT
    Writeln(i);
    Inc(i);
    UNTIL i>5;{sampai nilai i>5 maka program akan berhenti}
    End.

    BalasHapus
  3. Ahmad Syarif / 906 / 091131074

    ass...
    pa_Inay muv pa'saya kga ngarti ama soalnya heeheee...

    BalasHapus
  4. Sugiyarto 091131018

    1.DO WHILE

    Data customer
    X=0
    Do while
    X=X+1
    Input Data customer
    Cetak data indentitas customer
    Until x=2
    EndDo

    2.REPEAT UNTIL

    Data Customer
    x=0
    Repeat
    X=X+1
    Input data customer
    Cetak data identitas customer
    Until X=2

    BalasHapus
  5. happy anandari_906
    091131037

    DO WHILE
    *Data Nama Customer
    X = 0
    Do while
    X = X+2
    -Input Data film yang diinginkan
    -Cetak data kartu peminjaman film dan yang ingin dipinjam
    Until x = 3
    End Do

    REPEAT UNTIL
    *Data Nama Customer
    X = 0
    Repeat
    x = x+2
    -Input data film DVD yang diinginkan
    -Cetak data kartu peminjaman film dan film DVD yang diinginkan
    Until X=3

    BalasHapus
  6. Arif Prasetyo_906 (091130953)
    • Do While x<3
    Sqrx = sqr(x)
    Print Sqrx
    Loop

    • Repeat x<3
    Sqrx = sqr(x)
    Print Sqrx
    Until x = 3
    Loop

    BalasHapus
  7. ANDRI_906
    091131076

    Do While
    Data Nama Peminjam DVD
    x=0
    Do while
    x = x+6
    Input Data penyewa
    Cetak Data kartu peminjam DVD
    Until x=7

    REPEAT UNTIL
    Data Nama peminjam DVD
    x =0
    Repeat
    x =x+6
    Input Data penyewa
    Cetak Data peminjam DVD
    Until x=7

    BalasHapus
  8. NAMA:IMAN SALEH.T KELAS:906 091131040
    DO WHILE
    X=0
    DO WHILE X< Rp 3.000
    x=x+1
    Harga sewa film Indonesia
    Film Mandarin=2/3* Film Indonesia
    Film Hollywood=5/3* Film Indonesia+Rp 1.000
    Cetak Film Indonesia,Film Mandarin,Film Hollywood
    ENDDO
    Input Data
    Cek Data Film
    Cetak Form Penjualan

    Repeat_Until
    X=0
    REPEAT
    X=X+1
    Harga Sewa Film Indonesia
    Film Mandarin=2/3* Film Indonesia
    Film Hollywood=5/3* Film Indonesia+Rp1.000
    Cetak Film Indonesia,Film Mandarin,Film Hollywood
    UNTIL x=Rp3.000

    BalasHapus
  9. Nama:euis sutarsih kelas 906 091130964
    DO WHILE
    Data persediaan DVD
    x=0
    DO WHILE
    X=x+1
    Input DVD yang akan disewa
    Pengecekan DVD
    Cetak Hasil Pengecekan
    ENDDO

    REPEAT UNTIL
    Data persediaan DVD
    X=0
    REPET
    X=X+1
    Input DVD yang akan disewa
    Pengecekan DVD
    Cetak hasil penecekan
    UNTIL x=5

    BalasHapus
  10. DO WHILE
    Data costumer
    X = 0
    Do While
    X = X + 1
    Input Data
    Cek Data judul Film
    Cetak Form tanggal Pinjaman
    End Do

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

    BalasHapus
  11. 906 091131048

    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
  12. sumiyati /091131020

    DO WHILE:

    a=1
    DO WHILE a<3
    a=a+1;
    baca cd
    cetak cd

    END DO

    program tersebut akan menampilkan :

    cetak = " cd=1 "
    cetak = " cd=2 "
    cetak = " cd=3 "

    REPEAT UNTIL:

    a=1
    REPEAT

    a=a+1;
    baca cd
    cetak cd

    UNTIL a= 3

    program tersebut akan menampilkan:

    cetak = " cd 1 "
    cetak = " cd 2 "
    cetak = " cd 3 "

    BalasHapus
  13. do = sistem penyeawaan dvd
    while = sistem

    X=0
    do while
    X=X+1
    Input Data Pelanggan
    Permintaan pelanggan
    Sistem $tarif penyewaan
    Proses
    Cetak hasil

    END DO

    (jika ada data dari pelanggan yang tidak valid, maka sistem akan mengulang data tersebut, jika tidak sama akan terjadi penolakan terhadap data tersebut)


    REPEAT UNTIL.

    UNTIL=penyewaan dvd
    Input Data
    proses data
    daftar film,

    REPEAT : jika ada data pelanggan yang tidak cocok maka sistem akan mengulang data tersebut $akan terjadi penolakan jika tidak sama dengan data yang di berikan.

    BalasHapus
  14. Indriyanto Utama / 091131095 / 906

    - Contoh Do While untuk mencari no. transaksi terakhir pada tabel sewa ditambah 1 untuk no. transaksi baru :

    Sub isi_combo()
    If datasewa.Recordset.RecordCount > 0 Then
    datasewa.Recordset.MoveFirst
    Do While datasewaRecordset.EOF = False cbkdsewa.AddItem datasewa.Recordset!kdsewa
    datasewa.Recordset.MoveNext
    Loop
    End If

    If datakasir.Recordset.RecordCount > 0 Then
    datakasir.Recordset.MoveFirst
    Do While datakasir.Recordset.EOF = False
    cbkdkas.AddItem datakasir.Recordset!inisial
    datakasir.Recordset.MoveNext
    Loop
    End If
    End Sub

    - Contoh Repeat Until untuk mencari no. transaksi terakhir pada tabel sewa ditambah 1 untuk no. transaksi baru :

    Sub isi_combo()
    If datasewa.Recordset.RecordCount > 0 Then
    datasewa.Recordset.MoveFirst
    Repeat
    cskdsewa.AddItem datasewa.Recordset!kdsewa
    datasewa.Recordset.MoveNext
    Until datasewaRecordset.EOF = False
    End If

    If datakasir.Recordset.RecordCount > 0 Then
    datakasir.Recordset.MoveFirst
    Repeat
    cbkdkas.AddItem datakasir.Recordset!inisial
    datakasir.Recordset.MoveNext
    Until datakasir.Recordset.EOF = False
    End If
    End Sub

    BalasHapus
  15. amin mauzun 906
    X =0
    DOWHILE X>5
    X=X+1
    Baca pinjam
    member = harga-diskon 10%
    nonmember = harga -diskon 0%
    Cetak member, nonmember
    ENDDO

    Jawaban
    Desk Checking
    Data Masukan X=0


    REPEAT
    X=X+1
    baca pinjam
    member= harga - diskon 10%
    nonmember= harga - diskon 0%
    cetak member, nonmember
    UNTIL x=15

    BalasHapus
  16. Sanusi/906/091131011
    - 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
  17. fadlun /906/091130965
    DO WHILE
    *Data Nama Customer
    X = 0
    Do while
    X = X+2
    -Input Data film yang diinginkan
    -Cetak data kartu peminjaman film dan yang ingin dipinjam
    Until x = 3
    End Do

    REPEAT UNTIL
    *Data Nama Customer
    X = 0
    Repeat
    x = x+2
    -Input data film DVD yang diinginkan
    -Cetak data kartu peminjaman film dan film DVD yang diinginkan
    Until X=3

    BalasHapus
  18. **Mengetahui jenis film yang dipinjam,yang dicek adalah film, film yang dipinjam film horor.
    Cara melakukan pengulangan dengan DO WHILE
    X = 0
    DOWHILE X<film horor
    X=X+1
    cek film
    data film = Saw
    form pelanggan = Mr. X
    Cetak film,data film,form pelanggan
    ENDDO



    **Mengetahui jenis film yang dipinjam,yang dicek adalah film, film yang dipinjam film horor.
    Cara melakukan pengulangan dengan Repeat–Until
    X=0
    REPEAT
    X=X+1
    cek film
    data film = Saw
    form pelanggan = Mr. X
    cetak film,data film,form pelanggan
    UNTIL x=film horor



    906//091131043

    BalasHapus
  19. X=0
    DO while < penyewaan mobil
    X=X+1
    cek,harga mobil
    discount

    BalasHapus