TIPE DATA TERSTRUKTUR PADA PASCAL

Dalam tipe data terstruktur setiap perubah bisa menyipan lebih dari sebuah nilai data. Masing-masing nilai data disebut komponen. Karakteristik data bertipe tersetruktur ditentukan berdasarkan cara penstrukturan dan tipe masing-masing komponen. 
Jenis dalam tipe data terstruktur :
• larik/array
• Record
• Set
• File
Larik/Array
            Larik atau array adalah tipe tersetruktur yang mempunyai komponen dalam jumlah tetap dan setiap komponen mempunyai tipe data yang sama. Posisi masing-masing Dalam tipe data terstruktur setiap perubah bisa menyipan lebih dari sebuah nilai data. Masing-masing nilai data disebut komponen. Karakteristik data bertipe tersetruktur ditentukan berdasarkan cara penstrukturan dan tipe masing-masing komponen.
Penulisan Array
komponen dalam larik dinyatakan sebagai nomor index.
Bentuk umum:
• Type pengenal = array [tipe index] of tipe;
Dimana:
• Pengenal : nama tipe data
• Tipe index : tipe data untuk nomor index
• Tipe : tipe data komponen

Contoh Array
Parameter tipe index menentukan banyaknya komponen larik tersebut. Tipe index boleh berupa sembarang tipe ordinal kecuali longint dan subjangkauan dari longint. 
Contoh deklarasi data larik :
• Type vek=array[1..100] of integer;
Deklarasi diatas berarti Vek adalah tipe data yang berupa larik yang komponennya bertipe integer dan banyaknya 100 buah. Deklarasi yang demikian disebut deklarasi larik dimensi satu (vector). Jika tipe komponen juga berupa sebuah larik lain, akan kita peroleh larik dimensi banyak.
Contoh :
• Type matrik =array [1..100 ,1..50]  of real;


Tipe Data  Record
            • Digunakan untuk penyimpanan suatu kelompok data dengan tipe data yang berbeda-beda.
Contoh Record
type data=record
nama:string;
tanggal,bulan,tahun: integer;
end;
var siswa : data;
{jika siswanya banyak digunakan array}
var siswa :array[1..100] of data;

Tipe Data Set
            Sebuah set merupakan suatu himpunan yang berisi nilai (anggota). set merupakan Tipe data yang khusus untuk Pascal. Set dalam pemrograman sangat mirip dengan himpunan dalam ilmu matematik. contoh: A = { 1, 2, 3, 4, 5 }
Sintak :
set of
contoh:
type Angka = set of 0..9;
Huruf = set of 'A'..'Z';
Hari = (Senin, Selasa, Rabu, Kamis,
Jum’at, Sabtu, Minggu);
SetHuruf = set of Huruf;
SetHari = set of Hari;

const Genap: Angka = [0, 2, 4, 6, 8];
Vokal: Huruf = ['A', 'E', 'I',
'O', 'U', 'Y'];
Kita tidak bisa menulis atau membaca isi dari set, tetapi kita bisa melakukan operasi yang lain dengan data yang ada pada set (mis. relasional).
Contoh:
Program contoh_set;
type hari = (ahad, sen, sel, rab, kam,jum, Sab);
var semua_hari : set of hari;
hari_kerja : set of sen .. jum;
hari_ini : hari;
begin
hari_ini:=sen;
if hari_ini in hari_kerja then
writeln(' HARI KERJA')
else writeln('HARI LIBUR');
end.
Salah satu manfaat dari penggunaan tipe data set adalah untuk mengecek apakah suatu nilai muncul dalam suatu range tertentu. Misalnya, untuk mementukan apakah suatu karakter berupa lower case letter (huruf kecil), mis. Ch adalah tipe Char, kita bisa menulis :
if (Ch >= 'a') and (Ch <= 'z') then
Writeln( Ch,' merupakan huruf kecil.');
atau, dengan notasi set, kita bisa menulis ,
if Ch in ['a'..'z'] then
Writeln( Ch,' merupakan huruf
kecil.'); 

Tipe Data File

Procedure dan Function Standard Untuk Semua Tipe File

Assign (f:file;name:string)          : digunakan untuk menghubungkan nama dari external    file ke suatu variabel file.

Rewrite (f[:file; recsize:word]): digunakan untuk membuka file yang baru atau yang belum pernah ada di disk.

Reset (f[:file; recsize:word])       : digunakan untuk membuka file yang sudah ada.

Close (f:file)                                : digunakan untuk menutup file yang telah dibuka dengan procedure standard Rewrite, Reset, atau Append (procedure khusus untuk membuka file teks).

E                                                 rase (f:file)                                : digunakan untuk menghapus suatu external file. Dalam penggunaanya harus didahului dengan procedure standard Close.

Rename (f:file;newname:string): digunakan untuk mengganti nama suatu external file.

GetDir (d:byte; var s:string)        : digunakan untuk mengetahui direktori yang aktif pada suatu drive.

ChDir (s:string)                           : digunakan untuk mengubah posisi dari direktori.

MkDir (s:string)                           : digunakan untuk membuat suatu direktori.

RmDir (s:string)                          : digunakan untuk menghapus suatu direktori.

Eof (f:file):boolean                      : fungsi ini akan menghasilkan status apakah file sudah berada di               posisi akhir dari file atau tidak.

File Teks

File teks

File tekas merupakan file yang berisi karakter yang dibentuk dalam baris-baris dan masing-masing baris dengan end-of-line marker berupa karakter carriage return dan karakterline feed (CR/LF). Sedangkan akhir dari file ditunjukkan dengan karakter Ctrl-Z.

Panjang dari tiap-tiap baris dari file teks dapat berbeda-beda, sehingga posisi dari suatu baris tertentu dari file teks tidak dapat dihutung dan akibatnya file tekas hanya dapatdiakses secara urut.

File teks sebenarnya merupakan file dengan tipe Char, tetapi mempunyai perbedaan, yaitu nilai yang bukan tipe Char dapat direkam dan dibaca oleh file teks. Nilai yang bukan tipe Char ini akan secara otomatis dirubah ke atau dari tipe Char.

Deklarasi

var

       variabelFile : Text;

begin

…

end.