Finite State Automata : Implementasi Deterministic Finite Automata dengan C++

Implementasi Deterministic Finite Automata (DFA) dengan Bahasa Java

Kupas Tuntas Deterministic Finite Automata (DFA) | Teori Bahasa & Automata

Studi kasus Deterministic Finite Automata (DFA) dengan Bahasa C++

Deterministic Finite Automata dengan Studi Kasus C++ dilengkapi Penjelasan Coding (Source Code)

Teori Bahasa Otomata : Deterministic Finite AUtomata (DFA) di sertai Studi kasus di C++

Teori Bahasa Automata - Simulasi Deterministic Finite Automata (DFA) dengan bahasa Java

Tutorial Deterministik Finite Automata (DFA) dengan Bahasa Pascal

Materi Lengkap Deterministic Finite Automata (DFA) + Studi Kasus + Penjelasan script program

Teori Bahasa & Automata : Contoh Mesin DFA (part 3)

Teori bahasa dan Automata :  Contoh Mesin Deterministic Finite Automata (DFA)  ( part 3 )
- Buat teman-teman yang mengambil kuliah Teori Bahasa dan Automata, kalau di part 1 dan part 2 kita membuat program untuk membuat file dan memasukkan datanya, serta untuk menampilkan isi file tersebut maka pada bagian ini kita membuat program untuk mengecek apakah isi file tersebut diterima atau ditolak oleh mesin yang sudah kita rancang.
 - 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 dfa;
type
   sigma='A'..'C';
   state=(s0,s1,s2);

var
   transitiontable : array[state,sigma] of state;
   finalstate : set of state;
   fileteks : text;
   namafile : string[64];
   isibaris : string;

function delta(s:state; c:sigma) : state;
begin
   delta := transitiontable[s,c];
end;

function deltabar(s:state) : state;
var
   t : state;
   i,k : integer;
begin
   t :=s;
   i :=1;
   k :=length(isibaris);
   for i:=1 to k do
      begin
         t :=delta(t,isibaris[i]);
         read(isibaris[i]);

      end;
   deltabar :=t;
end;

function accept : boolean;
begin
   accept := deltabar(s0) in finalstate
end;

procedure initialize;
begin
   finalstate := [s2];
   transitiontable[s0,'A'] := s1;
   transitiontable[s0,'B'] := s0;
   transitiontable[s0,'C'] := s2;
   transitiontable[s1,'A'] := s2;
   transitiontable[s1,'B'] := s0;
   transitiontable[s1,'C'] := s0;
   transitiontable[s2,'A'] := s0;
   transitiontable[s2,'B'] := s0;
   transitiontable[s2,'C'] := s1;
end;

begin

   write('Masukkan Nama File : '); 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;
  writeln ('Apakah Diterima [ ENTER ]: ');
   initialize;
   if accept then
      write( 'ACCEPTED ( DITERIMA )')
   else
      write('REJECTED (DITOLAK ) ') ;

readln;
readln;
end.






Lihat 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





Stay cool in Gudang Hikmah

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

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.