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: Penggunaan If Pada Pascal
baca juga: Penggunaan If Pada Pascal
Struktur For .. Do
1. Perulangan Positif
Adalah perulangan yang dilakukan dengan menaikkan counter tiap kali perulangannya. Bentuk umumnya:
For Counter:=nilai_awal to nilai_akhir do
Bentuk diatas yang diulang-ulang hanya satu baris perintah setelah do, jika perintaah yang diulang lebih dari satu perintah maka bentuk umumnya menjadi:
For counter:=nilai_awal to nilai_akhir do
begin
perintah 1;
perintah 2;
perintah 3;
end;
Berikut ini adalah contoh programnya sob:
program for_do_positif;
uses crt;
var
i: integer;
begin
clrscr;
for i:=1 to 10 do
writeln('Fergoesnants Blog');
readln;
end.
Beginilah tampilannya sob:
atau
program for_do_positif;
uses crt;
var
i: integer;
begin
clrscr;
for i:=1 to 10 do
begin
writeln('Fergoesnants Blog');
writeln('Blog pembelajaran Dan Tutorial');
end;
readln;
end.
Perulangan negatif dilakukan dengan menurunkan counter tiap kali perulangannya. Bentuk umumnya:
for counter:=nilai_awal downto nilai_akhir do
atau
for counter:=nilai_awal downto nilai_akhir do
begin
perintah1;
perintah2;
perintah3;
end;
Berikut ini adalah contoh programnya sob:
program for_do_negatif;
uses crt;
var
i: integer;
begin
clrscr;
for i:=10 downto 1 do
writeln(i);
readln;
end.
Berikut tampilannya:
atau
program for_do_negatif;
uses crt;
var
i: integer;
begin
clrscr;
for i:=10 downto 1 do begin
writeln(i);writeln('Fergoesnants Blog');end;
readln;
end.
Berikut ini tampilannya:
baca juga: Perulangan While Do dan Repeat Until
Mungkin itu saja yang dapat saya sampaikan. Tunggu pembelajaran mengenai Pascal lainnya ya sob.
Terima Kasih
Sudah Berkunjung
Posting Komentar untuk "Perulangan For Do pada Pascal"