CONTOH PROGRAM PROLOG SCORE UTS DAN UAS

score:- nl,nl,

write('Nama : '),read(Nama),

write('NPM : '),read(Npm),

write('Kelas : '),read(Kelas),

nl,write('============'),nl,

write('nama : '),write(Nama),nl,

write('NPM : '),write(Npm),nl,

write('Kelas : '),write(Kelas),nl,

nl,write('============'),nl,

write('Nilai UTS : '),read(Uts),

write('Nilai UAS : '),read(Uas),

nl,write('============'),nl,

T is ((0.7*Uts)+(0.3*Uas)),

write('Nilai Akhir : '),write(T),nl,

write('Nilai Akhir : '),

(T>=90->write('A');

T>=70->write('B');

T>=50->write('C');

T>=20->write('D');

T>=0->write('E')).

PENJELASAN :

nl berfungsi sama dengan tombol enter

WRITE berfungsi masukan dan keluaran (I/O atau Input/Output) dalam Prolog

READ digunakan untuk menerima masukan dari keyboard

write('nama : '),read(Nama),

write('NPM : '),read(Npm),

write('Kelas : '),read(Kelas),

nl,write('============'),nl,

Fungsi di atas menyatakan pada write('Nama : '),read(Nama), wirte mencetak kata Nama dan meminta inputnya lalu di terima dan di baca oleh read,pada NPM dan Kelas fungsinya sama dengan Nama. Lalu pada perintah nl,write('============'),nl, berfungsi memberikan baris ke bawah dan mencetak tanda ===. Selanjutnya

write('nama : '),write(Nama),nl,

write('NPM : '),write(Npm),nl,

write('Kelas : '),write(Kelas),nl,

nl,write('============'),nl,

menjelaskan bahwa write mengoutput hasil yang di input untuk nama/NPM/Kelas dan selanjutnya di cetak lagi hasilnya dengan perintah write. Lalu mencetak lagi nl,write('============'),nl, tanda =====,

Lalu pada

write('Nilai UTS : '),read(Uts),

write('Nilai UAS : '),read(Uas),

nl,write('============'),nl,

T is ((0.7*Uts)+(0.3*Uas)),

write('Nilai Akhir : '),write(T),nl,

write('Nilai Akhir : '),

(T>=90->write('A');

T>=70->write('B');

T>=50->write('C');

T>=20->write('D');

T>=0->write('E')).

Fungsi ini menyatakan write mencetak kata Nilai UTS dan meminta input selanjutnya di terima dan di baca oleh read dengan variable Uts, lalu menyatakan write mencetak kata Nilai UAS dan meminta input selanjutnya di terima dan di baca oleh read dengan variable Uas. Selanjutnya program mencetak  tanda == lalu selanjutnya hasil yang di input tersebut di hitung dengan perintah :

T is ((0.7*Uts)+(0.3*Uas)),

write('Nilai Akhir : '),write(T),nl,

write('Nilai Akhir : '),

(T>=90->write('A');

T>=70->write('B');

T>=50->write('C');

T>=20->write('D');

T>=0->write('E')). Menyatakan variable T= 0.7 di kali dengan  input data Uts,lalu 0.3 di kali juga dengan nilai input data Uas lalu hasilnya dari perhitungan Uts dan Uas tersebut di jumlahkan. Lalu program memasukan data yang telah di perhitungan tadi dan mencetak kata Nilai Akhir dan mencetak output yang diproses sebelumnya . lalu jika nilai lebih kecil besar sama dengan dari 90 maka A dan selanjutnya untuk  T>=70->write('B'); T>=50->write('C'); T>=20->write('D'); sama car abaca programnnya dengan >=90.