Thursday, November 1, 2012

Contoh Mesin DFA: Melihat Isi File Teks di Pascal (part 2)


Teori bahasa dan Automata :  Contoh Mesin Deterministic Finite Automata (DFA)  ( part 2 )
- Buat teman-teman yang mengambil kuliah Teori Bahasa dan Automata, kalau di part 1 kita membuat program untuk membuat file dan memasukkan datanya, maka pada bagian ini kita membuat program untuk mengakses file yang sudah kita buat tadi dan menampilkan isi file tersebut.
- Menggunakan program pascal.
- Bila dijalankan maka akan tampil seperti gambar diatas. Bagian yang di kotakin warna kuning adalah input masukan berupa nama file dan lokasi penyimpanannya.
- Apabila ada yang kurang jelas silahkan hubungi email /FB/YM saya. Insya Allah,saya bantu.
- Semoga bermanfaat.

Program Lihat_Data;
uses crt;
var
  fileteks : text;
  jawab : char ;
  namafile : string[64];
  isibaris : string;

begin
   clrscr;
   writeln('Masukkan Nama File Yang Akan Dilihat: ');
   writeln('Lengkap Dengan direktorinya,contoh C:\data.pas'); read(namafile);
   assign(fileteks,namafile);
   reset(fileteks);
   writeln('Isi File Tersebut Adalah sbb : ');
   while not eof(fileteks) do
     begin
       readln(fileteks,isibaris);
       writeln(isibaris);
     end;
  close(fileteks);
  readln;
  readln;
end.

Lihat juga :
- Mesin DFA (Part 1 ) : Membuat File penyimpanan bertipe teks dan mengisi file dengan input masukan menggunakan Pascal

Stay cool in Gudang Hikmah

No comments:

Post a Comment