Page 93 - Modul Daskom 2020

Modul 4 – Interface, File dan Kursor 2020

Tabel 4.7 Baris Banyak
Pseudocode Source code
Program pembacaan Program pembacaan;
{Program ini digunakan untuk pembacaan file}

Deklarasi Var
Berkasteks:text Berkasteks:text;
Pesan:string Pesan:string;

Deskripsi Algoritma Begin
Mulai Assign(berkasteks,’memo.txt’);
Penamaan(berkasteks,’memo.txt’) Reset(berkasteks);
Pembukaan(berkasteks) While not eof(berkasteks)
Selama bukan akhir berkas(berkasteks) Do begin
Lakukan mulai Readln(berkasteks,pesan);
Baca(berkasteks,pesan) Writeln(pesan);
Tulis(pesan) End;
Selesai Close(berkasteks);
Tutup(berkasteks) Readln ;
Selesai End .

While not eof adalah bentuk pengulangan sampai data habis. While not eof biasanya
digunakan saat kita tidak mengetahui baris data yang telah dibuat.

▪ Penulisan dan Penutupan
Seperti yang telah disebutkan sebelumnya, prosedur yang digunakan untuk membuka file
untuk ditulis adalah prosedur rewrite, bukan prosedur reset seperti pada pembacaan. Sintaks
yang digunakan untuk menulis file teks adalah write atau writeln.
Tata cara penulisan rewrite dan write pada penulisan memiliki aturan yang sama dengan
penulisan sintaks reset dan read pada pembacaan. Selain itu, penulisan juga tidak akan berhasil
apabila setelah ditulis, file tidak ditutup dengan sintaks close. Setelah file ditutup, sistem
operasi akan memastikan bahwa file dipindahkan ke media penyimpanan, sebelum file
ditutup mungkin belum dituliskan ke media penyimpanan.

Tabel 4.8 Penulisan Sintaks
Rewrite(nama_logis);
Writeln(nama_logis,nama_variabel);
Close(nama_logis);

Contoh penggunaannya pada tabel dibawah ini :

Tabel 4.9 Penulisan
Pseudocode Source code
Program penulisan Program penulisan;
{Program ini digunakan untuk penulisan file}
Var
Deklarasi Berkasteks:text;
Berkasteks:text Pesan:string;
Pesan:string
Begin
Deskripsi Algoritma Assign(berkasteks,’memo.txt’);
Mulai Rewrite(berkasteks);
Penamaan(berkasteks,’memo.txt’) Write (‘Masukkan NIM Anda:’);
Tulis kembali(berkasteks) readln(pesan);
Baca(pesan) Writeln(berkasteks,pesan);
Tulis(berkasteks,pesan) Close(berkasteks);

Praktikum Dasar Komputer & Pemrograman 2020 IV-91