Nurul Maulida

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

Begin
Repeat
ClrScr;
Writeln;
Writeln('          MENU UTAMA');
Writeln(' -----------------------------');
Writeln('   1. Membuat File Data       ');
Writeln('   2. Memasukan Data          ');
Writeln('   3. Menampilkan Data        ');
Writeln('   0. Keluar                  ');
Writeln(' -----------------------------');
Write('Menu pilihan : '); Readln(Pilihan);

Case  Pilihan Of

1 : Begin
Assign(JenisFile,'Alamat.dat');
ReWrite(JenisFile);
Close(JenisFile);
Writeln('File data berhasil dibuat !');
readln;
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 !');
readln;
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 ingin melihat data berikut (Y/T) : ');
Tanya := ReadKey;
End;
      Until UpCase(Tanya) = 'T';
Close(JenisFile);
End;

Else
End;
Until Pilihan=0;

End.



OUTPUT :