Single Layer Perceptron dengn Delphi

Tugas pertama dari makul ini begitu bikin galow..whahaha..napa??yups karena saya sendiri baru ribut-ribut malam hari sebelum ngumpul, tapi lumayan lah.. :)

Tugas ini mengenai JST (Jaringan Syaraf Tiruan), banyak banget yang membuatnya, mulai dari bahasa pemrograman java script dan html, php, java, blocky, pascal, c++ dan yang paling banyak menggunakan bahasa pemrograman Delphi.

Konsepnya sangat mudah di mengerti, namun untuk penerapannya ke program begitu bribet.. hehehe.. Pada dasarnya di sini kita hanya menginputkan angkas masing-masing satu dan nol. 

Program ini hanya pengaplikasian dari logika or, and, dan and not. seperti gambar berikut :

gambar 1

Langsung saja ke programnya ya, jadi printscreennya seperti berikut :

gambar 2

Program diagnosa mobil dengan prolog

Pada posting kali ini adalah membuat suatu aplikasi menggunakan prolog, pada program ini ada 2 file yang saling berhubungan yaitu mobil.pl dan kerangka.pl. untuk menjalankannya sama dengan aplikasi lain yang dibuat dengan menggunakan prolog yaitu tinggal run aja, tapi jangan lupa sebelum jalanin filenya harus kamu consult dlu,,

o iya file pertama berisi database dan file yang ke dua merupakan pertanyaannya. Ini bang source code file pertamanya :

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%     kerangka.pl                                                                                        %%

%%     Program Diagnosa Mobil                                                                    %%

%%     kelompok IV                                                                                      %%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

mulai:-

                inisialisasi,

                data_pengamatan,

                aturan(Nomor,Alasan),

                jawaban(Alasan,Jawab),

                write(Jawab),nl,

                write('Aturan yang dipakai adalah '),

                write(Nomor),nl,nl,

                retractall(observation(_)).

mulai:-