Сумма элементов, лежащих выше главной диагонали матрицы - 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 выводится на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д