IT-IATU
Информационные системы
Самолетостроение
ОНД
Займы с 18 лет
Главная
»
Информационные системы
»
Представление знаний в ИС
»
Опишите предикат, определяющий наибольший общий простой делитель двух целых чисел.
Опишите предикат, определяющий наибольший общий простой делитель двух целых чисел.
% Bilet11
% Patched by JamshyT 14.01.13
% Special for AISTd-31 :)
% To start type: jstart.
delit(X,Y):-0 is Y mod X.
between(X,Y,Z):-Y=<Z, X=Y.
between(X,Y,Z):-Y<Z,Y1 is Y+1, between(X,Y1,Z).
delitel(X,Y):-between(X,1,Y), delit(X,Y).
prostoe(X):-not (delitel(D,X),D\=X,D\=1).
max(X,Y,X):-
X>Y.
max(X,Y,Y):-
X<Y.
max(X,Y,Y):-
X=Y.
max_list([X],X).
max_list([H|T],M):-
max_list(T,M_T),
max(H,M_T,M).
delitels(X,Y,T):-delitel(T,Y),delitel(T,X).
nopd(X,Y,T):-setof(H,(delitels(X,Y,H),prostoe(H)),L),max_list(L,T).
jstart:- write(' 1e chislo: '),nl,read(JAM1),nl,
write(' 2e chislo: '),nl,read(JAM2),nl,
nopd(JAM1,JAM2,Z),
write(Z).
Друзья! Приглашаем вас к обсуждению. Если у вас есть своё мнение, напишите нам в комментарии.
Поиск по сайту
Поделиться
Дисциплины
Информационные системы
Проектирование ИС
Интеллектуальные ИС
Информационная безопасность и защита информации
Информационные сети
Моделирование систем
Администрирование в ИС
Информационные технологии
Операционные системы
Представление знаний в ИС
Алгоритмизация
Архитектура ЭВМ
Управление данными
Технология программирования
Компьютерная геометрия и графика
Информатика
Самолетостроение
Конструкция и проектирование самолетов
Автоматизированное проектирование конструкций
Основы теории управления
Теория информационных процессов и систем
Электротехника
Физика
Физика (3 семестр)
Прикладная механика
Общенаучные дисциплины
Экономика
Метрология
Философия
Математика (1 семестр)
Математика (2 семестр)
Математика (3 семестр)
Культурология
История
Химия
Биология
Английский язык онлайн – быстро и просто
Что делать, если по учёбе гора долгов?
Помощь в поступлении в американский ВУЗ от Марии Гурьевой