Repetition digunakan jika ada beberapa statement berurutan yang harus diulang.
Ada dua cara untuk melakukan pengulangan :
- Menggunakan DO WHILE
- Menggunakan Repeat – Until
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.
absen dulu ah...
BalasHapusjawabnya nanti...
he...^_*
Contoh : penggunaan DO WHILE dan REPEAT UNTIL pada aplikasi SI Penyewaan DVD.
BalasHapusDO 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.
@ sofi mana kata maafnya?
BalasHapusbiasanya pake kata maaf
Komentar ini telah dihapus oleh pengarang.
BalasHapusabsen dulu pak...
BalasHapussaya tidak mengerti...
RIKI YAKUB_904_093330718
BalasHapusDO 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
waduhh.. pa soalnya tambah rumitt ajh...
BalasHapussaya absen dlu pa.. jwbnnya nyusul..
assalamualaikum,,,,absen dulu aja y pak
BalasHapus- DO WHILE
BalasHapusX = 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
Annisa Nurul Janah / 904 / 093330688:
BalasHapusDO 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
Eka Yuliani/093330740
BalasHapusA. 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
Handy 093330742 hadir pak ....
BalasHapusabsen dulu y pak
BalasHapusirin aprianti 091131096
abesin dulu pak
BalasHapusmaryanti 093330751
DO WHILE
BalasHapusContoh
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
irin aprianti /091131096
BalasHapus1.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
wiji utami
BalasHapus093330728
I'm Back ^^
saya absen dlu pak..soalnya ssh bgttt saya kurang mengerti pak,,,!!!
BalasHapusIIS SELVIA D.K./093330746
BalasHapus1. 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!!!
abseen ajjh laah sayaa ga ngerty,,,
BalasHapusjawabaan nyaa nyusuul
1. DO WHILE
BalasHapusX = 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
ikhwannudin hadir pak
BalasHapusjawabanya lg saya pelajari
Komentar ini telah dihapus oleh pengarang.
BalasHapus1.DOWHILE
BalasHapusX=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
y= 0
BalasHapusDOWHILE 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
DO WHILE.
BalasHapusD= 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
DO WHILE
BalasHapusContoh
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
pak saya masih kurang paham ..
BalasHapusabsen sajalah pak ...
Absen ya pak...
BalasHapus1. do while
BalasHapusx=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.......
absen dulu ahhh...
BalasHapusjawabanya nyusul besuk...pak!!!
pak absen yahh.. saya hadir untuk periode tgl 20 s/d 26 maret...
BalasHapuswindya Ayu (093330729)
BalasHapusDO 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
absen za pak,, jarang OL.. Maav pak baru OL.
BalasHapusdella dwi jayanti_093330692