Лабораторна робота №2

З предмету: „Штучний інтелект”

Тема: складання експертної системи

Хід роботи

Графічна ілюстрація експертної системи:

Програма:

uses crt;

var m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,

m11,m12,m13,m14,m15,m16,m17,m18,m19,m20,

m21,m22,m23,m24,m25,m26,m27,m28,m29,m30,

m31,m32,m33,m34,m35,m36,m37,m38,m39,m40,

m41,m42,m43,m44,m45:string;

BEGIN

clrscr;

writeln('ctydent(Y/N)?');

readln(m1);

writeln('PZ-031(Y/N)?');

readln(m2);

writeln('z Iv-Fr(Y/N)?');

readln(m3);

writeln('z KEP(Y/N)?');

readln(m4);

writeln('toj hto stvorjue cju prog(Y/N)?');

readln(m5);

writeln('na kolesah(Y/N)?');

readln(m6);

writeln('slavyta(Y/N)?');

readln(m7);

writeln('vasja(Y/N)?');

readln(m8);

writeln('chuh-puh(Y/N)?');

readln(m9);

writeln('ljubut english(Y/N)?');

readln(m10);

{writeln('starosta(Y/N)?');

readln(m11);

writeln('ljubut robutu masag(Y/N)?');

readln(m12);

writeln('wahistu(Y/N)?');

readln(m13);

writeln('progylwuku(Y/N)?');

readln(m14);

writeln('pupsik(Y/N)?');

readln(m15);

writeln('izdut po goram(Y/N)?');

readln(m16);

writeln('spilkyetsja syrgukom(Y/N)?');

readln(m17);

writeln('gycyl(Y/N)?');

readln(m18);

writeln('grae na lohotronah(Y/N)?');

readln(m19);

writeln('puwe ysi konspektu(Y/N)?');

readln(m20);

writeln('robut remontu(Y/N)?');

readln(m21);

writeln('perevelusja na zao4ne(Y/N)?');

readln(m22);

writeln('hvajno v4uvsja(Y/N)?');

readln(m23);

writeln('z Monasturuska(Y/N)?');

readln(m24);

writeln('2-ga div4unka(Y/N)?');

readln(m25);

writeln('wvundjae z Homojy(Y/N)?');

readln(m26);

writeln('mae "kryty" nokia(Y/N)?');

readln(m27);

writeln('ne bere y4ast y SS(Y/N)?');

readln(m28);

writeln('prezudent SRIME(Y/N)?');

readln(m29);

writeln('"ma4o" potoky(Y/N)?');

readln(m30);

writeln('vedyt labu?(Y/N)');

readln(m31);

writeln('G(Y/N)?');

readln(m32);

writeln('wty4nuj intelekt(Y/N)?');

readln(m33);

writeln('pracjue v banky(Y/N)?');

readln(m34);

writeln('zajmaetsja bezprovidnukovum zvjazkom PK(Y/N)?');

readln(m35);

writeln('vidmovuvcja vid nas y nast semestri(Y/N)?');

readln(m36);

writeln('dekan(Y/N)?');

readln(m37);

writeln('kafedru PZ(Y/N)?');

readln(m38);

writeln('zavidyva4 PZWI(Y/N)?');

readln(m39);

writeln('4len NAN Ykrainu(Y/N)?');

readln(m40);

writeln('naw koluwnij dekan(Y/N)?');

readln(m41);

writeln('vukladae v nas najbilwe duscuplin v cjomy sem(Y/N)?');

readln(m42);

writeln('naw kyrator(Y/N)?');

readln(m43);

writeln('menedgment(Y/N)?');

readln(m44);

writeln('english(Y/N)?');

readln(m45);}

{1} if (m1='Y')and(m2='Y')and(m3='Y')and(m4='Y')and(m5='Y')

then writeln('Korol');

{2} if (m1='Y')and(m2='Y')and(m3='Y')and(m4='Y')and(m5='N')

then writeln('Gruciv');

{3} if (m1='Y')and(m2='Y')and(m3='Y')and(m4='N')and(m6='Y')and(m7='Y')

then writeln('Kozak');

{4} if (m1='Y')and(m2='Y')and(m3='Y')and(m4='N')and(m6='Y')and(m7='N')

and(m8='Y')then writeln('Feduk');

{5} if (m1='Y')and(m2='Y')and(m3='Y')and(m4='N')and(m6='Y')and(m7='N')

and(m8='N')then writeln('Panliv');

{6} if (m1='Y')and(m2='Y')and(m3='Y')and(m4='N')and(m6='N')and(m9='Y')

then writeln('Proni4ev');

{7} if (m1='Y')and(m2='Y')and(m3='Y')and(m4='N')and(m6='N')and(m9='N')

and(m10='Y')then writeln('Podhapov');

{8} if (m1='Y')and(m2='Y')and(m3='Y')and(m4='N')and(m6='N')and(m9='N')

and(m10='N')then writeln('4eljak');

{9} if (m1='y')and(m2='y')and(m3='n')and(m11='y')

then writeln('Ivan4enko');

{10} if (m1='y')and(m2='y')and(m3='n')and(m11='n')and(m12='y')

then writeln('Jaremkiv');

{11} if (m1='y')and(m2='y')and(m3='n')and(m11='n')and(m12='n')

and(m13='y')and(m14='y') then writeln('Homa');

{12} if (m1='y')and(m2='y')and(m3='n')and(m11='n')and(m12='n')

and(m13='y')and(m14='n')and(m15='y')

then writeln('Bavoljak');

{13} if (m1='y')and(m2='y')and(m3='n')and(m11='n')and(m12='n')

and(m13='y')and(m14='n')and(m15='n')and(m16='y')

then writeln('Kydrjavzev');

{14} if (m1='y')and(m2='y')and(m3='n')and(m11='n')and(m12='n')

and(m13='y')and(m14='n')and(m15='n')and(m16='n')and(m17='y')

then writeln('Martuwyk');

{15} if (m1='y')and(m2='y')and(m3='n')and(m11='n')and(m12='n')

and(m13='y')and(m14='n')and(m15='n')and(m16='n')and(m17='n')

then writeln('Berezickuj');

{16} if (m1='y')and(m2='y')and(m3='y')and(m11='n')and(m12='n')

and(m13='n')and(m18='y')

then writeln('Gamanjyk');

{17} if (m1='y')and(m2='y')and(m3='y')and(m11='n')and(m12='n')

and(m13='n')and(m18='n')and(m19='y')

then writeln('Krajkivskuj');

{18} if (m1='y')and(m2='y')and(m3='y')and(m11='n')and(m12='n')

and(m13='n')and(m18='y')and(m19='n')and(m20='y')

then writeln('Koljadgun');

{19} if (m1='y')and(m2='y')and(m3='y')and(m11='n')and(m12='n')

and(m13='n')and(m18='y')and(m19='n')and(m20='n')and(m21='y')

then writeln('Ruba4enko');

{20} if (m1='y')and(m2='y')and(m3='y')and(m11='n')and(m12='n')and(m13='n')

and(m18='y')and(m19='n')and(m20='n')and(m21='n')and(m22='y')

and(m23='y')then writeln('Dimnu4');

{21} if (m1='y')and(m2='y')and(m3='y')and(m11='n')and(m12='n')and(m13='n')

and(m18='y')and(m19='n')and(m20='n')and(m21='n')and(m22='y')

and(m23='n')and(m24='y')

then writeln('Poznjak');

{22} if (m1='y')and(m2='y')and(m3='y')and(m11='n')and(m12='n')and(m13='n')

and(m18='y')and(m19='n')and(m20='n')and(m21='n')and(m22='y')

and(m23='n')and(m24='n')

then writeln('Poznjak');

{23} if (m1='y')and(m2='y')and(m3='y')and(m11='n')and(m12='n')

and(m13='n')and(m18='y')and(m19='n')and(m20='n')and(m21='n')

and(m22='n')and(m25='y')

then writeln('Lupko');

{24} if (m1='y')and(m2='y')and(m3='y')and(m11='n')and(m12='n')

and(m13='n')and(m18='y')and(m19='n')and(m20='n')and(m21='n')

and(m22='n')and(m25='n')and(m26='y')

then writeln('Kawyba');

{25} if (m1='y')and(m2='y')and(m3='y')and(m11='n')and(m12='n')

and(m13='n')and(m18='y')and(m19='n')and(m20='n')and(m21='n')

and(m22='n')and(m25='n')and(m26='n')and(m27='y')

then writeln('Gydjak');

{26} if (m1='y')and(m2='y')and(m3='y')and(m11='n')and(m12='n')

and(m13='n')and(m18='y')and(m19='n')and(m20='n')and(m21='n')

and(m22='n')and(m25='n')and(m26='n')and(m27='n')

then writeln('Remizov');

{27} if (m1='y')and(m2='n')and(m28='y')

then writeln('Wpak');

{28} if (m1='y')and(m2='n')and(m28='n')and(m29='y')

then writeln('Rydavskuj');

{29} if (m1='y')and(m2='n')and(m28='n')and(m29='n')and(m30='y')

then writeln('Droggyn');

{30} if (m1='y')and(m2='n')and(m28='n')and(m29='n')and(m30='y')

then writeln('Ivano4ko');

{31} if (m1='n')and(m31='y') and(m32='y')and(m33='y')

then writeln('Pulupenko');

{32} if (m1='n')and(m31='y')and(m32='y')and(m33='n')

then writeln('Andrywkiv');

{33} if (m1='n')and(m31='y')and(m32='n')and(m34='y')

then writeln('Jakovun');

{34} if (m1='n')and(m31='y')and(m32='n')and(m34='n')and(m35='y')

then writeln('Grun4uwun');

{35} if (m1='n')and(m31='y')and(m32='n')and(m34='n')and(m35='n')

and(m36='y')

then writeln('Pawkevu4');

{36} if (m1='n')and(m31='y')and(m32='n')and(m34='n')and(m35='n')

and(m36='n')

then writeln('Poljan4u4');

{37} if (m1='n')and(m31='n')and(m37='y')

then writeln('Lazarovu4');

{38} if (m1='n')and(m31='n')and(m37='n')and(m38='y')and(m39='y')

then writeln('Melnu4yk');

{39} if (m1='n')and(m31='n')and(m37='n')and(m38='y')and(m39='n')

and(m40='y')

then writeln('Nukolaj4yk');

{40} if (m1='n')and(m31='n')and(m37='n')and(m38='y')and(m39='n')

and(m40='n')and(m41='y')

then writeln('Iwerjakov');

{41} if (m1='n')and(m31='n')and(m37='n')and(m38='y')and(m39='n')

and(m40='n')and(m41='n')and(m42='y')

then writeln('Weketa');

{42} if (m1='n')and(m31='n')and(m37='n')and(m38='y')and(m39='n')

and(m40='n')and(m41='n')and(m42='n')

then writeln('Plonnikov');

{43} if (m1='n')and(m31='n')and(m37='n')and(m38='n')and(m43='y')

then writeln('NataljaDmutrivna');

{44} if (m1='n')and(m31='n')and(m37='n')and(m38='n')and(m43='n')

and(m44='y')

then writeln('Kazarova');

{45} if (m1='n')and(m31='n')and(m37='n')and(m38='n')and(m43='n')

and(m44='n')and(m45='y')

then writeln('Matkovskuj');

{46} if (m1='n')and(m31='n')and(m37='n')and(m38='n')and(m43='n')

and(m44='n')and(m45='n')

then writeln('Gah');

END.

Висновок: на даній л.р. я навчилася складати експертну систему