Головна Головна -> Інше українською -> Інформатика, комп'ютери, програмування -> Штучний інтелект

Штучний інтелект

Назва:
Штучний інтелект
Тип:
Інше
Мова:
Українська
Розмiр:
1,81 KB
Завантажень:
454
Оцінка:
 
поточна оцінка 5.0


Скачати цю роботу безкоштовно
Пролистати роботу: 1  2 
Лабораторна робота №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.

Завантажити цю роботу безкоштовно
Пролистати роботу: 1  2 



Інше на тему: Штучний інтелект

BR.com.ua © 1999-2017 | Реклама на сайті | Умови використання | Зворотній зв'язок