Сумма элементов, лежащих выше главной диагонали матрицы - Lisp
Формулировка задачи:
Дана матрица А размера 7*7. Составить программу нахождения суммы элементов, лежащих выше главной диагонали.
Решение задачи: «Сумма элементов, лежащих выше главной диагонали матрицы»
textual
Листинг программы
- CL-USER 1 > (let ((a (make-array '(7 7)
- :element-type 'number
- :initial-contents '((1 0 0 0 0 0 0)
- (0 1 0 0 0 0 0)
- (0 0 1 0 0 0 0)
- (0 0 0 1 0 0 0)
- (0 0 0 0 1 0 0)
- (0 0 0 0 0 1 0)
- (0 0 0 0 0 0 1)))))
- (let ((s 0))
- (dotimes (i 7 s)
- (incf s (aref a i i)))))
- 7 ;; это результат
- CL-USER 2 >
Объяснение кода листинга программы
В этом коде создается матрица a размером 7х7, заполненная нулями и единицами.
Затем, в цикле, суммируются элементы, лежащие выше главной диагонали матрицы.
Результат вычислений сохраняется в переменной s.
В конце цикла, значение переменной s выводится на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
