Contoh Program File Sederhana
Berikut Source Code Program:
Program filee;
Uses Crt;
Var
tes :
Text;
nama,nim : String;
no,shift,pilih,i : byte;
Tanya
: Char;
Begin
Repeat
ClrScr;
writeln('-------------------------------');
Writeln('| Program File Text Sederhana |');
Writeln('-------------------------------');
Writeln('| 1. Masukan Data Anda
|');
Writeln('| 2. Lihat Data
|');
Writeln('| 3. Hapus Data
|');
Writeln('| 4. Keluar
|');
Writeln('|------------------------------|');
Write(' Pilihan Anda : ');Readln(Pilih);
Case Pilih Of
1
: Begin clrscr;
Assign(tes,'praktikum.txt');
rewrite(tes);
Repeat
inc(i);
writeln(' Data - ',i);
writeln(' -------------------------------------');
write(' Nama : ');
readln(nama); writeln(tes,nama);
write(' NIM : ');
readln(nim); writeln(tes,nim);
write(' Shift : ');
readln(shift);writeln(tes,shift);
write(' No. Meja : '); readln(no);
writeln(tes,no);
writeln(tes,' ');
Write(' Memasukan Lagi (Y/T) : '); readln(tanya);
writeln(' -------------------------------------');
writeln;
Until UpCase(tanya) = 'T';
Close(tes);
End;
2
: Begin clrscr;
Assign(tes,'praktikum.txt');
reset(tes);
i:= 0;
while not eof(tes) do
begin
inc(i);
readln(tes,nama); readln(tes,nim);
readln(tes,shift);
readln(tes,no);
readln(tes);
writeln(' Data - ',i);
writeln(' -----------------------------------');
writeln(' Nama : ',nama);
writeln(' NIM : ',nim);
writeln(' Shift : ',shift);
writeln(' No. Meja :
',no);
writeln('
-----------------------------------');
writeln;
end; readln;
End;
3
: Begin clrscr;
write(' Data akan dihapus [y/t] : '); readln(tanya);
if upcase (tanya) = 'Y' then
Assign(tes,'praktikum.txt');
erase(tes);
End;
else End;
until pilih=4;
End.
