Читать курсовая по математике: "Математические модели" Страница 4

(Назад) (Cкачать работу)

Мир - Москва ,1990.

2. Малпас Дж. Реляционный язык Prolog и его применение – Наука - Москва, 1990.

3. Математические модели информационных процессов и управления

Сост.: С.И. Беляева и др. - Нижний Новгород, 1991.

Приложение Код программы

/*ПРОЕЗД В МЕТРО ЧЕРЕЗ ЗАДАННЫЕ ОСТАНОВКИ*/ DOMAINS

список=symbol*

список1=integer* PREDICATES

nondeterm линия(symbol,список)

nondeterm мин_1(integer,список1)

nondeterm минимальное(integer,список1)

nondeterm принадлежит(symbol,список)

nondeterm соседние(symbol,symbol,список)

nondeterm смежные_станции(symbol,symbol,symbol)

nondeterm пересадка(symbol,symbol,symbol)

nondeterm маршрут(symbol,symbol,список,integer,symbol,список)

nondeterm через_станцию(symbol,symbol,symbol,integer,список)

nondeterm поиск

nondeterm stations(symbol,symbol,список,integer,список)

nondeterm includ(список,список)

nondeterm vvod(integer,список,список)

nondeterm vvod1(integer,список)

nondeterm vvod2(integer)

nondeterm digit(string,integer) CLAUSES

/* ОПИИСАНИЕ ЛИНИЙ */

линия(линия_1,[a,s,d,f,g]).

линия(линия_2,[l,k,d,j,h]).

линия(линия_3,[z,x,d,c,v]).

линия(линия_4,[b,n,d,m,q]).

линия(линия_5,[c,j,f,m,x,k,s,n,c]). /* ПОИСК МИНИМАЛЬНОГО ЭЛЕМЕНТА В СПИСКЕ ЦЕЛЫХ ЧИСЕЛ */

мин_1(_,[]).

мин_1(Мин,[X|Хвост]):- Мин1,write("Введите промежуточную станцию: "),

readln(Nomer),

not(принадлежит(Nomer,List1)),N1=N-1,

vvod(N1,List2,[Nomer|List1]),List=[Nomer|List2],!;

write("Станция с таким названием уже была введена"),nl,vvod(N,List,List1).

digit(Str,Digit):- str_int(Str,Digit).

vvod2(N):-write("Сколько вы хотите ввести промежуточных станций: "),nl,

readln(Str),digit(Str,N),!;

write("Была введена не цифра. Повторите ввод"),nl,vvod2(N).

vvod1(N,List):-vvod2(N),vvod(N,List,[]).

GOAL

поиск.

Похожие работы