AMIK LAKSI 31: Repetition

Senin, 14 Maret 2011

Repetition

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

Menggunakan DO WHILE
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:

cristian patan15 Maret 2011 pukul 11.11
Patar Kristian
902
MI

Sistem Informasi Penyewaan DVD

"data dibaca sebanyak 12 kali"

Contoh penggunaan DO WHILE :

X=0
DOWHILE X<12
X=X+1
baca DVD
Penyewa1=Banyak DVD*Harga Sewa DVD @Rp.3000,-
Penyewa2=Banyak DVD*Harga DVD @Rp.3000,-+Denda
Cetak banyak DVD,Penyewa,Pemasukan
ENDDO

Contoh penggunaan Repeat Until :

X=0
REPEAT
X=X+1
baca DVD
Penyewa1=Banyak DVD*Harga Sewa DVD @Rp.3000,-
Penyewa2=Banyak DVD*Harga Sewa DVD @Rp.3000,-
Cetek banyak DVD,Penyewa,Pemasukan
UNTIL X=12
BalasHapus
Balasan
ismail17 Maret 2011 pukul 05.56
Nama : Ismail
Kelas : 902/MI(Malam)
NIM : 09113119

Penyelesain :

SISTEM INFORMASI PENYEWAAN DVD

"Data yang dibaca banyaknya Penyewaan DVD 10 Kaset DVD"

*contoh Penggunaan DO WHILE :

X=o
DOWHILE X<10
X=X+1
baca Penyewaan DVD
Penyewa 1=Jumlah yang disewakan DVD*Harga Satuan Sewa DVD @Rp.7.000,-
Penyewa2= Jumlah yang disewakan DVD*Harga DVD @Rp.7.000,-+denda
Cetak banyak Pemasukan dan pengeluaran DVD
ENDDO

*Contoh Penggunaan Repeat Until :

X=0
REPEAT
X=X+1
baca Penyewaan DVD
baca Penyewaan DVD
Penyewa 1=Jumlah yang disewakan DVD*Harga Satuan Sewa DVD @Rp.7.000,-
Penyewa2= Jumlah yang disewakan DVD*Harga DVD @Rp.7.000,-+denda
Cetak banyak Pemasukan dan pengeluaran DVD
UNTIL X=10
BalasHapus
Balasan
suroso17 Maret 2011 pukul 10.45
Komentar ini telah dihapus oleh pengarang.
BalasHapus
Balasan
suroso17 Maret 2011 pukul 10.51
Nama : SUROSO
NIM : 091131021
MI_902

1. CONTOH "MENGGUNAKAN DO WHILE"

__Program harga yang harus di bayar oleh si penyewa DVD__

uses Wincrt
var
A,B : real
C : Char

Begin
clscr;
A:=0
Write ('Jumlah DVD yang di sewa='); readln (A);
Write ('Harga sewa perkeping DVD'); readln (B);
while( C=10.000*B ) do begin
write ( C,'' );
C:= A*B;
end;
end;

readln;

end.

2. CONTOH "MENGGUNAKAN REPEAT UNTIL"

__Program harga yang harus di bayar oleh si penyewa DVD__

uses Wincrt
var
A,B : real
C : Char

Begin
clscr;

A:=0
Write ('Jumlah DVD yang di sewa='); readln(A);
Write ('Harga sewa perkeping DVD'); readln (B);

Repeat
B:= 10.000*A;
writeln (Harga sewa perDVD =', B*A);
write(Anda ingin menghitung lagi ?=') readln(C);
end;
end;

Until( C=A*B );

end.
BalasHapus
Balasan
Ria Apriyani18 Maret 2011 pukul 06.49
Nama : Ria Apriyani
Kelas : 902 Management Informatika
NIM : 091131121

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
Balasan
Wiyarno18 Maret 2011 pukul 06.57
Nama : Wiyarno
Kelas : 902 MI
NIM : 091131118

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
Balasan
Neka wati18 Maret 2011 pukul 09.50
Nama : Neka Wati
Kelas :902

penggunaan DO WHILE :

X=0
DOWHILE X<14
X=X+1
baca DVD
Penyewa1=Banyak DVD*Harga Sewa DVD @Rp.4000,-
Penyewa2=Banyak DVD*Harga DVD @Rp.4000,-+Denda
Cetak banyak DVD,Penyewa,Pemasukan
ENDDO

penggunaan Repeat Until :

X=0
REPEAT
X=X+1
baca DVD
Penyewa1=Banyak DVD*Harga Sewa DVD @Rp.4000,-
Penyewa2=Banyak DVD*Harga Sewa DVD @Rp.4000,-
Cetek banyak DVD,Penyewa,Pemasukan
UNTIL X=14
BalasHapus
Balasan
Unknown20 Maret 2011 pukul 06.51
Rahmat
902
09113100

Penggunaan DO WHILE :

X=0
DOWHILE X<12
X=X+1
Baca DVD
Penyewa1= Banyak DVD*Harga Sewa DVD 4000
Penyewa2= Banyak DVD*Harga DVD 4000+Denda
Cetak banyak DVD,Penyewa,Pemasukan
ENDDO

Penggunaan Repeat Until :

X=0
REPEAT
X=X+1
baca DVD
Penyewa1=Banyak DVD*Harga Sewa DVD 4000
Penyewa2=Banyak DVD*Harga Sewa DVD 4000
Cetek banyak DVD,Penyewa,Pemasukan
UNTIL X=12
BalasHapus
Balasan
Wahyu Hidayat20 Maret 2011 pukul 20.51
wahyu Hidayat/902/091131029

contoh do whilw

#include (stdio.h)

#include (conio.h)

#include (moth.h)

#include (time.h)

int x=0;

char nama [20];

char alamat [50];

Int jumlah,harga;

do

printf ("masukkan nama;");

scanf (%c, &nama);

prinf ("masukkan alamat: \n");

scanf (%c, &alamat);

prinf ("jumlah dvd pinjaman: \n");

harga = 5000

pinjaman*harga

printf ("total harga: \n");

printf ("press 1 to continue");

while (int !=1)

enddo

contoh repeat until

#include (stdio.h)

#include (conio.h)

#include (moth.h)

#include (time.h)

int x=0;

char nama [20];

char alamat [50];

Int jumlah,harga;

repeat

printf ("masukkan nama;");

scanf (%c, &nama);

prinf ("masukkan alamat: \n");

scanf (%c, &alamat);

prinf ("jumlah dvd pinjaman: \n");

harga = 5000

pinjaman*harga

printf ("total harga: \n");

until (int =10)
BalasHapus
Balasan
Suci Handayani (suchi)20 Maret 2011 pukul 20.54
Komentar ini telah dihapus oleh pengarang.
BalasHapus
Balasan
Suci Handayani (suchi)20 Maret 2011 pukul 20.57
Komentar ini telah dihapus oleh pengarang.
BalasHapus
Balasan
widya aryfah ( chu)20 Maret 2011 pukul 21.06
Komentar ini telah dihapus oleh pengarang.
BalasHapus
Balasan
Suci Handayani (suchi)20 Maret 2011 pukul 21.33
nama : suci handayani
kelas : 902
nim : 091131016
#include

#include

#include

main()

{

int kode,tahun,harga,jumlah,total;

char judul [40],sutradara [40],produksi [40];
do

cout<<”LAKSI DVD RENT ”<>kode;

cout<<”Input Judul Film :”;

gets (judul);

cout<<”Input Sutradara :”;

gets (sutradara);

cout<<”Input Produksi :”;

gets (produksi);

cout<<”Input Tahun Produksi :”;

cin>>tahun;

cout<<”Input Harga DVD :”;

cin>>harga;

cout<<”Input Jumlah Peminjaman :”;

cin>>jumlah;

cout<<”———————————”<>kode;

cout<<”Input Judul Film :”;

gets (judul);

cout<<”Input Sutradara :”;

gets (sutradara);

cout<<”Input Produksi :”;

gets (produksi);

cout<<”Input Tahun Produksi :”;

cin>>tahun;

cout<<”Input Harga DVD :”;

cin>>harga;

cout<<”Input Jumlah Peminjaman :”;

cin>>jumlah;

cout<<”———————————”<<endl;

cout<<”Kode DVD :”<<kode<<endl;

cout<<”Judul Film :”<<judul<<endl;

cout<<”Sutradara :”<<sutradara<<endl;

cout<<”Produksi :”<<produksi<<endl;

cout<<”Tahun Produksi :”<<tahun<<endl;

cout<<”Harga DVD :”<<harga<<endl;

cout<<”Jumlah Peminjaman :”<<jumlah<<endl;

cout<<”———————————–”<<endl;

total = harga*jumlah;

cout<<”Total Harga :”<<total;

getch();

}
until (int =10)

:)
BalasHapus
Balasan
sukma21 Maret 2011 pukul 06.48
Nama : Sukma Wijaya
Kelas : 902/MI (Malam)
NIM : 091131112

SISTEM INFORMASI PENYEWAAN DVD

"Data yang dibaca banyaknya Penyewaan DVD"

*contoh Penggunaan DO WHILE :

X=o
DOWHILE X<10
X=X+1
baca Penyewaan DVD
Penyewa 1=Jumlah yang disewakan DVD*Harga Satuan Sewa DVD @Rp.15.000,-
Penyewa2= Jumlah yang disewakan DVD*Harga DVD @Rp.15.000,-+denda
Cetak banyak Pemasukan dan pengeluaran DVD
ENDDO

*Contoh Penggunaan Repeat Until :

X=0
REPEAT
X=X+1
baca Penyewaan DVD
baca Penyewaan DVD
Penyewa 1=Jumlah yang disewakan DVD*Harga Satuan Sewa DVD @Rp.15.000,-
Penyewa2= Jumlah yang disewakan DVD*Harga DVD @Rp.15.000,-+denda
Cetak banyak Pemasukan dan pengeluaran DVD
UNTIL X=10
BalasHapus
Balasan
widya aryfah ( chu)21 Maret 2011 pukul 19.48
widya arifah s.
902
091131031

contoh do while

int kode,tahun,harga,jumlah,total;

char judul [40],sutradara [40],produksi [40];
do

cout<<”RENTAL DVD BLUE ”<>kode;

cout<<”Input Judul Film :”;

gets (judul);

cout<<”Input Harga DVD :”;

cin>>harga;

cout<<”Input Jumlah Peminjaman :”;

cin>>jumlah;

cout<<”———————————”<>kode;

cout<<”Input Judul Film :”;

gets (judul);

cout<<”Input Harga DVD :”;

cin>>harga;

cout<<”Input Jumlah Peminjaman :”;

cin>>jumlah;

cout<<”———————————”<>kode;

cout<<”Input Judul Film :”;

gets (judul);

cout<<”Input Harga DVD :”;

cin>>harga;

cout<<”Input Jumlah Peminjaman :”;

cin>>jumlah;

cout<<”———————————”<<endl;

cout<<”Kode DVD :”<<kode<<endl;

cout<<”Judul Film :”<<judul<<endl;

cout<<”Harga DVD :”<<harga<<endl;

cout<<”Jumlah Peminjaman :”<<jumlah<<endl;

cout<<”———————————–”<<endl;

total = harga*jumlah;

cout<<”Total Harga :”<<total;

getch();
BalasHapus
Balasan
nurfajriyah22 Maret 2011 pukul 06.31
Nurfajriyah_MI
902_091131103

1. contoh penggunaan DO WHILE :
__Program harga yang harus di bayar oleh si penyewa DVD__

uses Wincrt
var
A,B : real
C : Char

Begin
clscr;
A:=0
Write ('Jumlah DVD yang di sewa='); readln (A);
Write ('Harga sewa perkeping DVD'); readln (B);
while( C=10.000*B ) do begin
write ( C,'' );
C:= A*B;
end;
end;

readln;

end.

2. contoh 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
Balasan
nurhasanah22 Maret 2011 pukul 06.36
Nurhasanah{902}
_091131035_

#include

#include

#include

main()

{

int kode,tahun,harga,jumlah,total;

char judul [40],sutradara [40],produksi [40];
do

cout<<”LAKSI DVD RENT ”<>kode;

cout<<”Input Judul Film :”;

gets (judul);

cout<<”Input Sutradara :”;

gets (sutradara);

cout<<”Input Produksi :”;

gets (produksi);

cout<<”Input Tahun Produksi :”;

cin>>tahun;

cout<<”Input Harga DVD :”;

cin>>harga;

cout<<”Input Jumlah Peminjaman :”;

cin>>jumlah;

cout<<”———————————”<>kode;

cout<<”Input Judul Film :”;

gets (judul);

cout<<”Input Sutradara :”;

gets (sutradara);

cout<<”Input Produksi :”;

gets (produksi);

cout<<”Input Tahun Produksi :”;

cin>>tahun;

cout<<”Input Harga DVD :”;

cin>>harga;

cout<<”Input Jumlah Peminjaman :”;

cin>>jumlah;

cout<<”———————————”<<endl;

cout<<”Kode DVD :”<<kode<<endl;

cout<<”Judul Film :”<<judul<<endl;

cout<<”Sutradara :”<<sutradara<<endl;

cout<<”Produksi :”<<produksi<<endl;

cout<<”Tahun Produksi :”<<tahun<<endl;

cout<<”Harga DVD :”<<harga<<endl;

cout<<”Jumlah Peminjaman :”<<jumlah<<endl;

cout<<”———————————–”<<endl;

total = harga*jumlah;

cout<<”Total Harga :”<<total;

getch();

}
until (int =10)
BalasHapus
Balasan
ferdy Y.R22 Maret 2011 pukul 10.22
1. DO WHILE
answer :
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
answer :
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
BalasHapus
Balasan
Muhammad Ridwan22 Maret 2011 pukul 23.27
M.RIDWAN
902

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
Balasan
A.Rochman28 Maret 2011 pukul 06.17
Nama : Abdul Rochman
NIM : 091131069
Kelas: 902_MI

1. CO/ Menggunakan "DO WHILE"

Program penyewaan DVD

X=O
DO WHILE X=<11
X=X+1
Data/input DVD
Jumlah DVD yang di sewa
Harga sewa DVD
Pemasukan & Pengeluaran
End Do

Co/ Menggunakan "REPEAT UNTIL"

Program Penyewaan DVD

X=O
Repeat
X=X+1
Data/Input DVD
Jumlah DVD yang disewa 5 keping DVD film
Harga sewa DVD Rp 15.000/5 keping DVD
Pemasukan & Pengeluaran
Until X=11
BalasHapus
Balasan

Tambahkan komentar

AMIK LAKSI 31

Senin, 14 Maret 2011

Repetition

20 komentar:

Mengenai Saya

Arsip Blog