Contoh Program Komputer Untuk Pengulangan Dengan Pascal
Contoh progran perulangan dengan Pascal yang paling sederhana adalah mencetak angka 1 hingga 10 dengan tampilan output seperti berikut :
1 2 3 4 5 6 7 8 9 10
Buatlah program untuk mencetak angka 1 hingga 10 dengan menggunakan perintah :
a. For - to - do
b. While - do
c. Repeat - Until
a. For - to - do
b. While - do
c. Repeat - Until
Bentuk Perintah :
FOR i::=
Begin
Pernyataan;
End;
Variabel i adalah variabel yang menyimpan nilai yang menentukan banyaknya perulangan dilakukan, dimana perulangan dilakukan mulai dari NILAI AWAL hingga NILAI AKHIR. Misalnya nilai awal 1 dan nilai akhir 10, berarti proses perulangan dilakukan sebanyak 10 kali.
Perulangan For i:=1 to i:=10 do artinya “Ulangi pernyataan untuk nilai variabel i mulai dari 1 sampai 10. Dalam program, variabel i digunakan sebagai variabel untuk menghitung jumlah perulangan. Pernyataan yang dikerjakan adalah mencetak nilai variabel i . Khusus untuk For-to-do, increment (pertambahan) nilai variabel i dilakukan secara otomatis dalam program perulangan pascal, sehingga tidak ada pernyataan inc(i) dalam loop.
Pernyataan;
End;
Variabel i adalah variabel yang menyimpan nilai yang menentukan banyaknya perulangan dilakukan, dimana perulangan dilakukan mulai dari NILAI AWAL hingga NILAI AKHIR. Misalnya nilai awal 1 dan nilai akhir 10, berarti proses perulangan dilakukan sebanyak 10 kali.
Perulangan For i:=1 to i:=10 do artinya “Ulangi pernyataan untuk nilai variabel i mulai dari 1 sampai 10. Dalam program, variabel i digunakan sebagai variabel untuk menghitung jumlah perulangan. Pernyataan yang dikerjakan adalah mencetak nilai variabel i . Khusus untuk For-to-do, increment (pertambahan) nilai variabel i dilakukan secara otomatis dalam program perulangan pascal, sehingga tidak ada pernyataan inc(i) dalam loop.
Perhatikan pada pernyataan :
For i:=1 to 10 do
write(' ',i);
Baris pernyataan write(' ',i); tidak dituliskan dalam blok Begin-End karena hanya terdiri dari satu baris saja. Jika pernyataan yang akan dikerjakan secara berulang kali terdiri dari 2 baris atau lebih, maka harus dituliskan dalam blok Begin – End.
Contoh :
For i:=1 to 10 do
Begin
write(' ');
Write(i);
End;
Penyataan write(' ',i); dan write(' '); Write(i); artinya cetak spasi kemudian cetak nilai i.
Program lengkapnya adalah sebagai berikut :
Program For_TODO1;
uses crt;
var i : integer;
begin
clrscr;
For i:=1 to 10 do
write(' ',i);
readln;
end.
Bentuk perintah : While do
Begin
Pernyataan;
End;
Perulangan While-do artinya “kerjakan baris pernyataan secara berulang selama KONDISI pada WHILE bernilai BENAR”. Dalam perulangan While-do, variabel penghitung jumlah perulangan yaitu i selalu atau harus diberi nilai awal dengan pernyataan i:= 1;. Artinya nilai nilai i dimulai dari 1 sampai kondisi pada while-do tidak memenuhi syarat. Untuk mencetak angka 1 hingga 10, kondisinya adalah i<11 behenti.="" bernilai="" kondisi="" maka="" perulangan="" salah="" sehingga="">
Begin
Pernyataan;
End;
Perulangan While
Pernyataan pertambahan nilai variabel i dalam loop adalah inc(i). Program lengkapnya adalah sebagai berikut:
Program CONTOH_WHILE;
uses crt;
var i : integer;
Begin
clrscr;
i:=1;
While i<11 comment-11--="" do="">
begin
write(' ',i);
inc(i);
end;
readln;
End.
Bentuk Perintah :
REPEAT
Begin Pernyataan;
End;
UNTIL
Perulangan dengan Repeat – Untilartinya “ulangi sampai kondisi bernilai BENAR”. Sama dengan While-do, variabel i harus diberi nilai awal pada awal program, kemudian pertambahan nilai i dilakukan dalam loop. Yang perlu diperhatikan adalah bahwa pernyataan UNTIL i>11 berada di luar blok Begin-end. Sehingga pernyataan untuk mencetak nilai i dikerjakan lebih dahulu kemudian melakukan pengecekan nilai i. Dengan demikian, maka dalam repeat-until, pernyataan pasti dikerjakan minimal satu kali. Artinya setelah mencetak nilai i, kemudian nilai i dicek kondisinya. Jika kondisi Benar, maka perulangan langsung berhenti. Dalam program di bawah ini, perulangan akan berhenti setelah nilai i sama dengan 11.
REPEAT
Begin Pernyataan;
End;
UNTIL
Perulangan dengan Repeat – Until
Program lengkapnya adalah sebagai berikut.
Program CONTOH_REPEAT;
uses crt;
var i : integer;
begin
clrscr;
i:=1;
Repeat
begin
write(' ',i);
inc(i)
end;
Until =11 ;
readln;
end.
Contoh Program Komputer Perulangan Dengan Pascal di atas menunjukkan cara menggunakan ke 3 macam perintah perulangan dalam program Pascal. Perhatikan perbedaan dan persamaannya dalam penulisan kode program. Hasil atau output dari ketiga bentuk program di atas adalah SAMA.
Sekian dulu Contoh Program Komputer Perulangan Dengan Pascal . Selamat belajar.
Sumber :
http://spatabang.blogspot.co.id/2014/06/contoh-program-perulangan-dengan-pascal.html
0 komentar:
Posting Komentar
Silahkan Isikan Komentar anda karena komentar anda bisa membantu saya !!!