Apa masih semangat untuk belajar? saya hap sih masih ya, sebab pada Tutorial Turbo Pascal 7.0 Modul 4 kali ini kita akan membahas tentang Looping atau yang sering kita sebut dengan perulangan.
Apa itu Looping
Secara sederhana looping diartikan sebagai proses berulang terhadap statement maupun serangkaian statement lebih dari satu kali. Tanpa looping program kita menjadi panjang dan tidak efisien,coba bayangkan misalnya anda ingin mencetak tulisan Hello World sebanyak 10 baris di layar, bisa saja anda menggunakan perintah Writeln('Hello World'); sebanyak 10 kali. Bukankah lebih baik kita memerintahkan komputer untuk secara berulang menjalankan perintah Writeln('Hello World'); sebanyak 10 kali.
Struktur perintah perulangan pada pascal
Salah satu struktur perintah perulangan pada pascal adalah yang menggunakan counter.
For variabel := nilai awal To nilai akhir Do Statement;
Atau
For variabel := nilai awal DownTo nilai akhir Do Statement;
Dimana variabel harus ordinal type
Contoh :
Var I : Integer;
Begin
For I := 1 To 10 Do Writeln('PentaCOM');
End.
Perbedaan perintah To dengan Down To
Penggunakan To kalau nilai awal < nilai akhir, dan sebaliknya pakai DownTo
Contoh :
Var I : Integer;
Begin
For I := 10 DownTo 1 Do Writeln('PentaCOM');
End.
Variabel counter harus ordinal type
Maksudnya variabel counter harus berupa salah satu type seperti Byte, Shortint,
Integer, Longint, Char, Boolean.
Misalnya Ch adalah Char, maka dapat dilakukan
For Ch := 'a' to 'z' Do Write(Ch,' ');
Dan bahkan misalnya Bo adalah boolean, dapat juga
For Bo :=false to true do writeln(Bo);
Struktur perulangan lain pada bahasa pascal
Perulangan yang menggunakan condition.
While condition Do Statement;
Contoh :
I := 1;
While I <= 10 Do
Begin
Writeln('PentaCOM');
I := I + 1;
End;
Maksud dari I := I + 1;
pada dunia pemrograman artinya menaikan nilai variabel I sebesar 1. Supaya tidak membingungkan pascal menyediakan suatu function Inc(variabel); sebagai penganti I:= I + 1;
Masih ada satu struktur perulangan dengan condition, yaitu :
Repeat
Statement;
…
Until condition;
Contoh :
I := 1;
Repeat
Writeln('PentaCOM');
Inc(I);
Until I <= 10;
Perbedaan While dengan Repeat
Coba perhatikan contoh berikut
Contoh 1
I := 11;
While I <= 10 Do
Begin
Writeln('Hello World');
Inc(I);
End;
Contoh 2
I := 11;
Repeat
Writeln('Hello World');
Inc(I);
Until I <= 10;
Pada contoh 1, tidak akan mencetak apa-apa, sedangkan pada contoh 2 akan mencetak tulisan Hello World minimal 1 kali. Pada prinsipnya struktur While melakukan pemeriksaan awal, dan struktur Repeat melakukan pemeriksaan di akhir.
Bagaimana kalau kita ingin keluar dari pertengahan looping walaupun conditionnya masih terpenuhi ?
Mudah saja, gunakan perintah Break, dan anda juga dapat menggunakan perintah Continue untuk kembali ke While ataupun Repeat.
Contoh :
I := 1;
While I <= 10 Do
Begin
Writeln('Hello World');
I := I + 1;
Break;
End;
Akan mencetak Hello World sekali saja, karena begitu ketemu perintah Break, maka proses keluar dari looping. Bagaimana dengan yang berikut ini :
I := 1;
While I <= 10 Do
Begin
Writeln('PentaCOM');
I := I + 1;
Continue;
End;
Pelajaran tambahan :
Random dan randomize
Kedua berfungsi menghasilkan bilangan random, bilangan random sering digunakan untuk mensimulasikan dunia nyata yang penuh dengan ketidakpastian. Kita tidak akan mendiskusikan hal ini, tetapi pemakaian kedua perintah tersebut.
Randomize digunakan untuk menginisialisasi suatu bibit random secara acak yang cukup dipanggil sekali saja.
Random digunakan untuk mendapatkan bilangan random(bilangan), yang akan menghasilkan bilangan 0 s/d bilangan-1. Misalnya num:=random(50); berarti variable num mungkin berisi salah satu bilangan 0 s/d 49.
Cobalah contoh berikut :
var
i : byte;
begin
randomize;
for i:=1 to 10 do
write(random(30),' ');
end.
Coba hilangkan "randomize", dan jalankan beberapa kali, bagaimana dengan bilangan yang dihasilkan apakah sama pada setiap percobaan ? Jadi, selalu gunakan "randomize" untuk menjamin kerandoman bilangan yang dihasilkan pada setiap run.
Sekian Dulu ya untuk Modul 4 nya.. Untuk Kelanjutannya baca di Modul 5 ya.. dan untuk melihat postingan sebelumnya tentang Turbo Pascal baca di Modul 3
Tidak ada komentar:
Posting Komentar