STATEMENT ARRAY

C.     STATEMENT ARRAY

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.

                                                                                        

Untuk deklarasi array dapat digunakan beberapa cara seperti berikut ini :

Type

Angka = String[20];

Var

Nama : Array [1..50] of Angka;

Begin

End.

Deklarasi tipe indeks subrange integer Indeks pada array dapat tipe skalar atau subrange, tetapi tidak bisa real.

Contoh:

Var

Nilai : Array[1..10] of Integer;

pada contoh ini array nilai mempunyai 10 buah elemen yaitu dari 1 sampai 10. Array tersebut dapat dideklarasikan dengan type seperti berikut ini :

Type

Skala = 1..10;

Var

Nilai : Array [skala] of Integer;

atau :

Type

Skala = 1..10;

Y = Array[skala] of Integer;

Var

Nilai : Y;

atau :

Type

Y = Array[1..10] of Integer;

Var

Nilai : Y;

Contoh program:

Program Contoh_Deklarasi_Array_Beragam;

Uses Crt;

Var

NPM : array[1..20] of string[10];

Nama : array[1..20] of string[25];

Nilai : array[1..20] of real;

Umur : array[1..20] of byte;

banyak,i : integer;

Begin

ClrScr;

Write('Isi berapa data array yang diperlukan :');Readln(banyak);

For i := 1 to banyak Do

Begin

WRITE;

Write('NPM =');Readln(NPM[i]);

Write('Nama =');readln(Nama[i]);

Write('Nilai=');readln(Nilai[i]);

Write('Umur =');readln(Umur[i]);

End;

WRITELN;

{cetak varibel array}

Writeln('NPM NAMA NILAI UMUR ');

For i:= 1 to banyak Do

Begin

Writeln(Npm[i]:10,Nama[i]:25,Nilai[i]:3:2,' ',Umur[i]:3);

End;

writeln;

writeln;

writeln('enginerinformatick.blogspot.com');

writeln('created by DARWIS');

Readln;

end.