- SOURCE CODE
uses crt;
var
x : array [1..100] of integer;
n, i : integer;
begin
clrscr;
writeln('Program Reference Array');
writeln('================');
writeln;
write('Masukkan Jumlah Data :');readln(n);
writeln;
for i := 1 to n do
readln(x[i]);
writeln;
write('Data Yang Telah Dimasukkan: ');
for i:= 1 to n do
write(x[i],'');
readkey;
end.
- PENJELASAN SOURCE CODE
uses crt; {Deklarasi unit CRT}
var {Variabel}
x : array [1..100] of integer; {Deklarasi array}
n, i : integer; {Inisiasi variabel}
begin {Awal instruksi program}
clrscr; {Membersihkan layar}
writeln('Program Reference Array'); {Cetak Program Reference Array}
writeln('================'); {Cetak ================}
writeln; {Cetak baris}
write('Masukkan Jumlah Data :'); {Cetak Masukkan Jumlah Data}
readln(n); {Baca variabel n}
writeln; {Cetak baris}
for i := 1 to n do {Memulai pengulangan sesuai dengan banyaknya jumlah nilai yang di input pada variabel n}
readln(x[i]); {Baca variabel x[i])
writeln; {Cetak baris}
write('Data Yang Telah Dimasukkan: '); {Cetak Data Yang Telah Dimasukkan :}
for i:= 1 to n do {Memulai pengulangan sesuai dengan banyaknya jumlah nilai yang di input pada variabel n}
write(x[i],''); {Cetak variabel x[i]}
readkey; {Instruksi untuk menunggu}
end. {Akhir instruksi program}
- PRINT SCREEN OUTPUT
Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.
- Title Program : Referensi belajar Array
- Source Code .pdf : .:_Download_:.
- Flowchart .png : .:_Download_:.
- Program .pas : .:_Download_:.
- Password : kamuspascal.blogspot.com
Jika anda tidak tahu bagaimana cara mendownload file-file di atas klik Disini, untuk mempelajarinya.
terima kasih
ReplyDeleteMy blog
My Campus