Tutorial Turbo Pascal 7.0 Part4

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