PROGRAM TURBO PASCAL FILE BERTIPE

File bertipe adalah file yang berisikan deretan data yang bertipe sama. Bedanya dengan file teks adalah file teks hanya menyimpan data yang berupa sederetan karakter saja. Sedangkan pada file bertipe dapat menyimpan deretan data bertipe apapun yang bertipe sama. Notasi pendefinisian file bertipe adalah sebagai berikut:

var

   NamaVariabel: file of tipeData;

Contoh pendeklarasiannya dalam pascal yaitu:

Var

   F: file of integer;

Perintah yang dapat digunakan pada pada file bertipe umumnya sama dengan file teks, hanya saja pada file bertipe tidak dapat digunakan perintah Append, Readln, Writeln, Eoln, SeekEoln. Hal ini dikarenakan pada file bertipe tidak dikenal baris data. File beripe tidak menyimpan data per baris, melainkan per data/record.

Adapun beberapa perintah yang dapat digunakan oleh file bertipe namun tidak dapat digunakan pada file teks yaitu:

1.      SEEK

Seringkali dalam suatu file bertipe ingin ditemukan data/record tertentu. Untuk menentukan data tertentu pada file bertipe digunakan prosedur Seek yang mempunyai aturan penulisan sebagai berikut.

Seek (var_file­ , ­no_record);

Dimana var_file adalah sebuah variabel file bertipe yang sudah di-assign terlebih dahulu sedangkan no_record adalah nomor record yang ingin ditemukan. Sebagai catatan record pertama pada file bertipe dimulai dari 0, bukan dari 1

2.      FILESIZE

Masalah yang kadang muncul adalah bagaimana caranya untuk mengetahui berapa data/record yang ada pada file bertipe sehingga jika digunakan perintah SEEK, no_record tidak melebihi dari jumlah record yang ada. Dengan menggunakan fungsi FileSize dapat diketahui berapa besar ukuran suatu file dalam satuan record. Cara penulisannya sebagai berikut.

­v­_banyak_record := FileSize(var_file_tipe);

dimana v_banyak_record adalah variabel bertipe longint (bilangan bulat) sedangkan var_file adalah variabel bertipe file yang sudah di-assign dan dibuka.

3.      TRUNCATE

Untuk menghapus record tertentu pada file bertipe digunakan prosedur Truncate. Aturan penulisannya sebgaia berikut.

Truncate(var_file­_tipe);

dimana var_file_tipe adlah variabel bertipe file yang telah di_assign dan dibuka.

Biasanya prosedur ini diawali dengan perintah Seek terlebih dahulu. Misalkan ingin dihapus mulai dari record ke-n pada suatu file bertipe maka penulisannya sebagai berikut.

Seek(var_file,n);

Truncate(var_file);
BERIKUT CONTOH RPOGRAMNYA :
1. CARA MENULIS FILE BERTIPE
   PROGRAM TULIS_KE_FILEBERTIPE;
USES CRT;
VAR
        F : FILE OF INTEGER;
        ANGKA : INTEGER;
        LAGI : CHAR;
BEGIN
CLRSCR;
ASSIGN(F,'DATA.INT');
REWRITE(F);
RESET(F);
        REPEAT
        WRITELN('MASUKKAN ANGKA :');READLN(ANGKA);
        WRITE(F,ANGKA);
        WRITE('MASUKKAN LAGI(Y/N)?');READLN (LAGI) ;
        UNTIL(UPCASE(LAGI)='N');
CLOSE(F);
        WRITE('ANGKA BERHASIL DISIMPAN KE DALAM FILE');


READLN;
END.
2. MEMBACA FILE BERTIPE
   PROGRAM CONTOHBACA_FILE_BERTIPE;
USES CRT;
VAR
F : FILE OF INTEGER;
ANGKA : INTEGER;
BEGIN
CLRSCR;
WRITELN('INI ADALAH ISI DARI FILE:');
ASSIGN(F,'DATA.INT');
RESET(F);
WHILE NOT EOF (F) DO
BEGIN
READ(F,ANGKA);
WRITE(ANGKA,'');
END;
READLN;
END.
Mudah2an dapat bermanfaat,,