- 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 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. |
