Contoh Mesin DFA: Simpan File Bertipe teks (.txt) di Pascal (part 1)

Teori bahasa dan Automata :  Mesin Deterministic Finite Automata (DFA)  ( part 1 )
- Buat teman-teman yang mengambil kuliah Teori Bahasa dan Automata.
- Script program untuk menyimpan input masukan kedalam sebuah file ber-extension .txt
- Menggunakan program pascal.
- Bila dijalankan maka akan tampil seperti gambar diatas. Bagian yang di kotakin warna merah adalah input masukan berupa nama file dan data string yang akan dicek di mesin DFAnya nanti.
- Apabila ada yang kurang jelas silahkan hubungi email /FB/YM saya. Insya Allah,saya bantu.
- Semoga bermanfaat.


 Program simpan_data;
uses crt;
var
   filesimpan : text;
   buffer   : string;
   i,a : integer;
   namafile : string[64];

begin
   clrscr;
   i :=1;   a:=1;
   writeln('Program ini di setting seperti NOTEPAD di WINDOWS');
   writeln('Kita bisa memasukkan banyak baris. Untuk pengecekan DFA');
   writeln('Cukup gunakan line 1 saja, langsung ketik misalnya AABAA');
   writeln('Setelah itu tekan [ENTER]. Line 2 nya langsung [ENTER] saja,jangan diisi.');
   writeln;
   writeln('WARNING, Tempat penyimpanan file di setting di C:\ , tapi kalau tidak ditemukan');
   writeln('cobalah search di windows');
   writeln;

   writeln('Nama file untuk menyimpan data : '); readln (namafile);
   assign(filesimpan,'c:\'+namafile+'.txt');
   rewrite(filesimpan);
   writeln;
   readln;
   writeln('Masukkan Data : (Tekan Untuk Selesai');
   writeln;
   write ('GSYAH:\ Line ',a,' : '); readln(buffer);
   for i:=1 to length(buffer) do
       buffer[i] := upcase(buffer[i]);

   while buffer <> '' do
     begin
        a:=a+1;
        writeln(filesimpan,buffer);
        writeln;
        write('GSYAH:\ Line ',a, ' : ');
        readln(buffer);
        for i:=1 to length(buffer) do
            buffer[i] := upcase(buffer[i]);

     end;

   close(filesimpan);
   writeln;
   writeln('Data sudah tersimpan, terima kasih');
   writeln('Kalau tidak ditemukan di C:\, cobalah search nama filenya di windows');
   readln;
end.

Baca Juga :
- Mesin DFA (Part 1 ) : Membuat File penyimpanan bertipe teks dan mengisi file dengan input masukan menggunakan Pascal
- Mesin DFA ( Part 2 ) : Melihat Isi File Bertipe Teks Menggunakan Pascal
- Mesin DFA (Part 3 ) : Mengecek Input Masukan Dalam File Teks Apakah Rejected atau Accepted

Semoga bermanfaat.