PENGULANGAN PADA BAHASA PASCAL MENGGUNAKAN WHILE DO
Hai
sobat... Kita berjumpa lagi, disini saya akan berbagi kode perulangan WHILE DO
. Langsung saja ke TKP (Tempat Kursi Praktek ) lagi hehe..
WHILE DO biasanya di pakai Untuk situasi dimana jumlah perulangan belum bisa
dipastikan.
Cara
kerja dari perulangan WHILE DO terdapat pada kondisi dan kode program untuk mengubah
kondisi . Kondisi
bisa dikatakan sebagai syarat agar perulangan bisa dijalankan. Selama syarat
kondisi terpenuhi (TRUE),
perulangan akan terus dijalankan. Jika syarat ini tidak terpenuhi (FALSE),
perulangan tidak akan berjalan.
Berikut
contoph program sederhananya :
program while_do;
uses crt;
var
n,i: integer;
begin
clrscr;
i:= 0;
write('Masukkan
sebuah bilangan bulat positif : '); readln (n);
while i < n
do
begin
writeln('Hello
Panca Kreatif‘,i);
i:=
i + 1;
end;
readln;
end.
Berikut ini kita bisa membuat perulangan yang “lompat”, yakni
tidak berurutan dari 1, 2, 3, dst. Kita bisa membuat variabel engan perhitungan
naik misalnya dari 2, 4, 6, 8, dst.
Perhatikan kode program berikut :
program while_do;
uses crt;
var
n,i: integer;
begin
clrscr;
i:= 0;
write('Masukkan sebuah bilangan bulat positif : ');
readln (n);
writeln('Berikut kelipatan dari 2 : ');
while i <= n do
begin
write(i,' ');
i:= i + 2;
end;
readln;
end.
Selamat berkreasi… :)
No comments