Page 113 - MODUL PDKP'21

Modul 4 – Interface, File dan Kursor 2021

Berikut ini adalah format penulisannya :

Readln(nama_logis,’nama_variabel’);

Contoh penggunaannya pada tabel di bawah ini :

Tabel 4.6 Pembacaan
Pseudocode Sourcecode
Program PembacaanFile_1baris Program PembacaanFile_1baris
{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); // buka file untuk dibaca
Pembukaan(berkasteks) Readln(berkasteks,pesan); //baca string dari file
Baca(berkasteks,pesan) Writeln(pesan); // tuliskan string yang dibaca
Tulis(pesan) dari file pada layar
Selesai Readln;
End.

Apabila isi file yang akan dibaca terdiri dari beberapa baris, maka

pseudocode dan sourcecode yang digunakan sebagai berikut :
Tabel 4.7 Baris Banyak
Pseudocode Sourcecode
Program PembacaanFile_Lebih1Baris Program PembacaanFile_Lebih1Baris;
{Program ini digunakan untuk
pembacaan file}

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

Deskripsi Algoritma
Mulai Begin
Penamaan(berkasteks,’memo.txt’) Assign(berkasteks,’memo.txt’);
Pembukaan(berkasteks) Reset(berkasteks);
Selama bukan akhir While not eof(berkasteks)
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.

Praktikum Dasar Komputer dan Pemrograman 2021 IV-102