> 1 <

Автор Сообщение

raigon

Members


Статус

1 сообщений

Где: ---
Род занятий:
Возраст:

#7474   2014-11-20 22:22 GMT+3 часа(ов)      
Разработать программу используя функции работы с векторами и списками. Размерность и элементы массива необходимо читать с клавиатуры и заполнять случайными числами (должно быть две отдельные функции).

Задание:
Отобразить симметрично сектора матрицы лежащие слева и справа от главной и побочной диагонали.


Например есть матрица:
1 2 3
4 5 6
7 8 9
Должно поменять 4 и 6 местами так как они находятся слева і справа от пересечения диагоналей.
1 2 3
6 5 4
7 8 9

;;Функция генерации списка случайными значениями.
(defun random-list (size)
(let ((lst '()))
(dotimes (i size)(push (random 25) lst))lst))
 
;;Создание квадратной матрицы и заполнение ее случайными значениями
(defun random-square-matrix (n m)
(let ((res nil))
(dotimes (j n)
(push (random-list m) res))
(reverse res)))

отредактировал(а) raigon: 2014-11-20 22:28 GMT+3 часа(ов)
> 1 <


Онлайн :

0 пользователь(ей), 27 гость(ей) :