ARRAY
Array merupakan
struktur data yang statis, yaitu jumlah elemen yang ada harus ditentukan
terlebih dahulu dan tak bisa di ubah saat program berjalan. Untuk menyatakan array
dalam PASCAL kita harus terlebih dahulu:
· Mendefinisikan jumlah elemen array,
· Mendefinisikan tipe data dari elemen array
Contoh :
const
N=10;
type
A= array [1..N] of
integer;
Array
(Larik) adalah tipe tersruktur yang terdiri dari sejumlah komponen yang
mempunyai tipe yang sama. Array ada 2 jenis:
1) Array
berdimensi satu.
2) Array
berdimensi 2 /dimensi banyak.
Array Berdimensi Satu
(One Dimensional Array)
Bentuk Umum :
Contoh Penulisan :
X : array[1..100] of integer;
Sebagian dari elemen-elemen dari X
tersebut adalah :
Contoh :
Program Array_1_dimensi;
uses wincrt;
Var
NilaiPrak : array[1..20]
of real;
I, JumlahData : Byte;
Begin
Write ('Masukkan
banyakya data : ');
Readln(JumlahData);
For I := 1 to JumlahData
do
Begin
Write ('Nilai ke
',I,':');
Readln(NilaiPrak[I])
End;
Readln;
End.
Ada juga Pendefinisian array secara
umum adalah sebagai berikut : jika kita ingin membuat beberapa array dengan
tipe/jenis yang sama, kita lebih baik jika mendeklarasikan dengan type selanjutnya
dengan deklarasi var.
type
nama_array = ARRAY[bawah..atas]
of tipe_data;
var
variabel_array : nama_array;
atau
dengan menggunakan statement var :
var
variabel_array : ARRAY[bawah..atas]
of tipe_data;
Penjelasan:
Bawah dan Atas menyatakan batas untuk array.
tipe_data adalah merupakan tipe variabel yang dipunyai array (mis.
Integer, char, real, dsb)
Contoh :
uses winCrt;
var
a: array[1..10] of byte; {maksimum jumlah elemen=10}
begin
a[1]:=10;
a[2]:=15;
a[3]:=a[1]+a[2];
Writeln(a[1]);
Writeln(a[2]);
Writeln(a[3]);
end.
Contoh array dengan konstanta
uses wincrt;
const
N=10;
type
int_array= ARRAY [1..N] of integer;
var
bil : int_array;
indeks : integer;
begin
writeln('masukkan sepuluh bilangan integer.');
for indeks := 1 to 10 do
begin
readln(bil[indeks]);
end;
writeln('Isi dari array ini adalah');
for indeks := 1 to 10 do
begin
writeln('bil[', indeks:2,'] adalah ',bil[indeks] );
end
end.
Contoh Array untuk menghitung Huruf
Program Hitung_Huruf;
Uses WinCrt;
Var
Teks : string;
banyak : array['A'..'Z'] of byte;
i : byte;
begin
Write('Masukkan Suatu Kalimat :');
Readln(Teks);
for i:=1 to length(teks) do
banyak[upcase(teks[i])]:=banyak[upcase(teks[i])]+1;
for i:=1 to 26 do
if (banyak[upcase(chr(64+i))]<>0) then
writeln(upcase(chr(64+i)),' banyaknya
=',banyak[upcase(chr(64+i))]);
end.
Array Berdimensi Dua (Two/multi Dimensional
Array)
Dalam array multidimensi terdiri
atas baris (row) dan kolom (column). Index pertama adalah baris
dan yang kedua adalah kolom .
Type nama_array =ARRAY[bawah..atas, bawah..atas] of
tipe_data;
var variabel_array : nama_array;
atau dengan menggunakan statement var :
var variabel_array : ARRAY[bawah..atas, bawah..atas]
of tipe_data;
Bentuk umum :
Nama_array :
ARRAY[tipe-indeks1,type-indeks2] of
tipe data
Contoh penulisan :
tabel : array [1..3,1..2] of byte
Contoh :
Program Array_2_dimensi;
Uses wincrt;
Var
Matrik :
array[1..3,1..2] of shortint;
I, J : Byte;
Begin
Matrik[1,1] := -11;
Matrik[2,1] := -76;
Matrik[3,1] := 8;
Matrik[1,2] := -1;
Matrik[2,2] := 11;
Matrik[3,2] := 18;
For I := 1 to 3 do
Begin
For J := 1 to 2 do
Write (Matrik[I,J]:5);
Writeln;
End;
Readln;
End.
Kasus :
1.
Buat Program dengan array untuk mencari banyak
huruf seperti hasil program di bawah ini :
2.
Buat Program untuk menentukan bilangan terbesar
dari data yang diinputkan seperti hasil dibawah ini :
3.
Buat Program untuk menentukan bilangan genap,
ganjil, serta rata-ratanya dan berapa jumlah bilangan genap dan ganjil seperti
hasil berikut :
4.
Buat Program untuk menggabungkan dua buah array
dan hasilnya menurun
Array yang digabungkan diberikan
nilai konstanta contoh
const
a:array[1..6] of integer
=(2,5,8,11,14,17);
b:array[1..8] of integer
=(4,5,7,9,11,12,30,45);
maka akan mendapatkan hasil :
5.
Buat Program untuk menentukan pangkat dari
bilngan yang dimasukkan dan akan dipangkatkan berapa seperti hasil berikut ini
:
Tidak ada komentar:
Posting Komentar