Page 94 - Modul Daskom 2020

Modul 4 – Interface, File dan Kursor 2020

Tutup(berkasteks) End.
Selesai

Pada file teks, isi file sebelumnya hilang dan digantikan dengan masukan yang baru. Jika
penulisan ingin dilakukan tanpa menghilangkan isi yang sebelumnya telah ada pada file,
maka diperlukan satu primitif lagi, yakni penambahan.

▪ Penambahan
Pada file teks, penambahan data dapat dilakukan dengan prosedur pembukaan append,
sehingga misalnya pada contoh sebelumnya, cukup dengan mengubah prosedur rewrite
menjadi append, penambahan dapat dilakukan. Berikut ini adalah format penulisannya :

Append(nama_logis);

Contoh penggunaannya pada tabel berikut ini :
Tabel 4.10 Penambahan
Pseudocode Source code
Program penambahan Program penambahan;
{Program ini digunakan untuk penambahan file}

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

Deskripsi Algoritma Begin
Mulai Assign(berkasteks,’memo.txt’);
Penamaan(berkasteks,’memo.txt’) Append(berkasteks);
Tambah(berkasteks) Writeln(‘Jumlah uang yang ditabung:’);
Baca(pesan) Readln(pesan);
Tulis(berkasteks,pesan) Writeln(berkasteks,pesan);
Tutup(berkasteks) Close(berkasteks);
Selesai End .

Praktikum Dasar Komputer & Pemrograman 2020 IV-92