Salah satu kelebihan komputer apabila di bandingkan dengan
manusia adalah dapat melakukan
suatu perintah yang sama secara berulang-ulang tanpa
mengenal lelah dan bosan. Kelebihan ini
lah yang tidak di miliki oleh manusia. Sehingga manusia
dapat memanfaatka n kelebihan ini
untuk kepentingannya dalam menyelesaikan tugas-tugas
keseharian.
Di dalam bahasa pascal terdapat 3 pernyataan perulangan yang
lazim sering digunakan oleh
para pemrogram. Ketiga pernyataan itu adalah sebagai berikut
:
1. Pernyataan For,
2. Pernyataan While,
dan
3. Pernyataan Repeat.
Ada baiknya setiap pernyataan tersebut kita pahami satu
persatu. Karena dalam setiap masalah
yang kita hadapi perlu penangan yang berbeda pula. Oleh
Karen itu setiap pernyataan tersebut
memiliki fungsi yang berbeda-beda dalam setiap
pengaplikasiannya.
1. Pernyataan For
Perulangan for digunakan untuk mengulang statmen sebanyak
yang telah didefinisikan sebelum
perulangan tersebut di eksekusi. Perulangan For..to.. do
biasanya digunakan apabila pencacah
sudah di ketahui.
For pencacah <- nilai awal to nilai akhir do
pernyataan
end for;
Keterangan :
a. Pencacah harus
berupa tipe data integer atau karakter.
b. Nilai awal harus
lebih kecil atau sama dengan nilai akhir.
c. Pernyataan adalah
statmen yang di ulang sebanyak berulang kali.
Berikut adalah contoh-contoh pengaplikasian pernyataan for
dalam bahasa Pascal.
Contoh Program 1 :
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
24
Apabila di run maka akan menghasilkan output sebagai berikut
:
Penjelasan kode :
Kode Keterangan
Write („Masukan jumlah nilai yang akan di
ulang = ‟)
Berfungsi untuk menampilkan teks
„Masukan jumlah nilai yang akan di ulang
=‟
Readln(n) Berfungsi
sebagai inputan jumlah nilai
angka
For I := 1 to n
Writeln(„Saya berjanji tidak akan nakal
lagi‟)
Berfungsi sebagai perulangan dimana
pengulangan sesuai dengan nilai n dan
akan menampilkan pesan saya berjanji
tidak akan nakal lagi.
Contoh Program 2 :
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
25
Jika di run maka akan menghasilkan output sebagai berikut :
Penjelasan kode :
Kode Keterangan
Write („Tulis angka dari 1 sampai dengan
‟)
Berfungsi untuk menampilkan teks „Tulis
angka dari 1 sampai dengan‟
Readln(n) Berfungsi
sebagai inputan jumlah nilai
angka
For I := 1 to n
Writeln(i)
Berfungsi sebagai perulangan dimana
pengulangan sesuai dengan nilai n dan akan
menampilkan angka sebanyak n.
Contoh Program 3:
Jika di run maka akan menghasilkan output sebagai berikut
:
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
26
Penjelasan kode :
Kode Keterangan
Write („Input angka = 7 ‟)
Berfungsi untuk menampilkan teks „input
angka =‟
Readln(n) Berfungsi
sebagai inputan jumlah nilai
angka n
For I := n downto 0
Writeln(i)
Berfungsi sebagai perulangan dimana
pengulangan sesuai dengan nilai n dan akan
menampilkan angka terbesar hingga
terkecil.
2. Pernyataan While
Pernyataan while ini akan melakukan perulangan selama
kondisi bernilai
benar/true. Jika perulang bernilai salah/false maka
perulangan akan berhenti.
While kondisi do
pernyataan
endwhile;
contoh program 1:
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
27
Jika di run maka akan menghasilkan output sebagai berikut :
Penjelasan kode :
Kode Keterangan
Write („Input angka ‟) Berfungsi
untuk menampilkan teks „Input
angka‟
Readln(n) Berfungsi
sebagai inputan angka
J := 0 dan I := 1
Sebagai inisialisasi j sebagai 0 dan I sebagai
1
while i <= n do
begin
Selama I kurang dari n maka proses akan
terus di lanjutkan
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
28
j := j + i;
i := i + 1;
end;
Variable j ditambah dengan 1 kemudian
hasil penambahan akan di tampung di
variable j
Variable i ditambah dengan 1 kemudian
hasil penambahan akan di tampung di
variable I apabila data yang ditampung
melebihi nilai n maka proses akan berhenti.
3. Pernyataan repeat
Contoh program 1 :
Jika di run maka akan menghasilkan output sebagai berikut :
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
29
Penjelasan kode :
Kode Keterangan
Write („Masukan angka perulangan= ‟) Berfungsi untuk menampilkan teks
„Masukan angka perulangan= ‟
Readln(n) Berfungsi
sebagai inputan angka
I := 1; Inisialisasi
I sebagai 1
Repeat Pernyataan
perulangan
Writeln(I,‟SMK Marhas‟) Untuk
menampilkan pesan SMK Marhas
sedangkan „I‟ akan menampilkan angka
sebanyak di ulang.
i = I + 1;
until I > n
Berfungsi apabila nilai I lebih besar dari n
maka perulangan akan berhenti.
Contoh program 2 :
Jika di run maka akan menghasilkan output sebagai berikut
:
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
30
Penjelasan kode :
Kode Keterangan
Write („Masukan Password ‟)
Berfungsi untuk menampilkan teks
„Masukan Password‟
Readln(n) Berfungsi
sebagai inputan password
I := „n‟
Inisialisasi I sebagai karakter n
If n = „nobi‟ then writeln(„Password
Benar‟)
Jika inputan n sama dengan nobi maka
akan menapilkan pesan password benar.
Else writeln(„Password Salah‟)
Jika kondisi pertama tidak terpenuhi maka
akan menampilkan pesan Password salah.
Write(„Cobal lagi ?‟) readln(i)
Until I = „n‟
Akan menampilkan pesan pertanyaan
Coba lagi. Jika ya maka program akan di
ulang dan jika memasukan nilai n maka
program akan berhenti.
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
31
Contoh program 3:
Jika di run maka akan menghasilkan output sebagai berikut :
Penjelasan kode :
Kode Keterangan
Write („Cuaca hari ini mendung atau cerah
? ‟)
Berfungsi untuk menampilkan teks „Cuaca
hari ini mendung atau cerah ? ‟
Readln(cuaca)
Berfungsi sebagai inputan nilai
I := „n‟ Inisialisasi I sebagai karakter n
If cuaca = „mendung‟ then writeln(„Hari ini
hujan‟)
Jika inputan cuaca sama dengan mendung
maka akan menapilkan pesan hari ini
hujan.
Else writeln(„Hari ini panas‟)
Jika kondisi pertama tidak terpenuhi maka
akan menampilkan pesan Hari ini panas.
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
32
Write(„Cobal lagi ?‟) readln(i)
Until I = „n‟
Akan menampilkan pesan pertanyaan Coba
lagi. Jika ya maka program akan di ulang
dan jika memasukan nilai n maka program
akan berhenti.
Tidak ada komentar:
Posting Komentar