Page 112 - MODUL PDKP'21

Modul 4 – Interface, File dan Kursor 2021

Pseudocode Sourcode
Berkasteks:text Berkasteks:text;

Deskripsi Algoritma
Mulai Begin
Penamaan(berkasteks,’memo.txt’) Assign(berkasteks,’memo.txt’);
Selesai End.

 Pembukaan (reset)
Pada bahasa pascal, file teks bisa dibuka untuk dibaca dengan memanggil
prosedur reset, dibuka untuk ditulis (Isi file sebelumnya akan dihapus) dengan
prosedur rewrite dan dibuka untuk ditambah dengan append.
Di antara berbagai prosedur tersebut, prosedur pembukaan yang pertama
kali adalah prosedur reset. Karakteristik penting mengenai prosedur reset
adalah prosedur ini digunakan untuk membuka file yang telah ada
sebelumnya.
Sebagai perbandingan, buatlah sebuah file teks terlebih dahulu

menggunakan software bernama notepad (Dengan nama fisis dan isi seperti
pada contoh).
Kemudian cobalah contoh di bawah ini :

Tabel 4.4 Notepad
Isi file memo.txt
ART FLORIST

Contoh penggunaannya pada tabel dibawah ini :
Tabel 4.5 Pembukaan
Pseudocode Sourcecode
Program pembukaan Program pembukaan;
{Program ini digunakan untuk pembukaan file}

Deklarasi Var
Berkasteks:text Berkasteks:text;

Deskripsi Algoritma
Mulai Begin
Penamaan(berkasteks,’memo.txt’) Assign(berkasteks,’memo.txt’);
Pembukaan(berkasteks) Reset(berkasteks);
Selesai End.

 Pembacaan
Untuk jenis teks, file yang dibuka dengan prosedur reset bisa dibaca
read
menggunakan syntax atau readln. Proses pembacaan dilakukan seolah-
olah ada pengguna yang mengetikkan suatu masukan melalui keyboard.

Pembacaan dari file dengan syntax read atau readln terlebih dahulu
menuliskan nama (logis) dari file yang hendak dibaca sebelum menuliskan
nama variabel yang menampung hasil pembacaan tersebut dengan
menggunakan tanda koma sebagai pemisah.

Praktikum Dasar Komputer dan Pemrograman 2021 IV-101