Contoh program Array dengan Dev-pascal

Array merupakan sebuah penyimpanan daalam bentuk variabel yang memiliki type sama, dalam array terdapat alamat penyimpanan yang disebut dengan istilah indeks, jadi sebuah array dapat berisi beberapa data dengan type data yang sama, ilusatrasi array sebagai berikut

arrays

program Pengisisan Array;
var
nama : array [1..3] of string[30];
kota : array [1..3] of string[10];
umur : array [1..3] of integer;
i : integer;
begin
nama[1] := ‘Samsons’; // mengisi array nama di index ke 1
kota[1] := ‘Bandung’;
umur[1] := 15;
nama[2] := ‘ramakumbara’;
kota[2] := ‘Solo’; // mengisi array kota di index ke 2
umur[2] := 17;
nama[3] := ‘Dewimalam’;
kota[3] := ‘Padang’;
umur[3] := 16; // mengisi array umur di index ke 3
For i := 1 to 3 do // perulangan menampilkan isi array
Begin
writeln(‘nama nya adalah : ‘, nama[i]); // mengambil isi dari array nama index ke i
writeln(‘kota nya adalah : ‘, kota[i]); // mengambil isi dari array kota index ke i
writeln(‘umur nya adalah : ‘, umur[i]); // mengambil isi dari array umur index ke i
writeln(‘ ‘);
End;end.

dalam progam tersebut dibuat dengan menggunakan 3 buah array dan masing masing array memiliki type data yang berbeda, untuk menuliskan atau mengisi data dalam erray digunakan format nama_array[indek yang diinginkan]=data yang ingin dimasukkan 

kemudian untuk menampilkan seluruh data dalam layar agar lebih ringkas digunakan sebuah program perulangan for-do mulai dari indek ke-1 sampai dengan index ke-3, sesui dengan nama_array  yang digunakan otomatis semua data akan muncul dilayar.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s