File

File merupakan kumpulan dari record digunakan agar data yang telah terkumpul dapat disimpan kedalam disk atau media penyimpanan.
Pada Pascal, terdapat 3 jenis file , yaitu :
1.File bertipe,
2.File teks,
3.File tidak bertipe.
Diantara ketiga jenis file diatas yang tidak dapat diakses secara acak adlah file teks.
Pascal menyediakan beberapa perintah yang digunakan untuk memelihara suatu file. Berikut beberapa prosedur dan fungsi yang berlaku untuk ketiga file tersebut :

1. Assign
Berfungsi untuk menghubungkan nama dari external file kedalam suatu variable, dideklarasikan sebelum perintah Rewrite atau Reset.
Syntax :
Assign (variable_file,nama_file);

2. Rewrite
Berfungsi untuk membuka dan menciptakan suatu file. Apabial didalam disk yang sama dengan nama file yang berkaitan dengan variable_file, maka isi file akan kosong.
Syntax:
Rewrite (variable_file);

3. Reset
Berfungsi untuk membuka file yang telah ada didisk, dan jika file yang dicari tidak ada, maka akan terjadi kesalahan atau eror.
Syntax :
Reset (variable_file);

4. Close

Digunakan untuk menutup file yang sedang aktif, bila program tersebut tidak dibutuhkan lagi.
Syntax ;
Close (variable_file);

5. Erase
Digunakan untuk menghapus file, bias digunakan jika file tersebut dalam keadaan tertutup. Sedangkan jika terbukaakan menyebabkan eror.
Syntax :
Erase (variable_file);

6. Rename
Digunakan untuk mengganti nama file yang ada didalam disk lain.
Syntax :
Rename (variable_file);

7. End of File (EOF)
Digunakan untuk mengetahui status dari suatu file, apakah proses telah mencapai posisi terakhir atau tidak.
Syntax :
EOF (variable_file) : Boolean ;

1. File Bertipe
File bertipe merupakan file yang diakses secara urut dan secara acak. File bertipe dapat didefinisikan dengan bentuk :
File Of tipe_data
Dengan ipe data dapat berupa sembarang tipe, kecuali file.
Contoh :
Type
Datapeg = Record
Nip : string (5);
Nama : string (30);
Bagian : string (15);
End;
Var
File_pg = file Of DataPeg;
Prosedur dan fungsi dapat digunakan pada file bertipe :

2. Write
Digunakan untuk merekam data dari variabel record kedalam file disk.
Syntax :
Write (variabel_file, variabel_komponen);

3. Read
digunakan untuk membaca data dair file kedalam variabel record yang telah dideklarasikan
Syntax :
Read variabel_file, variabel_komponen);

4. Seek
Digunakan untuk menempatkan petunjuk record (pointer) kerecord yang diinginkan.
Syntax :
Seek (variabel_file, variabel_record);

3. File size
Digunakan untuk memperoleh ukuran file.
Syntax :
fileSize (variabel_file);

4. FilePos
Digunakan untuk memperoleh posisi pointer / record file.
Syntax :
FilePos (variabel_file);


2. File Teks
File teks merupakan jenis file yang hanya bisa diakses secara berurutan saja. File teks adalah file yang berisi karakter – karakter yang disusun dalam bentuk baris dan harus diakhiri dengan EoLndan isi dari file teks dapat dilihat dengan menggunakan perintah internal DO, yaitu dengan perintah type atau dengan pengolah kata. File teks didefinisikan dengan bentuk :
Var :
Variabel_file : Teks ;
Fungsi dan prosedur yang digunakan dalam file teks adalah sebagai berikut :

3. Reset
Digunakan untuk membuka suatu file untuk dibaca.
Syntax :
Reset (variabel_file);

4. Rewrite
Digunakan untuk membuka suatu file untuk ditulis.
Syntax :
Rewrite (variabel_file);

a. Write dan WriteLn
Digunakan untuk menulis kedalam file.
Syntax :
write (variabel_file, item_1 [item_2, … item_n]);
writeLn (variabel_file, item_1 [item_2, … item_n]);

b. Read dan ReadLn
Digunakan untuk membaca isi suatu file teks.
Syntax :
Read (variabel_file, item_1 [item_2, … item_n]);
ReadLn (variabel_file, item_1 [item_2, … item_n]);

c. Append
Digunakan untuk menambah isi suatu file teks.
Syntax :
Append (variabel_file);

3. File Tidak Bertipe
File tidak bertipe merupakan file yang megakses langung ke media penyimpanan tanpa adanya pengenalan record dan sebagainya seperti yang ada pada file bertipe dan file teks.
File tidak bertipe didefinisikan sebagai berikut :
Var
Variabel_file : File ;

Fungsi dan prosedur pada file tidak bertipe adalah sebagai berikut :
1. Reset and Rewrite
Digunakan untuk membuka file untuk dibaca dan ditulis.
Syntax :
Reset (variabel_file [, ukuran record] ) ;
Rewrite (variabel_file [, ukuran record] ) ;
Dimana ukuran record adalah besar suatu data sekali pembacaan atau penulisan pada disk.

2. BlockRead
Digunakan untuk membaca isi file.
Syntax :
BlockRead ((variabel_file, Buffer, Jumlah [ , JumBaca] ) ;
Buffer adalah penyimpanan yang tipe variabelnya disesuaikan dengan jumlah data yang dibaca. Jumlah adalah yang akan dibaca dari file. JumBaca adalah option yang dapat dipakai atau tidak.

3. BlockWrite
Digunakan untuk menulis kedalam file.
Syntax :
BlockWrite (variabel_file, Buffer, Jumlah [ , JumTulis] ) ;
Buffer adalah penyimpanan yang tipe variabelnya disesuaikan dengan jumlah data yang ditulis. Jumlah adalah yang akan ditulis dari file. JumTulis adalah option yang dapat dipakai atau tidak.

Berikut merupakan contoh Program Dengan Pascal untuk mencari bilangan 2,4,6,8,16,32, bisa dodownload disini