Laporan Akhir Prolog tentang Pembuatan Menu

Rabu, November 10, 2010 | Posted by Sulimah


Untuk membuat program pilihan MENU menggunakan Prolog yaitu dengan cara sebagai berikut :

Tulis coding dibawah ini kedalam notepad.
 

Jika sudah, buka program prolognya kemudian consult dengan mencari nama file yang sudah disimpan yaitu menu.pl

Jika muncul “c:/prolog/menu.pl compiled 0 …..” maka coding berhasil. Tapi jika keluar selain itu, maka coding error dan akan diberitahu apa yang error dengan tanda “warning/error”.

Kemudian masukkan pilihan sesuai yang kita inginkan. Setiap pilihan atau pengisian data diakhiri denga tanda titik (.)


Logika Coding

menu:-
Pemanggilan nama file pada saat di consult di program prolog.

write('MENU'),nl,
write('1.BIODATA'),nl,
write('2.LUAS SEGITIGA'),nl,
write('3.EXIT'),nl,
write menampilkan langsung pilihan di editor prolog. nl untuk pergantian baris (enter). Tanda kutip tunggal (‘) untuk membedakan penulisan untuk secara langsung di editor prolog.

write('MASUKKAN PILIHAN : '),read(M),nl,
(M=1,nl,
read merupakan fungsi untuk membaca bahwa M adalah pemanggilan dari pilihan pertama yaitu Biodata.

write('BIODATA'),nl,
write('Masukkan Nama : '),read(NAMA),nl,
write('Masukkan NPM : '),read(NPM),nl,
write('Nama kamu : '),write(NAMA),nl,
write('NPM kamu : '),write(NPM),nl,
menu;
M=2,nl,
write('Luas Segitiga'),nl,
write('Masukkan Alas : '),read(A),nl,
write('Masukkan Tinggi : '),read(T),nl,
L is A*T/2,
write('LUAS SEGITIGA : '),write(L),nl,
Huruf L adalah fungsi yang nantinya akan dipanggil oleh write(L) yang sudah terisi rumus matematika luas segitiga yaitu alas kali tinggi bagi 2. is pernyataan adalah untuk rumus yang dipakai.

menu;
M=3,nl,
write('GOOD BYE'),nl).
Tanda titik pada akhir coding menandakan bahwa program telah berakhir.


Adapun outputnya adalah seperti printscreen dibawah ini :


 

Read Users' Comments (0)

Contoh Program MySql Data Mahasiswa

Selasa, November 09, 2010 | Posted by Sulimah


Untuk membuat database mahasiswa seperti menggunakan field nama, NPM, kelas dengan MySQL yaitu yang pertama dibuat nama database misalnya create database kemudian nama database contoh imah; Lalu, use imah untuk menggunakan database tersebut. Kemudian buat table, create table imah1 (NPM char (8) not null, nama varchar (20), kelas varchar (8), primary key (NPM)); kemudian enter maka query akan terbentuk. Dengan NPM sebagai primary key maksudnya adalah field yang unik, data yang tidak bisa disamakan dengan data yang lain, maka dari itu disebut primary key.

Lalu desc imah; untuk menampilkan field table yang digunakan. Maka akan terlampir daftar table yang berisi field, type dan dimana yang termasuk null atau primary key.

Kemudian masukkan datanya kedalam table imah1. Seperti insert into imah1 values (‘11108883’,’Salimah’,’3 KA 14’); maka akan terbentuk query. Kemudian tampilkan table yaitu select * from imah1; enter maka akan terlihat isian table. Lalu masukkan data kedua dengan cara yang sama yaitu insert into imah1 values (‘10108959’,’Herawati’,’3 KA 14’); enter kemudian select * from imah1; lagi.

Lalu untuk mengganti data yaitu menggunakan perintah “update” dan yang diganti adalah nama mahasiswa. Hal yang pertama dilakukan yaitu update imah1 set nama=’Sulimah’ where npm=’11108883’; enter kemudian isi data telah ter-update. Untuk menampilkan hasil akhir table yaitu dengan cara select * from imah1; enter dan itulah hasil akhir table.

 
 

Read Users' Comments (3)

Contoh Program Sederhana Prolog

Selasa, November 09, 2010 | Posted by Sulimah


Prolog Perulangan Segitiga Bintang

loopa(A,B):-
(A>0,
loopb(B),nl,
C is A-1,
D is B+1,
loopa(C,D);
A=0,nl).

loopb(D):-
( D>0,write('*'),
B is D-1,
loopb(B);
D=0,write('')).
menu :-
write('-------MENU-------'),nl,
write('1. Biodata'),nl,
write('2. Segitiga'),nl,
write('3. Keluar'),nl,
write('Masukkan pilihan : '), read(PIL), nl,

(PIL=1,nl,
write('------BIODATA------'),nl,
write('Nama saya : '),read(A),nl,
write('NPM saya : '),read(B),nl,
write('-------------------'),nl,
write('Nama saya : '),write(A),nl,
write('NPM saya : '),write(B),nl,

menu;
PIL=2,nl,
write('Nilai perulangan : '),read(A),loopa(A,1),

menu;
PIL=3,nl,
write('Makasih'),nl).

 


Prolog Perulangan Segitiga Angka

loopa(A,B):-
(A>0,
loopb(B,1),nl,
C is A-1,
D is B+1,
loopa(C,D);
A=0,nl).

loopb(X,Z):-
( X>0,write(Z),
Y is X-1,
W is Z+1,
loopb(Y,W);
X=0,write('')).
menu :-
write('-------MENU-------'),nl,
write('1. Biodata'),nl,
write('2. Segitiga'),nl,
write('3. Keluar'),nl,
write('Masukkan pilihan : '), read(PIL), nl,

(PIL=1,nl,
write('------BIODATA------'),nl,
write('Nama saya : '),read(A),nl,
write('NPM saya : '),read(B),nl,
write('-------------------'),nl,
write('Nama saya : '),write(A),nl,
write('NPM saya : '),write(B),nl,

menu;
PIL=2,nl,
write('Nilai perulangan : '),read(A),loopa(A,1),

menu;
PIL=3,nl,
write('Makasih'),nl).

 
















Prolog Rumus Matematik

menu :-
write('-------MENU-------'),nl,
write('1. Luas Segitiga'),nl,
write('2. Volume Balok'),nl,
write('3. Volume Kubus'),nl,
write('4. EXIT'),nl,
write('Masukkan pilihan : '), read(PIL), nl,

(PIL=1,nl,
write('Luas Segitiga'),nl,
write('Masukkan Alas : '),read(A),nl,
write('Masukkan Tinggi : '),read(T),nl,
L is A*T/2,
write('LUAS SEGITIGA : '),write(L),nl,

menu;
PIL=2,nl,
write('Volume Balok'),nl,
write('Masukkan Panjang : '),read(P),nl,
write('Masukkan Lebar : '),read(L),nl,
write('Masukkan Tinggi : '),read(T),nl,
V is P*L*T,
write('VOLUME BALOK : '),write(V),nl,

menu;
PIL=3,nl,
write('Volume Kubus'),nl,
write('Masukkan Sisi : '),read(S),nl,
V is S*S,
write('VOLUME KUBUS : '),write(V),nl,

menu;
PIL=4,nl,
write('Makasih'),nl).


=========================================================
* contoh-contoh program kondisi pada prolog :
depan(A, A) :- A < 10.
depan(A, B) :-
A1 is A // 10,
depan(A1, B1),
B is B1.


output :
Input : ?- depan(256, X).
Output : Yes. X = 2.

^ Contoh lain :
kondisi:-nl,
write(‘masukkan berat badan anda :’),read(R),nl,
X if R>40->
write(‘ideal’);
write(‘kurang ideal’).



Sumber :
http://rachmatkull.blogspot.com/2010/10/prolog-lp.html







Read Users' Comments (1)Comment

Langganan: Postingan (Atom)