Pascal | Menampilkan 15 Bilangan Asli

Program Pascal : Menampilkan 15 Bilangan Asli Pertama dengan Pengulangan For

Statement FOR adalah suatu perintah yang berfungsi untuk melakukan proses

pengulangan, dimana jumlah pengulangannya sudah diketahui.Pengulangan For, terdiri dari For to do (positif), For downto do (negatif) dan bersarang.

1. For to do (positif), script/code programnya adalah sebagai berikut :
__________________________________________________________________
uses wincrt;
var
   i : integer;
begin
     writeln('       Menampilkan 15 Bilangan Asli Pertama      ');
     writeln('                by : Eva Dianita                 ');
     writeln('            vadyanita.blogspot.com               ');
     writeln('=================================================');
     writeln;
     i:=1;
     for i:=1 to 15 do
     write(i,'  ');
end.
__________________________________________________________________

Tampilannya adalah sebagai berikut :

2. For down to (negatif), akan menampilkan bilangan asli sebaliknya program di atas. Untuk For down to maka bilangan akan ditampilkan berurutan dari yang terbesar hingga terkecil.
Script/code programnya sebagai berikut :
___________________________________________________________________
uses wincrt;
var
   i : integer;
begin
     writeln('        Menampilkan 15 Bilangan Asli Pertama      ');
     writeln('                 by : Eva Dianita                 ');
     writeln('              vadyanita.blogspot.com              ');
     writeln('==================================================');
     writeln;
     for i:= 15 downto 1 do
     write(i,'  ');
end.
____________________________________________________________________

Tampilannya sebagai berikut : 

3. Pengulangan For bersarang merupakan suatu pengulangan for didalam pengulangan for yang lainnya. Langsung saja ke script/code programnya, sebagai berikut : 
____________________________________________________________________
uses wincrt;
var
   i,j,k : integer;
begin
     writeln('       Menampilkan 15 Bilangan Asli Pertama      ');
     writeln('                by : Eva Dianita                 ');
     writeln('            vadyanita.blogspot.com               ');
     writeln('=================================================');
     writeln;
     i:=1;
     for i:=1 to 15 do
     write(i,'  ');
     writeln;
     for j:=1 to i do
     write(j,'  ');
     writeln;
     for k:=1 to j do
     write (k,'  ');
end.
____________________________________________________________________

Tampilannya sebagai berikut :