Array adalah sekelompok data sejenis yang disimpan ke dalam variabel dengan nama yang sama, dengan memberi indekx pada variabel untuk membedakan antara yang satu dengan yang lain. Array dapat berupa satu dimensi, dua dimensi, tiga dimensi dan berdimensi banyak.
Pada kali ini, saya akan memberikan contoh penggunaan Array satu Dimensi :
Kumpulan elemen yang identik yang tersusun satu baris bentuk umum :
Var :
Array [Indeksnya] of TipeData;
==================================================
Program Hitung;
Uses wincrt;
Var
Bilangan : Array [1..10] of integer;
a,b,jml:integer;
Begin
Clrscr;
Write ('Masukan Bilangan :');readln(b);
for a:=1 to b do
Begin
write ('Masukan Bilangan Ke ',a,' = ');readln(bilangan [a]);
jml:=jml+Bilangan [a];
end;
writeln('Jumlah Bilangan yang diinput ',jml);
write ('Bilangan yang dimasukkan adalah :');
for a := 1 to b do
write ( bilangan [a]:4);
end.
===================================================
Berikut Hasil jadinya :
Tidak ada komentar:
Posting Komentar