Реферат Розробка програми з використанням мови логічного програмування Prolog

tify">!. (Mark, [H | T], J, [H | ModifiedLine]): - = J - 1, markelemfromline (Mark, T, NewJ, ModifiedLine). (Mark, [H | T], 1, J, [NewLine | T]): -

!, markelemfromline (Mark, H, J, NewLine). (Mark, [H | T], I, J, [H | NewMatrix]): - = I - 1, markelem (Mark , T, NewI, J, NewMatrix).

step (Labyrinth, MSize, FromX, FromY, ToX, ToY): - = FromX, = FromY + 1, ToY <= MSize, (Labyrinth, ToX, ToY, Elem), = 0 . (Labyrinth, MSize, FromX, FromY, ToX, ToY): - = FromX, = FromY - 1, ToY> = 0, getelem (Labyrinth, ToX, ToY, Elem), = 0. (Labyrinth, MSize, FromX , FromY, ToX, ToY): - = FromX + 1, ToY = FromY + 1, ToX <= MSize, <= MSize, (Labyrinth, ToX, ToY, Elem), = 0. (Labyrinth, MSize, FromX , FromY, ToX, ToY): - = FromX + 1, ToY = FromY, <= MSize, (Labyrinth, ToX, ToY, Elem), = 0. (Labyrinth, MSize, FromX, FromY, ToX, ToY): - = FromX + 1, ToY = FromY - 1, ToX <= MSize,> 0, getelem (Labyrinth, ToX, ToY, Elem), = 0. (Labyrinth, MSize, FromX, FromY, ToX, ToY): - = FromX - 1, ToY = FromY + 1, ToX> 0, ToY <= MSize, (Labyrinth, ToX, ToY, Elem), = 0. (Labyrinth, MSize, FromX, FromY, ToX, ToY): - = FromX - 1, ToY = FromY,> 0, getelem (Labyrinth, ToX, ToY, Elem), = 0. (Labyrinth, MSize, FromX, FromY, ToX, ToY): - = FromX - 1, ToY = FromY - 1, ToX> 0, ToY> 0, getelem (Labyrinth, ToX, ToY, Elem),

Elem = 0. ([H], 1): -

!, (H),. ([H | T], J): -

NewJ = J - 1, write (H), (""),

printline (T, NewJ). ([H], 1, J): -

!, printline (H, J). ([H | T], I, J): - = I - 1, printline (H, J), (T, NewI, J). (Cnt, PathMatrix, MSize, X, Y, I, J): - = I, = J, (Cnt, PathMatrix, X, Y, NewPathMatrix), (NewPathMatrix, MSize, MSize),,. (Cnt, PathMatrix, MSize, X, Y, I, J): - (Cnt, PathMatrix, X, Y, NewPathMatrix), (NewPathMatrix, MSize, X, Y, NewX, NewY), = Cnt + 1, operate (NewCnt, NewPathMatrix, MSize , NewX, NewY, I, J) ..: -. (Labyrinth, 1, MSize): - ("Enter starting point"), nl, (X), (Y), ("Enter ending point") , nl, (I), (J), (fop, "lab. txt"), (fop), (2, Labyrinth, MSize, X, Y, I, J). (_, 1, _): - _str (fop, "lab. txt"), (fop),. (_, 2, _): -

!.: - ("Input the name of file:"), nl, (Fname), (fop, Fname), (fop), (MSize, MatrixInFile), (fop) , (MSize, MatrixInFile, [], Labyrinth),, ("Menu:"), nl, ("1) Play labyrinth"), nl, ("2) Exit"), nl, (Choice) , nl, (Labyrinth, Choice, MSize) ...