File Binary

Sebagai alternatif penulisan file teks, pascal memungkinkan kita menuliskan file dengan menggunakan kata(konstruktor) file seperti berikut ini :

Type
    DeretAngka = File of Integer;
Var
    IntData : DeretAngka;
    Angka : Integer;

File inData disebut juga sebagai File Binary. File Binary adalah file dimana representasi internal dari tiap-tiap komponen secara langsung. Misalkan nilai variable angka adalah 244, pernyataan :

Write(InData,Angka);

Mengkopi representasi binary internal variable angka dari memori ke file InData. Misalkan file OutData bertipe teks, pernyataan berikut ini :

Write(OutData, angka:4);

Akan menuliskan niali variable angka ke file OutData dengan empat Bytes. Komputer pertama harus mengubah representasi binary dari memori ke string ‘244’ dan kemudian menuliskan kode bnary unutk karakter blank(‘ ‘) ,2,4 dan 4 ke OutFile. Sebaliknya apabila angka ‘244’ mau ditampilkan dilayar monitor, komputer akan mengkopi representasi binary dair blank (‘ ‘),2,4 dan 4 kemudian menuliskan ke teks string ‘244’ yang kemudian ditampilkan dilayar monitor. Proses semacam ini memakan waktu lebih lama dibandingkan kalau langsung mengkopi representasi binary internal ke disk.

Bentuk Umum dari file binary(sering juga disebut typed filed), adalah sebagai berikut :

Var
    InFile : File of <tipe>;

Dimana tipe bis merupakan tipe dasar file seperi Integer, Char, bahkan suatu record, dan bias juga suatu string.

Berikut deklarasi file binary :

Type
    String10 = string[10];
    RecMhs = record
    Nama : string[10];
    IP : Real;
End;
Var
    InChar : File of char;
    InMhs : File of recMhs;
    InItgr : File of Integer;
    InStrng : File of String[10];

Contoh program :

Program Bin01(input,OutFile);
Var
    OutFile : File of Integer;
    Angka,Jumlah : Integer;
Begin
    AssiGn(OutFile,’a:\latihan\outline.txt’);
    Rewrite(OutFile);
    WriteLn;
    WriteLn(‘Berapa angka yang akan dimasukkan : ‘);ReadLn(Jumlah);
    For Angka := 1 to Jumlah Do
    Write(OutFile,Angka);
    Reset(OutFIle);
    For Angka := 1 to Jumlah Do
    Begin
        Read(OutFile, Angka);
        Write(Output,Angka);
    End;
    ReadLn;
End.