array pada pascal

Array adalah variabel yang dapat menyimpan lebih dari satu nilai sejenis. Terdapat dua bagian penting yaitu elemen array yang merupakan nilai dan endeks array yang merupakan nilai urut untuk mengakses nilai pada array.
Berikut ini contoh array A dengan 10 buah elemen tiap elemen memiliki nilai antara 10 hingga 100.

A[1]	A[2]	A[3]	A[4]	A[5]	A[6]	A[7]	A[8]	A[9]	A[10]
1	2	3	4	5	6	7	8	9	10
10	20	30	40	50	60	70	80	90	100

Deklarasi Array.
Array dideklarasikan pada bagian deklarasi. Deklarasi umum dari array adalah
NamaArray : array[IndeksAwal..IndeksAkhir] of tipe_data;

Contoh: Jika akan mendeklarasikan viriabel A sebagai Array dengan 10 elemen bertipe integer :
Var
A: array [1..10] of Integer;
Contoh lain:
A1: array[0..9] of Integer;
A1: array[10..20] of Integer;
A1: array[‘a’..’j’] of Integer;
Mengakses elemen Array
Untuk memberikan nilai pada variabel array dapat dengan menggunakan parameter berikut :
NamaArray [indeks]:=nilai;

Contoh
Var
A: array[1..10] of integer;
Begin
A[1]:=1; {Mengisikan elemen 1 dengan nilai 1}
A[9]:=200; {Mengisi elemen 9 dengan nilai 200};
End.
Array sebagai konstanta

Nilai pada array dapat bernilai konstan. Dapat kita lakukan dengan mendeklarasikannya pada bagian constanta.
Bentuk umum pendeklrasiannya adalah:
Const
NamaArray : array[IndeksAwal..IndeksAkhir] of Tipe_Data = (nilai1, nilai2,………);
Banyaknya nilai konstanta harus sama dengan jumlah elemennya.
Contoh penggunaanya
Program ArrayKonstanm;
Uses Wincrt;
Const
Hari : array[1..2] oof string = (‘senin’,'selasa’,'rabu’,'kamis’,'jumat’,'sabtu’,'minggu’);
Var
noHari:integer;
begin
clrscr;
write(‘Masukan nomor harinya : ‘);readln(noHAri);
write(‘Hari ke’,noHari,’adalah’,Har[noHari]);
end.
Jika dieksekusi maka hasilnya adalah:
Masukan nomor harinya : 2
Hari ke 3 adalah rabu
Array saebagai parameter

Array pada waktu tertentu dapat digunakan sebagai parameter dari suatu proesdur atyau fungsi. Contoh
Type
Bilangan = array [1..100[ of integer;
Procedure InputArray(A:bilangan; N:integer);
var
i:integer;
begin
for i:=1 to N do
write('Masukan elemen array ke ',i); readln(A[i]);
end.
Contoh diatas adalah prenggunaan array sebagai parameter untuk memberikan nilai pada suatu array tertentu.
Array berisi record
Caranya adalah mendefinisikan record terlebih dahulu yang kemudian akan digunakan sebagai tipe data pada saat pendeklarasiaan array. Contoh:
Type
Tsiswa = record
NIM:=string[9[;
Nama:string[25];
End;
TkumpulanSiswa = array [1..100] of Tsiswa;

Var
A: TkumpulanSiswa;

Variabel A diatas akan menampung 100 buah record yang bertipe Tsiswa. Sementara untuk record berisi array dengan contoh perhitungan nilai siswa berikut : Nilai = (20% * kuis) + (30% * UTS) + (50% * UAS). Maka kita dapat mendefinisikan mahasiswa sebagai tipe record yang memiliki 3 nilai dengan menggunakan array. Yaitu:
Type
Tsiswa = record
NIM:=string[9[;
Nama:string[25];
Nilai = array [1..3] of real;
Kode diatas menunjukan bahwa setiap mahasiswa memiliki 3 nilai.
Metode pencarian pada Array
Ada beberapa macam teknik dalam mendapatkan nilai dari suatu elemen pada array salh satunya dengan metode pencarian beruntun.Contoh:
Program CaraiBeruntun;

Uses Wincrt;
Const
N : array[1..5] of integer= (10,20,30,40,50);
Var
a,b,index : integer;
begin
clrscr;
write(‘Masukan nilai yang akan dicari : ’);readln(a);
index:=0;
for b:=1 to 5 do begin
if N[b] = a then begin
index:=b;
break;
end;
end;
writeln(a,’ adalah nilai yang ditemukan pada index ke ’,index);
end.
Array 2 dimensi
Array 2 dimensi adalah array yang memiliki 2 buah elemen bertipe array yang berbentuk kolom dan baris. Pendeklarasiannya adlah sebagai berikut:
NamaArray : array[1..BanyakBaris, 1..BanyakKolom] of tipe_data;
Contoh
Array2D : array[1..3, 1..4] of integer;
Sedangkan untuk mengaskes maupun memberikan nilai dengan parameter:
Array2D [2,3]:=200; {Mengisikan nilai 200 pada baris 2 kolom 3}

RMD

SOMEONE LIKE YOU

I heard that you’re settled down
That you found a girl and you’re married now
I heard that your dreams came true
Guess she gave you things I didn’t give to you

Old friend, why are you so shy?
It ain’t like you to hold back or hide from the lie

I hate to turn up out of the blue uninvited
But I couldn’t stay away, I couldn’t fight it
I hoped you’d see my face & that you’d be reminded
That for me, it isn’t over

10 TIPS ANTI GALAU

1. Mendekatkan diri kepada yang Maha kuasa, banyak berdoa agar kita terlepas dari kegalauan tersebut. Memohon diberikan jalan dan petunjuk terbaik terhadap penyelesaian permasalahan yang sedang dihadapi. 2. Segera menyelesaikan permasalahan atau penyebab galau itu sendiri, harus diingat bahwa menyimpan masalah dan tidak segera menyelesaikannya bagai menyimpan bom waktu yang sewaktu-waktu pasti akan meledak. 3. Hadapi yang akan terjadi, bukan malah menghindari dan takut. Jangan pernah berpikir untuk lari dari masalah. Masalah yang ada bukan untuk dihindari, tetapi untuk diselesaikan. Semakin dihindari, maka ia akan makin membesar. Menghadapi tidak selalu berdampak negatif, malah kebanyakannya berdampak positif. Justru menghindar akan makin membuat pribadi kalah dan merusak diri dari segi mental. 4. Berhentilah untuk menyalahkan diri sendiri karena hanya akan membuat perasaan jadi semakin down. Berpikirlah kalau ini merupakan sebuah ujian dari Tuhan karena Tuhan sayang sama diri kita dan Tuhan mau menaikkan derajat kita di hadapan orang lain dengan ujian tersebut. Dengan begitu kita akan lebih percaya diri setelah ujian itu berhasil dilewati, karena ujian yang diberikanNya tidaklah diluar kemampuan hambaNya. 5. Lepaskan dan sampaikan hasrat atau uneg-uneg penyebab galau tersebut, jika memendam rasa terhadap seseorang akan lebih baik disampaikan kepada orang tersebut. Walaupun hasilnya terkadang tidak seperti yang diharapkan namun akan lebih meringankan beban perasaan. 6. Cobalah memanajemen waktu, jadwalkan waktu khusus dalam sepekan untuk refreshing atau berolahraga. Lakukan kegiatan kegiatan atau rutinitas yang tidak biasa, akan membantu fikiran menjadi lebih fresh. 7. Mendengarkan lagu-lagu atau musik yang gembira sehingga akan menghantarkan menjadi lebih segar. 8. Mencari orang yang dapat dipercaya untuk bercerita atau curhat terhadap permasalahan yang sobat hadapi, walaupun tidak di dapat solusi yang terbaik tapi paling tidak ada referensi masukan untuk memecahkan masalah tersebut. 9. Hadapi dengan senyuman, berpikir positif, dan tenang dalam menyelesaikannya. Dengan begitu, perasaan akan lebh terasa relax dan sadar bahwa masalah yang dihadapi ga seberat yang dibayangkan. 10. Pergi kepantai, kegunung dan teriak sekeras-kerasnya sampai merasa fresh dan segar. Buang semua kegalauan disana.