Perulangan ini berjalan dengan menggunakan suatu variabel counter yang akan bertambah secara otomatis ketika perintah yang diulang telah selesai dikerjakan.
Bentuk umum dari perulangan ini adalah :
For counter := nilai awal To Nilai akhir Do
Begin
Perintah;
Perintah;
End;
Perulangan ini akan berulang selama nilai variabel counter masih lebih kecil atau sama dengan nilai akhir.
Contoh Script :
program Project4;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var
i : integer;
begin
writeln('NIM : 114224018');
writeln('NAMA : KHOFSOTUN NURUL YAQIN');
writeln('=================================');
writeln('CONTOH PENULISAN DASAR CODING FOR');
writeln('=================================');
writeln(' ');
for I := 1 to 10 do
writeln(i,'Yadika');
writeln('Bangil');
Readln;
End.




0 komentar:
Posting Komentar