Perulangan While Do dan Repeat Until pada Pascal

Perulangan (iterasi) adalah proses yang berulang. Iterasi selalu ada dalam bahasa pemograman apapun, karena disinilah letak kelebihan komputer dibanding manusia, yaitu mampu melakuan hal yang sama berulang kali tanpa kesalahan akibat bosan atau lelah. Dengan perulangan, program menjadi lebih pendek dan sederhana. Dalam Pascal dikenal tiga macam perintah (statement) perulangan, yaitu statement for...do, repeat...until dan while...do.
baca juga: Perbedaan Write dengan Writeln pada Pascal

1. Perulangan While ... Do

Struktur While ... Do mengandung arti bahwa perintah-perintah yang ada dalam begin ... end akan dikerjakan selama kondisi bernilai benar (true).

Bentuk umumnya:

while (kondisi) do

perintah;

atau

while (kondisi) do begin

perintah1;

perintah2;

perintah3;

end;

Contoh program While ... Do:

program contoh_while;

uses crt;

var i,h,a: integer;

begin

clrscr;

i:=1;

a:=5;

while a < 8 do

begin

h:=h+a;

i:=i+a;

inc(a);

writeln(h);

writeln(a);

end;

readln;

end.

Berikut hasilnya:

baca juga: Program Tebak Angka Pascal

2. Perulangan Repeat ... Until

Perulangan ini tidak jauh beda dengan perulangan While ... Do. Struktur Repeat ... Until mengandung arti bahwa perintah-perintah yang ada akan dikerjakan selama kondisi bernilai benar (true).

Bentuk umumnya:

repeat

perintah1;

perintah2;

perintah3;

until (kondisi);

Contoh program Repeat ... Until:

program contoh_repeat;

uses crt;

var

i,h,a :integer;

begin

clrscr;

i:=1;

a:=5;

repeat

h:=h+a;

i:=i*a;

a:=a+2;

until a < 10;

writeln(i);

writeln(h);

writeln(a);

readln;

end.

Berikut hasilnya:

baca juga: Perulangan For Do pada Pascal

Mungkin itu saja yang dapat saya sampaikan. Tunggu pembelajaran mengenai Pascal lainnya ya sob.

Terima Kasih

Telah Berkunjung

Berbagi :