Program Pascal Penggunaan Constanta dengan Const [1..10] Menggunakan Array

Program Pascal Penggunaan Constanta dengan Const [1..10] Menggunakan Array 

Nahhh disini saya akan memberikan source code program pascal yang bisa anda copy dan jangan lupa untuk dipelajari dan dipahami agar mudah membuat program pascal selanjutnya yang berhubungan dengan penggunaan constanta. Dan saya juga menampilkan tampilan program serta outputnya agar mengetahui jika program dijalankan.

Contoh Program Pascal Penggunaan Constanta dengan Const [1..10] Menggunakan Array langsung saja bisa dilihat dibawah sini...

Source Code

uses crt;

const

            Tetap : array[1..10] of Integer=(3,7,9,11,13,15,17,19,21,23);

var

            i: Integer;

 begin

            for i:=1 to 10 do

            writeln('Nilai Konstan Array ke ', i:2,'=',Tetap[i]);

            readln;

  end.

Tampilan

Output

Note : Jangan Lupa Dipelajari yaa

See you