File (Berkas) Pada Pascal
4/02/2014
Add Comment
File adalah kumpulan
byte-byte yang disimpan dalam media
penyimpanan. Merupakan komponen yang
bertipe data sama, yang jumlahnya tidak
tentu, yang dapat ditambah atau
dikurangi jika dibutuhkan.
Pointer file adalah bagian yang menunjuk ke komponen file yang akan diakses (dibaca atau direkam) untuk keperluan pengaksesan file (akan dibahas kemudian).
File pada Pascal
dikenal dalam 3 jenis,
yaitu :
File
Text
File
bertipe
File
tidak bertipe
1. File Text
Karakteristik
• Berisi data karakter
ASCII
• Tiap record boleh
memiliki panjang yang bervariasi
• Setiap record
diakhiri tanda EOL (end of Line)
• Hanya dapa3t diakses
secara sequensial (berurutan).
• Isi filenya dapat
dilihat oleh perintah dos type atau editor text
Membuat file text
Urutan Prosesnya :
a. Mendeklarasikan
variabel file
Var NmVar:TEXT;
Dengan :
NmVar : Nama variabel file text
b. Menghubungkan variabel file dengan nama file
Assign (NmVar, nama
file);
Dengan :
NmVar : Nama variabel file text
nama file : Nama file
dalam bentuk string, format 8:3 penamaan dos, ditulis dalam bentuk string.
c. Membuat file text aktif
Rewrite(NmVar);
Dengan :
NmVar : Nama variabel file text yang sudah
di- assign
d. Menulis ke dalam
file text
Write / writeln (NmVar,
data item1, data item 2, …)
Dengan :
NmVar : Nama variabel file text
Data item : text /
string yang akan dituliskan, atau bisa
juga berupa isi suatu variabel
d. Menutup file
Close (NmVar);
Dengan:
NmVar : Nama variabel file text
Program
membuat_file_text_namafile_HALLO_TXT;
Uses crt;
Var var_teks:TEXT;
Begin
Clrscr;
Assign(var_teks,’Hallo.txt’);
Rewrite(var_teks);
Writeln(var_teks,’Hallo… ini
program pertamaku!’);
Writeln(var_teks,’Contoh file
teks’);
Writeln(var_teks,’---------------------------------------’);
Close(var_teks);
End.
Membaca
File Text
Urutan Prosesnya :
a. Mendeklarasikan
variabel file
Var NmVar:TEXT;
b. Menghubungkan variabel file dengan nama file
Assign (NmVar, nama
file)
c. Membaca isi file dan menampilkannya di layar
While not eof (NmVar)
do
Begin
Read / readln ( NmVar,
data item 1, data item 2, … );
Write / writeln ( data
item1, data item 2, … );
End;
d. Menutup file
Close (NmVar);
Program
membaca_file_HALLO_TXT;
Uses crt;
Var var_teks:TEXT;
Pesan:string;
Begin
Clrscr;
Assign(var_teks,’Hallo.txt’);
Reset(var_teks);
While not eof
(var_teks) do
Begin
Readln ( var_teks,
pesan );
Writeln (pesan);
End;
Close(var_teks);
End.
Menambah
isi File Text
Urutan Prosesnya :
a. Mendeklarasikan
variabel file
Var NmVar:TEXT;
b. Menghubungkan variabel file dengan nama file
Assign (NmVar, nama
file)
c. Menambah isi file
Append(NmVar)
4. Menampilkannya di layar
Write / writeln (NmVar,
data item1, data item 2, …)
5. Menutup file
Close (NmVar);
Program
menambah_isi_file_HALLO_TXT;
Uses crt;
Var var_teks:TEXT;
Pesan:string;
Begin
Clrscr;
Assign(var_teks,’Hallo.txt’);
Append(var_teks);
Writeln(var_teks,’Ini penambahan
data file hallo.txt!’);
Writeln(var_teks,’Contoh file
teks’);
Writeln(var_teks,’-----------------------------------------’);
Close(var_teks);
0 Response to "File (Berkas) Pada Pascal"
Post a Comment