Условие Ваша задача — заполнить двумерный массив из N строк и N столбцов следующим образом: первая строка - id1183024120210515 от Jamik1008 15.05.2021 12:55

Question

Информатика: Условие Ваша задача — заполнить двумерный массив из N строк и N столбцов следующим образом: первая строка является упорядоченным набором чисел от 1 до N, каждая следующая является цикличным сдвигом влево предыдущей строки. Формат входных данных На первой и единственной строке входного файла дано одно целое число N (1≤N≤100). Формат выходных данных Выведите N строк по N столбцов — заполненный соответствующим образом двумерный массив очень кто нибудь

Jamik1008 · Accepted Answer

Ну типо так:
domains treetype = tree(integer, treetype, treetype); empty

predicates

max_t(treetype, integer)
min_t(treetype, integer)
max(integer,integer,integer)
min(integer,integer,integer)

clauses

max(M,N,N) :- N>=M, !.
max(M,N,M) :- M>=N, !.

min(M,N,N) :- N<=M, !.
min(M,N,M) :- M<=N, !.

max_t(tree(X,empty,empty),X) :- !.
max_t(tree(X,empty,R),Q) :- max_t(R,N), max(X,N,Q). max_t(tree(X,L,empty),Q) :- max_t(L,N), max(X,N,Q).
max_t(tree(X,L,R),Q) :- max_t(L,LM), max_t(R,RM), max(RM,LM,QM), max(X,QM,Q).

min_t(tree(X,empty,empty),X) :- !.
min_t(tree(X,empty,R),Q) :- min_t(R,N), min(X,N,Q). min_t(tree(X,L,empty),Q) :- min_t(L,N), min(X,N,Q).
min_t(tree(X,L,R),Q) :- min_t(L,LM), min_t(R,RM), min(RM,LM,QM), min(X,QM,Q).

MOGZ ответил