Contoh Perulangan While Pada Pascal - Pascal merupakan sebuah bahasa pemrograman tingkat tinggi yang bahasa-bahasanya telah mendekati bahasa manusia seperti writeln, readln, if, dan yang lainnya.
Kekurangan bahasa pascal dengan bahasa pemrograman lainnya terletak pada segi tampilannya, dimana pascal menggunakan compiler sebuah CMD untuk bagian Outputnya. Jadi tampilan pascal terkesan jadul sehingga tidak banyak orang yang menggunakan untuk hal-hal tertentu.
Namun, bahasa pascal sering dipelajari sebagai mata kuliah pemrograman dasar di jurusan teknik informatika karena bahasanya lebih mudah dipahami dan syntaknya tidak jauh berbeda dengan bahasa pemrograman lainnya. Meskipun dipandang sebelah mata, namun pascal bisa membuat program-program hebat seperti bahasa pemrograman lainnya.
Syntax Perulangan Pada Pascal
Kali ini saya akan membahas tentang syntax perulangan pada pascal. Dimana terdapat 4 buah syntax perulangan yakkni,
for to do,
While do,
Repeat until dan
Goto label. Berhubung materinya ada 4, jadi saya akan membahas satu-satu di beberapa artikel.
Untuk artikel ini, saya akan khusus membahas tentang While Do dimana perulangan ini akan bekerja jika statement yang diberikan bernilai benar.
Struktur kodenya yakni :
Begin
While (kondisi) do...Statement...
end.
untuk kondisi dapat berupa x>10 atau x<15. Jadi ketika kondisi tela terpenuhi, baru perulangan dapat dijalankan.
Untuk statement dapat berupa if, writeln, readln, intinya hal-hal yang akan di ulang berada di statement.
Nah tanpa perlu basa basi, kita langsung saja menuju ke contoh pascalnya :
program dasar;
uses crt;
var
x:integer; //variabel untuk angka
begin
x:= 1;
while x<10 do //kondisi, dimana ketika x kurang dari 10 maka perulangan berjalan
begin
writeln('Hello World, saya belajar pascal'); //output texs
x:=x+1; //agar x bertambah ketika diulang kembali ke atas
end;
end.
Maka Hasilnya akan seperti ini :
Mengapa bisa demikian?
Penjelasannya seperti ini :
- Kita membuat x itu bernilai 1(x:=1), kemudian akan di cek di while apakah benar x yang bernilai 1 itu kurang-dari 10, karena benar maka perulangan akan berjalan.
- Kemudian x yang bernilai 1 bertemu dengan writeln maka ia akan menulis apa yang ada di writeln (Hello World, saya belajar pascal)
- Kemudian x yang bernilai 1 akan bertemu dengan x:=x+1. Apa yang terjadi, karena dari awal x bernilai 1 kemudian bertemu dengan x+1 maka dia akan menambah dirinya sendiri dengan 1. Akhirnya x sekarang bernilai 2.
- Karena perulangan, maka x yang bernilai 2 akan kembali ke atas lagi di pengecekan x<10, karena x sekarang bernilai 2 maka benar x lebih kecil dari 10 , karena benar maka perulangan akan kembali berjalan. dan seterusnya . . .
- Nah ketika x telah bernilai 10 maka salah x lebih kecil dari 10. Maka perulangan akan berhenti.
Apa anda sudah bingung?
Saya akan berikan contoh yang lain yang lebih rumit, berikut kodenya :
program perkalian;
uses crt;
var
x,y,angka, hasil : integer;
begin
x:=0;
write('Masukkan Perkalian Berapa : '); readln(angka);
while x<=9 do
begin
y:=x+1;
hasil := y*angka;
writeln(y,' * ', angka ,' = ',hasil);
x:=x+1;
end;
writeln;
end.
Hasilnya Akan Seperti Ini :
Bagaimana mudahkan? apabila ada yang ditanyakan silahkan coment dibawah ya :)
Related Post :
Pascal