Program Perulangan Pascal Dengan For To do

AhmadDahlan.NET – Program perulangan atau Looping di Pascal adalah statement yang berisi perintah untuk melakukan eksekusi berulang sampai syarat-nya terpenuhi. Syarat yang diterapkan biasanya jumlah perulangan. Komputer dalam hal ini pemograman pascal dapat melakukan perulangan dalam jumlah tidak terbatas namun terkadang dibatasi oleh kemampuan memori dan prosesor komputer itu sendiri.

Struktur penulisan paling sederhana dari For To Do di Pascal dalam bentuk adalah :

For pencacah := nilai_awal to nilai_akhir do
   Perintah1;
   Perintah2;
endfor

Ket :

pencacah : Variable yang fungsi counter
nilai_awal : Value untuk bilangan pertama
nilai_akhir : Value untuk bilangan terakhir
Perintah1 : Perintah di Pascal
Perintah2 : Perintah di Pascal 2

Contoh Program For To Do

Berikut ini contoh program untuk for to do dengan perintah menulis Jurusan Fisika 10 kali :

program for_to_do;
var
  i:integer;
begin
  writeln('Menulis Berulang sebanyak 10 kali');
  for i:=1 to 10 do
    begin
      writeln('Jurusan Fisika');
    end;
end.

Jika program ini di eksekusi hasilnya seperti berikut :

Selaini itu kita bisa menuliskan angka secara berurutan dengan Pascal misalnya digunakan untuk penulisan NIM Mahasiswa secara berurutan. Kita misalkan saja NIM 210103500001 sampai 210103500030.

Hanya saja terkadang Compiler Pascal itu terbatas dari -32768 sampai 32767 maka Nim 210103500001 dianggap lebih dari batas yang disanggupi Pascal.

program For_To_Do_2; 
uses crt;
var
 i: integer; 
begin
 clrscr;
for i := 01 to 30 do 
 begin
  writeln('Mahasiswa NIM 2101035000',i); 
 end;
readln; 
end.

Tugas !

Buatlah sebuah program yang dapat menuliskan secara otomatis NIM Mahasiswa mulai dari 210103500001 sampai 210103500070 namun hanya menunjukkan NIM Ganjil saja!