Delphi : Penggunaan Array

Nama        : ANDI KHOIRUDIN
Kelas        : I-B SMT 1
Jurusan     : Teknik Informatika
STIMIK YADIKA BANGIL 2014

Assamualaikum Wr. Wb.

    Pada kesempatan yang lalu saya membahas penggunaan Mod dan Div
kesempatan ini saya akan membahas penggunaan array di Delphi. Mungkin
yang masih newbie seperti saya berfikir 'panganan opo iku' tapi disini saya
akan mencoba menjelaskan apa itu array ? 

     Array adalah sekumpulan variabel yang memiliki tipe data yang sama
dan dinyatakan dengan nama yang sama. Array merupakan konsep yang
penting dalam pemrograman, karena 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.

       Contoh :

- Angka untuk menyimpan sederetan bilangan

- Buku untuk menyimpan sekumpulan data buku

- Mahasiswa untuk menyimpan beberapa data mahasiswa

·         Sebagai contoh jika A merupakan sebuah array dengan tipe integer, maka notasi dari array A adalah: A[n], dengan n merupakan angka index dari array tersebut misal:

A[0]=100
A[1]=200
A[2]=300
A[3]=400

Contoh Program memasukkan data dan mencari rata-rata menggunakan array

Screenshotnya : 

Script programnya : 

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
a:array[1..10]of integer;
tot,jum,i:integer;
rata:real;
begin
writeln ('Nama      : Andi Khoirudin');
  writeln ('Kelas/NIM : 1B/114224042');
writeln;
  writeln ('>>> Menghitung rata-rata sejumlah data <<<');
  writeln;
write('Masukkan Jumlah Data = '); readln(jum);
  writeln;
i:=1; tot:=0;
while i <=jum do

begin
write('Masukkan data ke ',i,' = '); readln(a[i]);
Tot:=tot+a[i];
i:=i+1;
end;
 rata:=tot/jum;
 writeln('RATA-RATA = ',rata:10:1);
    writeln;
    writeln;
    writeln;
    writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
 readln;
end.

Contoh ke2 Membuat program seperti di kasir 'Selamat datang di alfa***t' menggunakan Array
Screenshotnya :

Script programnya :

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
namabar:array[1..100]of string;
harga:array[1..100]of integer;
i,tot:integer;lagi:string;
begin
  writeln ('Nama      : Andi Khoirudin');
  writeln ('Kelas/NIM : 1B/114224042');
writeln;
  writeln ('>>> Program Kasir <<<');
  writeln;
tot:=0; i:=1;

repeat
write('Nama barang = '); readln(namabar[i]);
write('Harga Rp = '); readln(harga[i]);
tot:=tot+(harga[i]);
i:=1+1;
writeln('Lagi y/t'); readln(lagi);
writeln;
writeln;
until(lagi<>'y') or (lagi<>'y') ;
        writeln('Total Harga Rp = ',tot);
        writeln;
  writeln;
  writeln;
  writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
readln;
end.

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Kurang lebihnya mohon maaf dan terima kasih sudah berkunjung 

Wassalamualaikum Wr. Wb