Perulangan For do di Turbo Pascal

Setelah sebelumnya saya memposting tentang Statement Case di Turbo Pascal 

Kali ini saya akan memposting tentang Perulangna For do di Turbo Pascal. Perulangan For do digunakan untuk mengulangi statement berulang kali sejumlah yang anda tentukan,

ada 3 bentuk perulangan for do yaitu

• For - do positif
• For - do negatif
• For - do tersarang

For - do positif adalah perulangan yang di mulai dari perhitungan kecil ke perhitungan besar

Contoh perulangan For - do positif

program for_do_positif;
uses crt;
var
 bil,x:integer;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');

 writeln('');
 write('Masukan sebuah bilangan : ');readln(bil);
 
 for x:=1 to bil do
  begin
  writeln('Tutorial Kodng ',x);
  end;

 readln;
end.

Maka jika di jalankan akan seperti gambar di bawah ini

Pada gambar diatas akan melakukan perulangan dari 1 sampai dengan jumlah bilangan yang ditentukan

For - do negatif adalah kebalikan dari For - do positif yaitu perulangan yang di mulai dari perhitungan besar ke perhitungan kecil

Contoh Perulangan For - do Negatif

program for_do_negatif;
uses crt;
var
 bil:integer;
begin
 clrscr;
 writeln('================');
 writeln('Tutorial Koding');
 writeln('================');
 writeln('');
 write('Masukan sebuah bilangan : ');readln(bil);

 for bil:=bil downto 1 do
  begin
  writeln('Tutorial Koding ',bil);
  end;

 readln;
end.

Maka jika di jalankan akan seperti gambar di bawah ini

Pada gambar diatas akan melakukan perulangan dari jumlah bilangan yang di tentukan sampai 1

For - do tersarang adalah perulangan yang ada di dalam perulangan lainnya. perulangan yang paling dalam akan di proses terlebih dahulu sampai selesai, setelah itu perulangan yang lebih di luar akan bertambah atau berkurang dan memproses lagi perulangan yang paling dalam

Contoh perulangan For - do tersarang

program for_do_tersarang;
uses crt;
var
 i,j:integer;
begin
 clrscr;
 writeln('================');
 writeln('Tutorial Koding');
 writeln('================');
 writeln('');
 
 for i:=1 to 5 do
 begin
  for j:=1 to 5 do
  begin
   write(i,j,' ');
  end;
 writeln('');
 end;
 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini

Pada gambar diatas akan melakukan perulangan i lalu melakukan perulangan j sampai selesai lalu setelah perulangan j selesai maka akan meneruskan  perulangan i sampai selesai, begitu juga seterusnya.

Semoga berhasil
Semoga bermanfaat, jangan lupa berikan komentar anda pada postingan ini