Получить действительную матрицу - Pascal ABC
Формулировка задачи:
Дана действительная матрица [aij] i,j = 1, ..., n. Получить действительную матрицу [bij] i,j = 1, ..., n, элемент bij который равен сумме элементов данной матрицы, расположенных в области, определяемой индексами i,j так, как показано на рис. (область заштрихована). Сходным образом можно рассмотреть вместо суммы элементов их произведение, набольшее значение наименьшее значение.
Решение задачи: «Получить действительную матрицу»
textual
Листинг программы
const n=10; var a,b:array[1..n,1..n] of real; i,j,k,m,p,s,x:integer; begin randomize; writeln('Матрица А'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=2*random; write(a[i,j]:7:2); end; writeln; end; for i:=1 to n do for j:=1 to n do begin b[i,j]:=0; if i<=j then begin p:=i; s:=j; end else begin p:=j; s:=i; end; for k:=p to s do for m:=p to s do b[i,j]:=b[i,j]+a[k,m]; end; writeln('Матрица B'); for i:=1 to n do begin for j:=1 to n do write(b[i,j]:7:2); writeln; end; end.
Объяснение кода листинга программы
- Переменная n инициализируется значением 10.
- Создается двумерный массив a размером n x n и инициализируется случайными числами от 0 до 99.
- Создается переменная i, инициализируется значением 1.
- Выполняется цикл for i:=1 до n.
- Внутри цикла создается переменная j, инициализируется значением 1.
- Выполняется цикл for j:=1 до n.
- Внутри цикла вычисляется значение a[i,j] и присваивается переменной a[i,j].
- Выводится значение a[i,j] с помощью функции write.
- Выводится символ новой строки с помощью функции writeln.
- Выполняется оператор end, завершающий внутренний цикл.
- Выполняется оператор end, завершающий внешний цикл.
- Переменная i инициализируется значением 1.
- Выполняется цикл for i:=1 до n.
- Внутри цикла создается переменная j, инициализируется значением 1.
- Выполняется цикл for j:=1 до n.
- Внутри цикла вычисляется значение b[i,j] и присваивается переменной b[i,j].
- Выводится значение b[i,j] с помощью функции write.
- Выводится символ новой строки с помощью функции writeln.
- Выполняется оператор end, завершающий внутренний цикл.
- Выполняется оператор end, завершающий внешний цикл.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д