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.
|
Minggu, 03 Mei 2015
PROGRAM FILE
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar