Array atau larik adalah suatu bentuk struktur data yang menampung satu atau lebih dari satu data yang berjenis atau bertipe data sama, yang diwakili oleh satu nama variabel.
Cara Mendefinisikan larik atau array berbeda dengan cara mendefiniskan dengan program secara umumnya. Ada beberapa cara untuk mendefinisikannya antara lain :
a. nama_array:array [1..n] of tipe_data; Misalnya A:array [1..10] of integer ;
b. tipe_data nama_array [n]; Misalnya integer A[10];
c. type larik:array [1..n]of tipe_data; nama_array:larik; Misalnya type larik :array[1..10] of integer; A:larik;
Larik dapat berdimensi satu, dua, tiga atau lebih. Larik dimensi satu (one-dimensional array) mewakili bentuk suatu vektor. Larik dimensi dua (two-dimensional array) mewakili bentuk dari suatu matrik atau tabel. Larik dimensi tiga (three-dimensional array) mewakili bentuk suatu ruang.
(more…)
Teman teman. sory baru posting lagi.. Saya mau ngupload 2 materi kuliah kita yang diberikan minggu lalu
1. Grafika KOmputer yang mengenai warna, yang program menggunakan delphi download disini . Kemudian tolong besok bawa laptop karena langsung praktik untuk besok.
2. Materi Sistem Keamanan Komputer yang tentang virus, monggo diunduh disini agan agan sekalian. Inget Rabu besok mid. boleh open laptop, soalnya materinya buji buneng banyak sekali maen 60 slide satu kali pertemuan.. hahaha
Contoh perulangan adalah program segitiga dibawah ini. Outputnya
Coding dari output diatas dapat menggunakan while – do
var x,i,j:integer;
begin
write(‘Masukkan batas : ‘);
readln(x);
i:=x;
j:=1;
while (i>=1) do
begin
j:=1;
while(j<=i) do
begin
write(‘ ‘,j);
j:=j+1;
end;
i:=i-1;
writeln;
end;
readln;
end.
atau menggunakan instruksi for
var n,i,j:integer;
begin
write(‘Masukkan Batas : ‘);
readln(n);
for i:=n downto 1 do
begin
for j:=1 to i do
begin
write(‘ ‘,j);
end;
writeln;
end;
readln;
end.
Walaupun beda instruksi tapi outputnya sama, karena sama sama perulangan 
Tugas ke 4 sudah lewat batas deadlinenya dari minggu lalu. Saya hanya ingin share untuk jawaban yang mengenai function. Karena beberapa orang membuatnya tidak dalam satu program.Check it out
program Project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils, CustApp
{ you can add units after this };
function pangkat(a,b:integer):integer;
var i:integer; temp:integer;
begin
temp:=1;
for i:=1 to b do
begin
temp:=temp *a;
end;
pangkat:=temp;
readln;
end;
function faktorial(n:integer):integer;
begin
if n=0 Then
faktorial:=1
else
faktorial:=n*faktorial(n-1);
end;
function akar(z:real):real;
var h:real;
begin
h:=1;
h:=SQRT(z);
akar:=h;
readln;
end;
var x,y,fakt,aka:integer;
begin
writeln(‘===Menghitung Pangkat===’);
write(‘Masukkan Nilai : ‘);
read(x);
write(‘Masukkan Pangkat : ‘);
read(y);
writeln(‘Nilai ‘,x,’ Pangkat ‘,y, ‘ adalah ‘,
pangkat(x,y));
writeln(‘===Menghitung Faktorial===’);
write(‘Masukkan angka : ‘);
read(fakt);
writeln(‘Faktorialnya adalah ‘, faktorial(fakt));
writeln(‘===Menghitung Akar===’);
write(‘Masukkan angka : ‘);
read(aka);
writeln(‘Akarnya adalah ‘, akar(aka):6:2);
writeln;
writeln(‘RIZAL ADI SAPUTRA’);
write(‘E1E108050′);
readln;
end.
Tolong dipelajari juga sebagai bahan mid. 
Gud luck 
Telat-Telat.. telat posting lagi karena minggu minggu ini banyak mata kuliah yang mid. ditambah jaringan yang koneksinya kurang mendukung akhir akhir ini. Well, ini adalah jawaban untuk praktikum yang ketiga selasa kemarin.
1. Tampilannya seperti ini
program diatas harus dibuat menggunakan procedure. Dimana untuk Luas segiempat menggunakan procedure by value dan Keliling Segiempat menggunakan procedure by reference. Untuk programnya bisa di unduh disini
2. Tampilannya Seperti ini
program diatas dibuat menggunakan function, dan source codenya dapat di download disini
Mohon untul dipelajari lagi.
Waduh telat memposting. Tapi lebih baik telat daripada tidak sama sekali.
Procedure
• Prosedur merupakan suatu rutin yang melakukan proses tertentu tanpa adanya pengembalian nilai
• Prosedur menyediakan suatu metode pengisolasian bagian program secara terpisah yang dapat dipanggil atau diaktivasi dari bagian manapun didalam program
• Dalam bahasa pascal prosedur didefinisikan dengan kata kunci procedure.
Procedure terbagi menjadi dua yakni procedure by value dan procedure by reference. Procedure by Value mempunyai karakteristik sebagai berikut :
1. Data yang dikirim dari parameter aktual di blok program utama ke parameter formal di prosedur adalah nilai dari datanya bukan alamat memori letak dari datanya.
2. Prosedur/Fungsi yang menerima nilai ini akan menyimpan data tersebut di alamat memori yang berbeda dari nilai aslinya yang digunakan oleh bagian program yang memanggil fungsi/prosedur tersebut di blok program utama.
3. Karena terdapat alamat memori yang berbeda, maka perubahan nilai di fungsi tidak akan merubah nilai asli di bagian program yang memanggil prosedur/fungsi tersebut.
Contoh programnya bisa download disini
Sedangkan procedure by reference (acuan) mempunyai karakteristik sebagai berikut :
1. Pada saat pengiriman nilai, yang dikirim dari parameter aktual di blok program utama ke parameter formal di prosedur adalah alamat letak bukan dari nilai datanya .
2. Prosedur/Fungsi yang menerima nilai ini akan menggunakan alamat memori yang sama dengan nilai aslinya yang digunakan oleh bagian program yang memanggil fungsi/prosedur tersebut di blok program utama.
3. Karena menggunakan alamat memori yang sama, maka perubahan nilai di prosedur/fungsi akan merubah nilai asli di bagian program yang memanggil prosedur/fungsi tersebut.
Contoh programnya dapat di unduh disini dan disini
Function
• Pada fungsi terdapat pengembalian nilai, sehingga pada saat pemanggilan, fungsi dapat langsung digunakan untuk mengisikan sebuah ekspresi.
• Fungsi didefinisikan dengan kata kunci function.
contoh program menggunakan function dapat di download disini
Semoga bermanfaat
Speak-Speak