Perbedaan WHILE DO dengan REPEAT UNTIL :
1. tak pada pengujian kondisi.
Paling sedikit statemen-statemen dalam repeat until diproses sekali, karena seleksi kondisi ada pada statemen until yang terletak dibawah.
Pada while do paling sedikit dikerjakan nol kali, karena seleksi kondisi ada pada statemen while yang terletak diatas, sehingga
apabila kondisi tidak terpenuhi maka tidak akan masuk ke dalam lingkungan perulangannya.
2. REPEAT UNTIL mengulang pernyataan selama kondisi belum terpenuhi sedangWHILE DO mengulang pernyataan selama kondisi masih terpenuhi.
3. Pada repeat until dapat tidak menggunakan blok statemen (BEGIN dan END) untuk menunjukan batas perulangannya, karena batas perulangannya sudah ditunjukkan oleh repeat sampai dengan until. Sedangkan WHILE DO harus menggunakan blok statemen (BEGIN dan END).
4. Perulangan
Pengulangan (loop) merupakan bentuk yang sering ditemui di dalam suatu
program aplikasi. Di dalam bahasa Pascal, dikenal tiga macam perulangan,
yaitu dengan menggunakan pernyataan For, While-Do, dan Repeat…Until.
4.1 Struktur Perulangan For
Perulangan dengan pernyataan For digunakan untuk mengulang pernyataan
atau satu blok pernyataan berulang kali sejumlah yang ditentukan. Perulangan
dengan pernyataan For dapat berbentuk perulangan positif, perulangan negatif
dan perulangan tersarang.
1. Perulangan positif.
Perulangan positif adalah perulangan dengan penghitung dari kecil ke besar
atau pertambahan positif. Perulangan positif dapat dibentuk dengan
menggunakan pernyataan For-To-Do, dengan bentuk umum:
For variabel-kontrol:=nilai awal To nilai akhir Do pernyataan
Variabel kontrol, nilai awal, nilai akhir harus betipe integer
Contoh
Var
I:Integer;
Begin
For I:= 1 to 5 Do Writeln(‘Pascal’);
End.
Bila program dijalankan akan menghasilkan:
Pascal
Pascal
Pascal
Pascal
Pascal
Penjelasan:
Pernyataan Writeln(‘Pascal’) akan diulang sebanyak 5 kali, yaitu
dengan penghitung dari nilai awal 1 sampai dengan nilai akhir 5.
Apabila pernyataan diulang lebih dari satu pernyataan maka seteleh DO
harus memakai Begin kemudian beberapa pernyataan yang akan diulang
dan diakhiri dengan End;.
Contoh:
Var
I:Integer;
Begin
For I:= 1 to 2 Do
Begin
Write(‘Pascal’);
Writeln(‘Turbo’);
End;
End.
Mengenal Turbo Pascal—Awan Sundiawan 21
Bila program dijalankan akan menghasilkan:
PascalTurbo
PascalTurbo
2. Perulangan negatif
Perulangan negatif adalah perulangan dengan penghitung dari besar ke
kecil atau pertambahan negatif. Perulangan negatif dapat dibentuk dengan
menggunakan pernyataan For-DownTo-Do, dengan bentuk umum:
For variabel-kontrol:=nilai awal DownTo nilai akhir Do penyataan
Contoh:
Var
I:integer;
Begin
For I:=5 downto 1 do
Begin
Writeln(I);
End;
End.
Bila program dijalankan maka akan menghasilkan:
5
4
3
2
1
3. Perulangan tersarang
Perulangan tersarang adalah perulangan yang berbeda di dalam perulangan
yang lainnya. Perulangan yang lebih dalam akan diproses terlebih dahulu
sampai habis, kemudian perulangan yang lebih luar baru akan akan
bertambah, mengerjakan perulangan yang lebh dalam lagi mulai dari nilai
awalnya dan seterusnya.
Contoh:
Var
I,J:Integer;
Begin
For I:=1 to 5 Do
Begin
For j:=1 to 3 Do
Begin
Write(I:8,J:3);
End;
Writeln;
End;
End.
Mengenal Turbo Pascal—Awan Sundiawan 22
Bila program dijakankan akan menghasilkan:
1 1 1 2 1 3
2 1 2 2 2 3
3 1 3 2 3 3
4 1 4 2 4 3
5 1 5 2 5 3
Perulangan tersarang banyak digunakan dalam aplikasi matrik dengan
4.2 Struktur Perulangan While-Do
Perulangan ini menggunakan pernyataan While—Do. Pernyataan While—Do
digunakan untuk melakukan proses perulangan suatu pernyataan atau blok
pernyataan terus-menerus selama kondisi ungkapan logika pada While masih
bernilai logika benar.
Bentuk Umum
While kondisi ungkapan Do Pernyataan
Contoh
Var
I:Integer;
Begin
I:=0;
While I<5 Do
Begin
Writeln(I);
I:=I+1;
End;
End.
Bila program dijalankan akan menghasilkan:
0
1
2
3
4
Penjelasan:
Perulangan dari while akan terus menerus dikerjakan bila kondisinya masih
benar. Dalam hal ini kondisinya adalah I dan bila nilai I kurang dari 5, berarti
kondisi di dalam While masih terpenuhi dan perulangan akan selesai setelah
nilai I lebih besar atau sama dengan 5.
Tidak ada komentar:
Posting Komentar