Pengertia Array dan contoh Program --FREE PASCAL

FREE PASCAL (ARRAY)

Bissmillah

Apa sih array itu ????

Array merupakan sebuah variabel yang menyimpan lebih dari 1 buah data yang memiliki tipe data yang sama. Jadi dapat dikatakan bahwa array merupakan kumpulan dari data-data tunggal yang dijadikan dalam 1 variabel array yang alamat memorinya berbeda yang selanjutnya disebut elemen-elemen array yang bisa kita akses berdasarkan indeks.

Sebagai contoh kita mempunyai 5 buah data dengan nilai 1, 2, 3, 4, dan 5 dengan tipe data integer (int). Kita bisa saja mendeklarasikan tiap datanya dalam 1 variabel, misalnya :

int A = 1;

int B =2;

int C = 3;

int D = 4;

int E=5;

Tapi deklarasi tersebut diatas menjadi tidak efektif karena terlalu banyak variabel yang digunakan. Kita dapat memanfaatkan array dalam hal ini. Kita dapat menggunakan 1 buah variabel, misalnya memasukkan semua data kedalam variabel A dengan struktur array seperti berikut.

int A[5] = {1, 2, 3, 4, 5};

Perlu diperhatikan bahwa pada bahasa C++, indeks array selalu dimulai dari 0 bukan 1.  Dalam Mendeklarasikan sebuah array, kita harus menggunakan tanda [ ] (bracket). Untuk menghitung Besarnya memory yang dibutuhkan untuk variabel A arrray diatas adalah 5 x 2 bytes ( 2 bytes merupakan ukuran untuk 1 buah data dalam bentuk integer). Jika kita ingin memanggil sebuah data pada array, misalnya kita ingin memanggil elemen ke-2, maka kita dapat memanggilnya dengan menuliskan sintaks seperti berikut :

 X = A[1]; 

Bentuk umun dari pendeklarasian sebuah array adalah sebagai berikut.

--------------------------------------------------------------------------------------------------------------------------

• contoh program

program penggunaan_array;

uses crt;

var

        kode: array[1..20] of string[20];

        nama: array[1..20] of string[30];

        harga: array[1..20] of integer;

        stok: array[1..20] of  integer;

        i, n, y: byte;

        lagi:char;

        pilih:integer;

procedure input;

        begin

                write('masukan jumlah data yang akan dimasukan :'); readln(n);

                for i :=1 to n do

                begin

                clrscr;

                writeln('data ke-', i);

                writeln('-------------------------------------------');

                write('kode barang : ');readln(kode[i]);

                write('nama barang : ');readln(nama[i]);

                write('harga satuan : ');readln(harga[i]);

                write('jumlah stok : ');readln(stok[i]);

           end;

           end;

procedure lihat_data;

         begin

                y:=5;

                writeln('       HASIL INPUT DATA BARANG        ');

                writeln('======================================');

                writeln('No. Kode Nama Barang Harga Satuan Stok');

                writeln('======================================');

                for i:=1 to n do

                begin

                        gotoxy(1,y);writeln(i);

                        gotoxy(5,y);writeln(kode[i]);

                        gotoxy(10,y);writeln(nama[i]);

                        gotoxy(22,y);writeln(harga[i]);

                        gotoxy(28,y);writeln(stok[i]);

                        y:=y+1

                        end;

                        writeln('===============================');

                end;

procedure menu;

 begin

        writeln;

        write('ulang lagi? ');readln(lagi);

   end;

begin

        lagi :='y';

        while lagi='y' do

        begin

        clrscr;

        writeln('        MENU      ');

        writeln('  1. Input Data   ');

        writeln('  2. Lihat Data   ');

        writeln('  3. Keluar       ');

        write('--------------------');

        write('        Pilih Menu :');readln(pilih);

        if pilih=1 then

        begin

                clrscr;

                input;

                menu;

          end

          else

          if pilih=2 then

          begin

                clrscr;

                lihat_data;

                menu;

          end

          else

          if pilih=3 then

          begin

          read;

          exit;

          end;

          end;

end.

TERIMAKASIH.....   SEMOGA BERMANFAAT !!!!