Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
FIFTH LAB
характеристикаСобаки(английскийБульдог, [1,0,0,1,1,0,1,0]). характеристикаСобаки(гончая, [1,0,0,1,0,1,1,0]). характеристикаСобаки(дог, [1,0,1,0,0,1,1,1]). характеристикаСобаки(американская_гоначя, [1,0,0,0,1,1,1,0]). характеристикаСобаки(кокер_спаниэль, [0,1,0,1,1,1,1,0]). характеристикаСобаки(ирландский_сеттер, [0,1,1,0,0,1,0,0]). характеристикаСобаки(колли, [0,1,1,0,1,0,1,0]). характеристикаСобаки(сенбернар, [0,1,0,0,1,0,1,1]). program :- write('У собаки короткая шерсть?'), nl, read(Ответ_1), write('У собаки длинная шерсть?'), nl, read(Ответ_2), write('Рост собаки больше 45см?'), nl, read(Ответ_3), write('Рост собаки меньше 45см?'), nl, read(Ответ_4), write('У собаки низкопосаженный хвост?'), nl, read(Ответ_5), write('У собаки длинные уши?'), nl, read(Ответ_6), write('У собаки дружелюбный характер?'), nl, read(Ответ_7), write('Вес собаки более 100 фунтов?'), nl, nl, read(Ответ_8), write('Ваши ответы - '), write([Ответ_1, Ответ_2, Ответ_3, Ответ_4, Ответ_5, Ответ_6, Ответ_7, Ответ_8]), nl, nl, write('Рекомендуется порода: '), nl, характеристикаСобаки(X, [Ответ_1, Ответ_2, Ответ_3, Ответ_4, Ответ_5, Ответ_6, Ответ_7, Ответ_8]), write(X), nl, fail. :- program.
run
|
edit
|
history
|
help
0
isan
nnnnn
jjjj
Sánchez López Fernando Gabriel - JSON arrays
intento1
Inicio del codificador Json
isan
Arreglos_NavaArellano
1 clase1
task7