Program Filetugas;
Uses Crt;
Var
JenisFile : Text;
Nama,alamat,telp : String;
Tanya : Char;
Pilihan : ShortInt;
Begin
Repeat
ClrScr;
Writeln('+-----------------------------+');
writeln('| PROGRAM FILE |');
writeln('|-----------------------------|');
Writeln('| 1. | Membuat File Data Baru |');
Writeln('| 2. | Memasukan Data Baru |');
Writeln('| 3. | Menampilkan Data |');
Writeln('| 4. | Keluar |');
Writeln('|-----------------------------|');
Writeln('| Pilihan : |');
writeln('+-----------------------------+');
gotoxy(13,9);Readln(Pilihan);
Case Pilihan Of
1 : Begin
Assign(JenisFile,'Alamat.dat');
ReWrite(JenisFile);
Close(JenisFile);
writeln;
writeln;
Writeln('---File Sukses Dibuat---');
readkey;
End;
2 : Begin
Assign(JenisFile,'Alamat.dat');
Append(JenisFile);
Repeat
ClrScr;
writeln('+----------------------------+');
Writeln('| Nama : |');
Writeln('| ALamat : |');
Writeln('| Telepon : |');
writeln('+----------------------------+');
gotoxy(15,2);readln(nama);
gotoxy(15,3);readln(alamat);
gotoxy(15,4);readln(telp);
Writeln(JenisFile,Nama);
Writeln(JenisFile,Alamat);
Writeln(JenisFile,Telp);
Writeln;
Write('Tambah Data Lagi ? (Y/T): ');
Tanya := ReadKey;
Until UpCase(Tanya) = 'T';
Close(JenisFile);
writeln;
Writeln('Data telah dimasukan !');
readkey;
End;
3 : Begin
Assign(JenisFile,'Alamat.dat');
Reset(JenisFile);
Repeat
Readln(JenisFile,Nama);
Readln(JenisFile,Alamat);
Readln(JenisFile,Telp);
ClrScr;
writeln('+----------------------------+');
Writeln('| Nama : |');
Writeln('| ALamat : |');
Writeln('| Telepon : |');
writeln('+----------------------------+');
gotoxy(15,2);writeln(nama);
gotoxy(15,3);writeln(alamat);
gotoxy(15,4);writeln(telp);
writeln;
If Nama = ''Then
Tanya := 'T'
Else
Begin
Write('Lihat Data Selanjutnya ? (Y/T) : ');
Tanya := ReadKey;
End;
Until UpCase(Tanya) = 'T';
Close(JenisFile);
End;
Else
End;
Until Pilihan=4;
End.
2. Screenshot Program
