Pengertian Larik

Larik / Array adalah struktur data yang menyimpan sekumpulan elemen yang bertipe sama, setiap elemen diakses langsung melalui indeksnya.

Nama lain larik : tabel, vektor , peubah majemuk.

Nilai

1

99

2

75

3

89

4

95

Mendeklarasikan Larik

Larik merupakan struktur data yang statis, artinya jumlah elemen larik harus sudah diketahui sebelum program dieksekusi. Jumlah elemen tidak bisa diubah selama pelaksanaan program.

 

Contoh mendeklarasikan larik di dalam bagian deklarasi:

  1. Sebagai peubah

Nama      : array[1..25] of string

Nilai        : array[1..10] of real

  1. Sebagai tipe bentukan

type LarikRasid : array[1..100] of integer

A        : LarikRasid

  1. Mendefinisikan ukuran larik sebagai sebuah konstanta

Const Nmaks = 100;

type LarikEmerer = array[1..Nmaks] of integer;

var A : LarikEmerer;

 

Elemen larik tersusun di memori secara beruntun / sekuensial, maka elemen diproses melalui indeks yang berurutan.

 

Memproses larik artinya mengunjungi (tranversal) setiap elemen larik dan memanipulasi dinilai di dalamnya.

 

Menginisialisasi Larik

Menginisialisasi larik adalah memberikan nilai awal untuk seluruh elemen larik atau mungkin sebagian saja.

procedure inisial0(output A:Larik,input n : integer)

DEKLARASI

i:integer

ALGORITMA

for iß 1 to n do

A[i] ß 0

endfor

 

Mengisi Elemen Larik dengan Pembacaan

procedure BacaLarik(var A: LarikEmerer; n: integer);

var i : integer;

begin

for i:=1 to n do

    begin

    write(‘Masukan nilai A[',i,'] : ‘); readln(A[i]);

    end;

end;

 

Mencetak Elemen Larik

 procedure CetakLarik(A: LarikEmerer; n: integer);

var i : integer;

begin

for i:=1 to n do

    begin

    writeln(‘Nilai A[',i,'] = ‘,A[i]);

    end;

end;

 

Contoh Penggunaan Larik

 Program RataRata_emerer;

uses wincrt;

 Const Nmaks = 100;

 type LarikEmerer = array[1..Nmaks] of integer;

 

var A : LarikEmerer;

    i,n : integer;

    u : real;

 

procedure BacaLarik(var A: LarikEmerer; n: integer);

var i : integer;

begin

for i:=1 to n do

    begin

    write(‘Masukan nilai A[',i,'] : ‘); readln(A[i]);

    end;

end;

 

procedure CetakLarik(A: LarikEmerer; n: integer);

var i : integer;

begin

for i:=1 to n do

    begin

    writeln(‘Nilai A[',i,'] = ‘,A[i]);

    end;

end;

 

procedure HitungRatarata(A: LarikEmerer; n : integer; var u : real);

var

i : integer ;

jumlah : real ;

begin

i:= 1;

jumlah := 0 ;

for i := 1 to n do

jumlah := jumlah + A[i] ;

u := jumlah / N;                     end;

(* Program Utama*)

begin

write(‘Masukan jumlah data : ‘); readln(n);

writeln;

writeln(‘Baca data : ‘);

BacaLarik(A,n);

writeln;

writeln(‘Cetak data : ‘);

CetakLarik(A,n);

writeln;

writeln(‘Hitung Rata Rata : ‘);

HitungRataRata(A,n,u);

writeln(‘Jadi Rata Rata nya adalah : ‘,u:10:6);

end.

 

Daftar Pustaka:

Munir, Rinaldi. 2007Algoritma dan pemrograman dalam Bahasa Pascal dan C, Penerbit informatika. Bandung.