While Do --- Perulangan merupakan suatu hal yang sangat diperlukan dalam dunia pemrograman. entah itu menggunakan bahasa pemrograman apapun membutuhkan namanya perulangan atau biasa disebut loop.
Perulangan adalah perintah yang akan terus berulang sampai suatu pernyataan tidak lagi terpenuhi. Jadi, bisa dipahami bahwa perulangan ini akan terus berulang-ulang sampai menghasilkan suatu yang hal yang diinginkan. Ini sangat membantu untuk melakukan beberapa proses yang hasilnya sama serta codingnya juga sama.
Kurang lebih seperti itulah sedikit penjelasan tentang perulangan. Dalam artikel kali ini kita akan membahas tentang pemrograman dasar perulangan while do.
Pemrograman dasar pascal mempunyai beberapa perulangan seperti for to do, for downto do, while do dan repeat until. Setiap perulangan mempunyai algoritma pemrograman yang berbeda meskipun mempunyai sedikit persamaan.
contoh program pascal for to do : http://www.tekprogapp.com/2017/11/pascal-contoh-program-for-to-do-div-mod.htmlUntuk lebih jelasnya tentang perulangan While Do, silahkan perhatikan contoh coding berikut.
Coding
program agad;
uses wincrt;
var
i:integer;
begin
clrscr;
i:=1;
while (i<=5) do
begin
write(i,' ');
i:=i+1;
end;
readln;
end.
uses wincrt;
var
i:integer;
begin
clrscr;
i:=1;
while (i<=5) do
begin
write(i,' ');
i:=i+1;
end;
readln;
end.
Setelah menulis contoh coding diatas, silahkan di run atau dijalankan.
Hasil Running
Program saat dijalankan akan tampil seperti gambar hasil running dari contoh coding yang telah dibuat.
Tampilannya berupa nomor yang diurut mulai dari 1 sampai 5. Program ini cocok digunakan untuk program yang menggunakan nomor urut seperti aplikasi edit data, tabel, absense dan lainnya.
Penjelasan
Rasanya kurang afdal kalo tidak ada penjelasannya hehe.. Berikut penjelasan tentang coding perulangan yang telah kita tulis seperti coding diatas.
Pertama, Seperti saat membuat program lainnya hal yang mendasar yang kita buat yaitu variabelnya. Namun, sebelum membuat variabel sebaiknya kita membuat nama program dan mengenalkan sistem yang digunakan yang ditulis '
'uses crt' untuk yang menggunakan compiler free pascal
'uses wincrt' untuk yang menggunakan compiler turbo pascal for windows (TPW 1.5).
Penulisan nama program ditulis sesuai syntax berikut :
program namaprogram;
Selanjutnya, penulisan variabel setelah menulis code diatas. Oh iya, Penulisan nama program hanya opsional maksudnya bisa ditulis bisa tidak. Berbeda dengan uses crt dan uses wincrt wajib ditulis dan akan error jika tidak ditulis.
Lanjut pembahasan membuat variabel, silahkan perhatikan coding pascal berikut.
var
i:integer;
i:integer;
kita hanya menggunakan satu variabel yang akan nantinya kita gunakan untuk penyimpanan perulangan. Jadi, tipe data yang akan digunakan untuk variabel penyimpanan perulangan yaitu integer.
Tipe data integer digunakan karena bisa saja suatu saat isi yang diinput berupa huruf atau angka.
Kedua, Syntax untuk memulai program dengan menulis
begin
Coding setelahnya yaitu
clrscr;
coding ini berfungsi untuk membersihkan tampilan program dari proses sebelumnya. Jadi, hasil program setelah dirunning akan sesuai dengan apa yang diharapkan.
Ketiga, Setelah diatas akan dibuat listing code untuk perulangan. Perulangan While Do yang digunakan dalam artikel ini. Penulisan codingnya seperti berikut.
i:=1;
while (i<=5) do
begin
write(i,' ');
i:=i+1;
end;
while (i<=5) do
begin
write(i,' ');
i:=i+1;
end;
Disini variabel digunakan untuk mengisi nilai awal untuk memberi tahu nilai apa yang akan dipakai. Kemudian, ditulis While memberi pernyataan (i<=5) untuk memberikan maksimal nilainya. Jadi nilai 5 dan <= dapat diganti sesuai keinginannya. Lanjut, tulis do dan dimulai penulisan pernyataannya dengan begin write(i,' '); pernyataan; end;
Terakhir, Tutup program dengan code end. Jangan lupa tulis readln sebelumnya untuk yang menggunakan free pascal.
Sekian artikel kali ini tentang Contoh Coding Pemrograman Dasar Pascal Perulangan While Do. Semoga bemanfaat. Wassalam.
No comments:
Post a Comment
Silahkan isi komentar, jika ada yang ingin ditanyakan...