Dalam pertemuan
ini akan mempelajari tentang Jenis File
& Operasinya, Pendeklarasian pada file, Procedure dan fungsi standart untuk
semua tipe file, Menangani Kesalahan File (I/O) Error, Membuat file text,
Menambah data, Menampilkan semua data.
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 :
1. File Text
2. File bertipe
3. File tidak bertipe
File Text
1. Karakteristik
·
Berisi data karakter ASCII
·
Tiap record boleh memiliki panjang yang bervariasi
·
Setiap record diakhiri tanda EOL (end of Line)
·
Hanya dapat diakses secara sequensial (berurutan).
·
Isi filenya dapat dilihat oleh perintah dos type atau editor
text
2. Membuat file text
Urutan Prosesnya :
1. Mendeklarasikan
variabel file
Var NmVar:TEXT;
Dengan
:
NmVar : Nama variabel file text
2. 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.
3. Membuat file text
aktif
Rewrite(NmVar);
Dengan
:
NmVar : Nama variabel file text yang sudah di- assign
4. 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
5. Menutup file
Close (NmVar);
Dengan:
NmVar : Nama variabel file
text
Contoh :
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.
3. Membaca File TextUrutan Prosesnya :
1. Mendeklarasikan
variabel file
Var NmVar:TEXT;
2. Menghubungkan
variabel file dengan nama file
Assign (NmVar, nama file)
3. 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;
4. Menutup file
Close (NmVar);
Contoh :
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.
4. Menambah isi File Text
Urutan Prosesnya :
1. Mendeklarasikan
variabel file
Var NmVar:TEXT;
2. Menghubungkan
variabel file dengan nama file
Assign (NmVar, nama file)
3. Menambah isi file
Append(NmVar)
4.
Menampilkannya di layar
Write / writeln (NmVar, data
item1, data item 2, …)
5.
Menutup file
Close (NmVar);
Contoh :
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);
End.
1. Anonim, “Algoritma & Pemrograman II”,
Penerbit Gunadarma, Jakarta, 1990
2. Bryon,
Goffried, “Programming with PASCAL”,
Schaum Series, New York, 1986
3. Prather, Ronald E., “Problem Solving Principle : Programming with Pascal”,
Prentice Hall, New Jersey, 1982
4. Dumairy, Matematika Terapan untuk Bisnis &
Ekonomi Press (BPFE Yogyakarta)
5. Yogianto H.M, Turbo Pascal 5.0 Penerbit Andi Offset,
Yogyakarta.
6. Ediman Lukito, Belajar Sendiri Pemrograman dengan Turbo Pascal 7.0
7.
Ir. P. Insap Santosa, Turbo Pascal
versi 5.0 dan 5.5, Elexmedia Komputindo
Tidak ada komentar:
Posting Komentar