Perulangan Repeat ... Until dan While ... Do pada Lazarus Free Pascal mempunyai fungsi yang sama dengan perulangan For yaitu mengulang perintah yang diberikan dengan syarat tertentu. Perbedaan yang utama Perulangan Repeat-Until While-Do dengan perulangan For adalah tidak ada penambahan / pengurangan nilai secara otomatis seperti pada perulangan For, untuk itu perlu menggunakan prosedur INC dan DEC:
Prosedur INC
Prosedur INC berfungsi untuk menambah nilai variabel
Syntax:
atau
Contoh:
Prosedur DEC
Prosedur DEC berfungsi untuk mengurangi nilai variabel
Syntax:
atau
Contoh:
1. Perulangan REPEAT ... UNTIL
Perulangan Repeat ... Until adalah perulangan yang akan berhenti ketika kondisi / syarat terpenuhi.
Syntax:
<code>REPEAT
...(isi_perulangan);
UNTIL (syarat);</code>
2. Perulangan WHILE ... DO
Perulangan While ... Do adalah perulangan yang akan terus dikerjakan selama kondisi / syarat masih terpenuhi.
Syntax:
<code>WHILE (syarat) DO
Begin
...(isi_perulangan);
End;</code>
Untuk contoh silahkan baca lagi tutorial sebelumnya di Penggunaan Perulangan For Lazarus Free Pascal.
1. Contoh REPEAT ... UNTIL
<code>procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i:=1; //variabel i harus diberi nilai awal agar tidak berisi nilai acak.
repeat
edit1.SelText := inttostr(i);
inc(i);
until i>5;
end;</code>
2. Contoh WHILE ... DO
<code>procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i:=1; //variabel i harus diberi nilai awal agar tidak berisi nilai acak.
while i < 6 do
begin edit1.SelText := inttostr(i);
inc(i);
end;
end; </code>
Kedua contoh diatas hasilnya akan sama dengan perulangan FOR ... TO ... DO seperti pada contoh sebelumnya disini. Hasilnya akan seperti gambar di bawah ini:
3. Contoh REPEAT ... UNTIL
<code>procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i:=5; //variabel i harus diberi nilai awal agar tidak berisi nilai acak.
repeat
edit1.SelText := inttostr(i);
dec(i);
until i<1;
end; </code>
4. Contoh WHILE ... DO
<code>procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i:= 5; //variabel i harus diberi nilai awal agar tidak berisi nilai acak.
while i > 0 do
begin
edit1.SelText := inttostr(i);
dec(i);
end;
end;</code>
Contoh 3 dan contoh 4 hasilnya akan sama dengan perulangan FOR ... DOWNTO ... DO seperti pada contoh sebelumnya disini. Hasilnya akan seperti gambar di bawah ini:
Demikian tutorial Perulangan Repeat-Until While-Do Lazarus Free Pascal untuk mengetahui perbedaan lebih jelas tentang perulangan silahkan baca disini. Terima kasih.
Prosedur INC
Prosedur INC berfungsi untuk menambah nilai variabel
Syntax:
INC(variabel) //menambah nilai kelipatan 1.atau
INC(variabel,kelipatan_n) //menambah nilai kelipatan nContoh:
inc(i); //akan menambah nilai variabel i dengan kelipatan 1
inc(i,4); //akan menambah nilai variabel i dengan kelipatan 4Prosedur DEC
Prosedur DEC berfungsi untuk mengurangi nilai variabel
Syntax:
DEC(variabel) //mengurangi nilai kelipatan 1atau
DEC(variabel,kelipatan_n) //mengurangi nilai kelipatan nContoh:
dec(i); //akan mengurangi nilai variabel i dengan kelipatan 1
dec(i,5); //akan mengurangi nilai variabel i dengan kelipatan 51. Perulangan REPEAT ... UNTIL
Perulangan Repeat ... Until adalah perulangan yang akan berhenti ketika kondisi / syarat terpenuhi.
Syntax:
<code>REPEAT
...(isi_perulangan);
UNTIL (syarat);</code>
2. Perulangan WHILE ... DO
Perulangan While ... Do adalah perulangan yang akan terus dikerjakan selama kondisi / syarat masih terpenuhi.
Syntax:
<code>WHILE (syarat) DO
Begin
...(isi_perulangan);
End;</code>
Untuk contoh silahkan baca lagi tutorial sebelumnya di Penggunaan Perulangan For Lazarus Free Pascal.
1. Contoh REPEAT ... UNTIL
<code>procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i:=1; //variabel i harus diberi nilai awal agar tidak berisi nilai acak.
repeat
edit1.SelText := inttostr(i);
inc(i);
until i>5;
end;</code>
2. Contoh WHILE ... DO
<code>procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i:=1; //variabel i harus diberi nilai awal agar tidak berisi nilai acak.
while i < 6 do
begin edit1.SelText := inttostr(i);
inc(i);
end;
end; </code>
Kedua contoh diatas hasilnya akan sama dengan perulangan FOR ... TO ... DO seperti pada contoh sebelumnya disini. Hasilnya akan seperti gambar di bawah ini:
3. Contoh REPEAT ... UNTIL
<code>procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i:=5; //variabel i harus diberi nilai awal agar tidak berisi nilai acak.
repeat
edit1.SelText := inttostr(i);
dec(i);
until i<1;
end; </code>
4. Contoh WHILE ... DO
<code>procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i:= 5; //variabel i harus diberi nilai awal agar tidak berisi nilai acak.
while i > 0 do
begin
edit1.SelText := inttostr(i);
dec(i);
end;
end;</code>
Contoh 3 dan contoh 4 hasilnya akan sama dengan perulangan FOR ... DOWNTO ... DO seperti pada contoh sebelumnya disini. Hasilnya akan seperti gambar di bawah ini:
Demikian tutorial Perulangan Repeat-Until While-Do Lazarus Free Pascal untuk mengetahui perbedaan lebih jelas tentang perulangan silahkan baca disini. Terima kasih.
permisi saya mau tanya, kalok mau menkoneksikan lazarus dengan arduino uno menggunakan sboserial di lazarus . itu gimana ya gan ? trus koding apa saja yang perlu di tambahkan ?
ReplyDelete