Проектирование экспертной системы диагностики видеомагнитофонов

            vvodA7(A7),

            vvodA8(A8),

            vvodA9(A9),

            makewindow(1,2,5," Вывод ",1,1,20,78),

 CCC(A7,A8,A9),

 readln(_),

exit. 

  process(8):-

        makewindow(1,2,3," Возможная причина  неисправности ",0,0,25,80),

            nl,

            vvodA18(A18),

            vvodA19(A19),

            makewindow(1,2,5," Вывод ",1,1,20,78),

 HHH(A18,A19),

readln(_),

exit. 
 

vvodA1(A1):-makewindow(1,2,5," Видеомагнитофон не включается ",1,1,20,78),

cursor(2,10),write(" Исправен  ли шнур питания?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A1). 

vvodA2(A2):-makewindow(1,2,5," Видеомагнитофон не включается ",1,1,20,78),

cursor(2,10),write(" Исправна  ли розетка питающей сети?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A2). 

vvodA3(A3):-makewindow(1,2,5," Видеомагнитофон не включается ",1,1,20,78),

cursor(2,10),write(" Исправен ли предохранитель?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A3). 
 

vvodA4(A4):-makewindow(1,2,5," Не загружается кассета ",1,1,20,78),

cursor(2,10),write(" Включен  ли видеомагнитофон?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A4). 

vvodA5(A5):-makewindow(1,2,5," Не загружается кассета ",1,1,20,78),

cursor(2,10),write(" Правильно  ли вставляете видео кассету  (окошком вверх, предохранительным ушком к себе)?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A5). 

vvodA6(A6):-makewindow(1,2,5," Не загружается кассета ",1,1,20,78),

cursor(2,10),write(" Есть  ли в видеомагнитофоне кассета?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A6). 
 

vvodA7(A7):-makewindow(1,2,5," Отсутствуют изображение и звук ",1,1,20,78),

cursor(2,10),write("Правильно  ли подключен видеомагнитофон  к ТВ?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A7). 

vvodA8(A8):-makewindow(1,2,5," Отсутствуют изображение и звук ",1,1,20,78),

cursor(2,10),write("Настроен  ли телевизор?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A8). 

vvodA9(A9):-makewindow(1,2,5," Отсутствуют изображение и звук ",1,1,20,78),

cursor(2,10),write(" Качественная запись на кассете?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A9). 
 

vvodA10(A10):-makewindow(1,2,5," Лента не движется",1,1,20,78),

cursor(2,10),write("Кассета  вставлена?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A10). 

vvodA11(A11):-makewindow(1,2,5," Лента не движется",1,1,20,78),

cursor(2,10),write("Происходит  отключение системы управления "),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A11). 
 

vvodA12(A12):-makewindow(1,2,5," Плохое качество изображения, помехи ",1,1,20,78),

cursor(2,10),write("Качественная  запись на кассете?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A12). 

vvodA13(A13):-makewindow(1,2,5," Плохое качество изображения, помехи ",1,1,20,78),

cursor(2,10),write(" Пользовались  ли трекингом?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A13). 

vvodA14(A14):-makewindow(1,2,5," Плохое качество изображения, помехи ",1,1,20,78),

cursor(2,10),write(" Давно ли производилась чистка головок при помощи чистящей кассеты?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A14).    

  

vvodA15(A15):-makewindow(1,2,5," Не работает пульт дистанционного управления ",1,1,20,78),

cursor(2,10),write(" Исправны ли батарейки?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A15). 

vvodA16(A16):-makewindow(1,2,5," Не работает пульт дистанционного управления ",1,1,20,78),

cursor(2,10),write(" Исправен  ли пульт (проверить можно путем нажатия кнопок пульта в непосредственной близости от радиоприемника. В случае работоспособности пульта радиоприемник воспроизведет последовательность сигналов низкой частоты)?"),

cursor(6,7),write("0. Нет "),

cursor(7,7),write("1. Да "),nl,readint(A16). 

vvodA17(A17):-makewindow(1,2,5," Не работает пульт дистанционного управления ",1,1,20,78),

cursor(2,10),write(" Слишком  большое расстояние и препятствия  между пультом и видеомагнитофоном?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A17). 

vvodA18(A18):-makewindow(1,2,5," Периодический срыв изображения и появление шума на экране ",1,1,20,78),

cursor(2,10),write("Правильно  ли расположена лента на синхроголовке  ?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A18). 

vvodA19(A19):-makewindow(1,2,5," Периодический срыв изображения и появление шума на экране ",1,1,20,78),

cursor(2,10),write("Загрязнена  ли синхроголовка?"),

cursor(4,7),write("0. Нет "),

cursor(5,7),write("1. Да "),nl,readint(A19). 
 
 

goal

        start.