Program Pascal - Buat File, Lihat File, Hapus File

Tugas Praktikum Ke-7

Nama               : Achmad Kharis

NIM                : J1F114002

Kelompok       : 3 (Tiga)

1.    Screenshot Program

Gambar 1.1 Menu Utama

Gambar 1.2 Buat File.

Gambar 1.3 Input data.

Gambar 1.4 Output Hasil.

Gambar 1.5 Hapus file.

2.  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 UTAMA');       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.