Membuat File Text di Pascal

Kali ini Saya Akan Memberikan Tutorial/ Cara Membuat File Text di Bahasa Pemrograman Pascal, kali ini saya menggunakan Aplikasi Free Pascal untuk mengefiseinkan waktu kita langsung saja.....
Bagi Anda Yang belum mempunyai Aplikasi pascalnya Silahkan Klik Link Dibawah Ini.
Download Free Pascal For Windows

1. Buka Aplikasi Pascal
2. Masukan Source Codenya


program Data_MHS;

uses crt;
var
   pil    :char;
   data   :text;
   nama,npm,isi  :string;
   a      :byte;


procedure menu1;
begin
   assign(data,'D:\MHS.txt');
   rewrite(data);
   clrscr;
   writeln('<< Buat File >>');
   writeln;
   writeln('File berhasil dibuat di D:\MHS.txt');
   readkey;
   close(data);
end;

procedure menu2;
begin
   assign(data,'D:\MHS.txt');
   append(data);
   clrscr;
   writeln('<< Input Data >>');
   writeln;
   write  ('Nama : ');readln(nama);
   writeln(data,nama);
   write  ('NPM  : ');readln(npm);
   writeln(data,npm);
   close(data);
end;

procedure menu3;
begin
   assign(data,'D:\MHS.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('NPM  : ',isi);
         writeln;
      end;
      inc(a);
   end;
   close(data);
   readkey;
end;

procedure menu4;
begin
   assign(data,'D:\MHS.txt');
   erase(data);
   clrscr;
   writeln('<< Hapus File >>');
   writeln;
   writeln('File berhasil dihapus');
   readkey;
end;
procedure menu5;
begin
    clrscr;
    writeln(' THIS PORGRAM CREATED BY: ');
    writeln('<<  BUDIMAN TULUS RAHARJA  >> ');
    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('5. Tentang ');
   writeln('0. Keluar');
   writeln;
   write  ('Pilihan : ');pil:=readkey;
   case pil of
     '1':menu1;
     '2':menu2;
     '3':menu3;
     '4':menu4;
     '5':menu5;
   end;
   until pil='0';
end.




3. Maka Hasilnya Akan Seperti Ini


Selamat Mencoba
Terima Kasih Semoga Postingan Ini Bermanfaat Untuk Anda Semua :)

Previous
Next Post »