Algoritma dan Pemrograman

Haii guuyysssss!!! ... Jumpa lagi dengan aku yang akan meng-share program~program khususnya pada Delphi. Kali ini kita akan membahas mengenai perulangan/looping. Perulangan adalah suatu cara untuk mengulng satu atau kumpulan perintah sampai mencapai kondisi tertentu.Dalam Delphi terdapat beberapa perulangan yaitu : 1. Perulangan menggunakan For To Do 2. Perulangan menggunakan For Down To Do 3. Perulangan menggunakan Repeat Until 4. Perulangan menggunakan While Do 5. Perulangan menggunakan Label 6. Perulangan tersarang (perulangan dalam perulangan) 7. Perulangan dengan banyak kondisi Untuk kali ini, kita akan membahas perulangan For To Do saja. Untuk lebih jelasnya, simak penjelasan berikut ini :D **For To Do merupakan perulangan yang berjalan dengan menggunakan suatu variabel counter yang akan bertambah secara otomatis ketika perintah yang diulang telah selesai dikerjakan. Contoh program perulangan For To Do dengan menampilkan 10 kata "YADIKA" hehe promosi dikit gak apa~apa kan? Oke langsung wae :) :) :)
uses
SysUtils;
var
i:integer;
begin
writeln('PROGRAM PERULANGAN MENGGUNAKAN FOR TO DO');
writeln('========================================');
for i :=1 to 10 do
begin
writeln(i,'YADIKA');
writeln('BANGIL');
end;
readln;
end.
Ketikkan script diatas ke dalam pemrograman delphi seperti berikut ini.