PROGRAM ARRAY

Masih binggung ? Bagaimana membuat program array 1 dimensi , 2 dan 3 , dan apasih array itu ? Nahh disini saya akan memberitahukan pengertian nya maupun contoh programnnya

PENGERTIAN

Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman, karna array memungkinkan untuk menyimpan data maupun referensi objek dalam jumlah banyak dan terindeks. Array menggunakan indeks integer untuk menentukan urutan elemen-elemennya, dimana elemen pertamanya dimulai dari indeks 0,elemen kedua memiliki indeks 1, dan seterusnya.
 
Nah disini kita bisa mencoba membuat programnya dengan lazarus atau yang lainnya . Selamat Mencoba !!!

Membuat contoh array 1 dimensi

Program InputOutputArray;
Var
Bilangan:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do
begin
write('input angka ke',i,':');
readln(Bilangan[i]);
end;
writeln('angka yang diinput: ');
for i:=1 to 10 do
writeln(Bilangan[i]);
end.

Membuat contoh array 2 dimensi

Program Gaji;
Const gajipokok = 500000;
Type Pegawai = Record
Id, nama : String;
Jam_kerja,gol : integer;
totalgaji :longint;
end;
Var
P:array[1..10]of Pegawai;
i:integer;
function hitunggaji(x,z:integer) :longint;
var
bonus : longint;
begin
case z of
1 : bonus:=100000;
2 : bonus:=500000;
3 : bonus:=1000000
Else bonus:=0;
End;
hitunggaji:=(x*gajipokok)+bonus;
end;
begin { algorita program }
for i:=1 to 10 do
begin
writeln('Pegawai ke',i);
write ('ID : ');
readln(P[i].id);
write ('Nama : ');
readln(P[i].nama);
write ('Jam Kerja : ');
readln(P[i].Jam_kerja);
write ('Golongan : ');
readln(P[i].gol);
P[i].totalgaji:=hitunggaji (P[i].Jam_kerja, P[i].gol);
end;
for i:=1 to 10 do
begin
writeln('Pegawai ke',i);
writeln('Nama : ',P[i].nama);
writeln('Gaji : ',P[i].totalgaji);
end;
end.

Membuat contoh array 3 dimensi

 

Program TransposeMatrik;
Uses crt;
Var
Matrik:array [1..10,1..10] of integer;
i,j,baris,kolom:integer;
begin
clrscr;
write('input jumlah baris: ');
readln(baris);
write('input jumlah kolom: ');
readln(kolom);
for i:=1 to baris do
for j:=1 to kolom do
begin
Write('Isi[',i,',',j,']:');
Readln(matrik[i,j]);
end;
writeln('hasil transposenya: ');
for i:=1 to kolom do
for j:=1 to baris do
Writeln('Isi[',i,',',j,']: ', matrik[j,i]);
Readln;
end.

Nah dari sana sudah terlihat bukan perbedaannya .
Jadi perbedaan utama pendeklarasian variabel array dengan variabel biasa adalah adanya tanda kurung [ ] di akhir tipe data atau di akhir nama variabel array.
Nah dari situ pula kita bisa tau perbedaan nya , Bagaimana ? telah berhasil mencobanya ? Seringlah berlatih dengan program seperti ini , mulai dengan sedikit sedikit memodifikasi maka ada terlihat bagaimana hasilnya nanti

About the Author

Admin

Assalamualaikum. Saya Ahmad Mazlan, Programmer muda yang masih belajar dan ingin segera berbagi tentang dunia programming. Semua bisa menjadi Programmer selama memiliki keinginan yang kuat untuk belajar.

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *