Program Penyimpanan dengan File

• Nama : Program Penyimpanan dengan File
• Bahasa : Pascal
• Software : Free Pascal IDE
• Deskripsi : Program ini menggunakan terdiri dari 4 submenu dan menu keluar. Submenu pertama yaitu buat file, setelah submenu ini dipilih maka program akan membuat file bernama data.txt pada local disk d atau lebih tepatnya di "D:\data.txt". Kemudian submenu kedua yaitu input data, di sini user akan menginputkan nama dan nim yang kemudian akan disimpan ke dalam file. Data-data yang telah diinputkan pada submenu kedua dapat ditampilkan dengan memilih submenu ketiga, yaitu lihat data. Dan submenu keempat adalah hapus file.
• Screenshot :

 

Gambar 1. Menu awal 
 
Gambar 2. Pembuatan file
 
Gambar 3. Isi file
 
Gambar 4. Penginputan isi data
 
Gambar 5. Isi file
 
Gambar 6. Output data

Gambar 7.Penghapusan file

• Source Code :

uses crt; var   pil    :char;   data   :text;   nama,nim,isi  :string;   a      :byte; procedure menu1;   begin     assign(data,'D:\data.txt');     rewrite(data);     clrscr;     writeln('>> Buat File <<');     writeln;     writeln('File berhasil dibuat di D:\data.txt');     readkey;     close(data);   end; procedure menu2;   begin     assign(data,'D:\data.txt');     append(data);     clrscr;     writeln('>> Input Data <<');     writeln;     write  ('Nama : ');readln(nama);writeln(data,nama);     write  ('NIM  : ');readln(nim); writeln(data,nim);     close(data);   end; procedure menu3;   begin     assign(data,'D:\data.txt');     reset(data);     clrscr;     writeln('>> Lihat Data <<');     writeln;     a:=1;     while not eof(data) do       begin         readln(data,isi);         if a mod 2=1 then           writeln('Nama : ',isi) else             begin               writeln('NIM  : ',isi);               writeln;             end;         inc(a);       end;     close(data);     readkey;   end; procedure menu4;   begin     assign(data,'D:\data.txt');     erase(data);     clrscr;     writeln('>> Hapus File <<');     writeln;     writeln('File berhasil dihapus');     readkey;   end; begin   repeat     clrscr;     writeln('>> Menu <<');     writeln;     writeln('[1] Buat File');     writeln('[2] Input Data');     writeln('[3] Lihat Data');     writeln('[4] Hapus File');     writeln('[0] Keluar');     writeln;     write  ('Pilihan : ');pil:=readkey;     case pil of       '1':menu1;       '2':menu2;       '3':menu3;       '4':menu4;     end;   until     pil='0'; end.