Program Operasi File untuk Menyimpan Alamat

Data yang disimpan pada tipe-tipe data yang telah dipelajari sebelumnya bersifat sementara. Artinya, seaktu program selesai dijalankan, data tersebut akan hilang. Pada banyak aplikasi, data yang dimasukkan, meskipun program telah selesai, harus disimpan. Aplikasi pemesanan tiket kereta api atau transaksi perbankan adalah beberapa contoh. Data pesanan tiket penumpang dan data data transaksi keuangan yang terjadi harus tetap disimpan, sampai diinginkan dihapus. Untuk memecahkan masalah penyimpanan data yang seperti itu digunakan file. Data masukkan yang dibaca dari keyboard dapat disimpan dalam sebuah file (file output), sebagai ganti ditampilkan pada layar seperti yang telah dipelajari. Data pada file juga dapat dibaca lagi (file input)

Berikut ini merupakan contoh program operasi file untuk menyimpan data alamat yang diinputkan dalam sebuah program:

Program FileTeman;

Uses Crt;
Var
JenisFile    : Text;
Nama         : String;
ALamat       : String;
Telp         : String;
Tanya        : Char;
Pilihan      : ShortInt;

Begin
Repeat
ClrScr;
Writeln;
Writeln(‘          Pilih salah satu menu :’);
Writeln(‘          ——————————‘);
Writeln(‘              1. Membuat File Data Baru’);
Writeln(‘              2. Memasukan Data Baru’);
Writeln(‘              3. Menampilkan Data’);
Writeln(‘              4. Keluar’);
Writeln(‘          ——————————‘);
Write(‘          Pilihan Anda : ‘); Readln(Pilihan);

Case  Pilihan Of

1 : Begin
Assign(JenisFile,’Alamat.dat’);
ReWrite(JenisFile);
Close(JenisFile);
Writeln(‘File data berhasil dibuat !’);
readkey;
End;

2 : Begin
Assign(JenisFile,’Alamat.dat’);
Append(JenisFile);
Repeat
ClrScr;
Write(‘ Nama         : ‘);Readln(Nama);
Write(‘ ALamat       : ‘);Readln(Alamat);
Write(‘ Telepon      : ‘);Readln(Telp);
Writeln(JenisFile,Nama);
Writeln(JenisFile,Alamat);
Writeln(JenisFile,Telp);
Writeln;
Write(‘Apakah mau memasukan data lain (Y/T): ‘);
Tanya := ReadKey;
Until UpCase(Tanya) = ‘T’;
Close(JenisFile);
Writeln(‘Data telah dimasukan !’);
End;

3 : Begin
Assign(JenisFile,’Alamat.dat’);
Reset(JenisFile);
Repeat
Readln(JenisFile,Nama);
Readln(JenisFile,Alamat);
Readln(JenisFile,Telp);
ClrScr;
Writeln(‘ Nama         : ‘,Nama);
Writeln(‘ ALamat       : ‘,ALamat);
Writeln(‘ Telepon      : ‘,Telp);
Writeln;

If Nama = ” Then
Tanya := ‘T’
Else
Begin
Write(‘Apakah melihat data berikut (Y/T) : ‘);
Tanya := ReadKey;
End;
Until UpCase(Tanya) = ‘T’;
Close(JenisFile);
End;

Else
End;
Until Pilihan=4;

End.