PascalPemrograman

Array Bag III (Mengakses Elemen Array) #67

Ayam dapat bertelur

andrypein.net : lanjut ke bag III gan,masih array2an, kali ini ane bakal ngejelasin mengakses elemen array.

Langsung saja lagi dah, langkah pertama yang adalah mengisikan nilai kedalam elemen-elemen array yang bersangkutan.

Bentuk umumnya seperti ini gan :

 NamaArray[indeks]:= nilai;

Itu hanya bentuk umumnya gan, untuk lebih jelasnya liat yang bawah gan:

var
 A: array[1..100] of integer;
begin
 A[1]:=1; {mengisi elemen pertama dengan nilai 1}
 A[2]:=2; {mengisi elemen kedua dengan nilai 2}
 A[3]:=3; {mengisi elemen ketiga dengan nilai 3}
 ...
 A[100]:=100;{mengisi elemen keseratus dengan nilai 100}
end.

Tapi kode diatas,tidak efisien gan,ampe 100 kita harus ngisi manual, untuk lebih sederhananya,kita bisa pakai pengulangan gan.

kode diatas ane sederhanain jadi kaya gini:

var
 A: array[1..100] of integer;
 i: integer;
begin
 for i:=1 to 100 do begin
  A[i]:=i;
 end;
end.

Dibawah ini adalah contoh progamnya yang sudah matengnya gan.

program AksesArray;
uses wincrt;
const
 max = 26; {jumlah alpabet}
var
 A: array[1..max] of char;
 c: char;
 i: integer;
begin
 c:='a';
 i:=1;
 while (i<=max) do 
  begin
   A[i]:=c;
   Inc(c);
   Inc(i);
  end;

for i:=1 to max do 
 begin
  write(A[i], ' ');
 end;
end.

Hasilnya mesti abjad dari a sampe jet gan.

Sekian artikel mengakses elemen array gan, lanjut di next post bagian iv, stay tune.

*AFK

Related Articles

Tinggalkan Balasan

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

Back to top button