Получить действительную матрицу - 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.

Объяснение кода листинга программы

  1. Переменная n инициализируется значением 10.
  2. Создается двумерный массив a размером n x n и инициализируется случайными числами от 0 до 99.
  3. Создается переменная i, инициализируется значением 1.
  4. Выполняется цикл for i:=1 до n.
  5. Внутри цикла создается переменная j, инициализируется значением 1.
  6. Выполняется цикл for j:=1 до n.
  7. Внутри цикла вычисляется значение a[i,j] и присваивается переменной a[i,j].
  8. Выводится значение a[i,j] с помощью функции write.
  9. Выводится символ новой строки с помощью функции writeln.
  10. Выполняется оператор end, завершающий внутренний цикл.
  11. Выполняется оператор end, завершающий внешний цикл.
  12. Переменная i инициализируется значением 1.
  13. Выполняется цикл for i:=1 до n.
  14. Внутри цикла создается переменная j, инициализируется значением 1.
  15. Выполняется цикл for j:=1 до n.
  16. Внутри цикла вычисляется значение b[i,j] и присваивается переменной b[i,j].
  17. Выводится значение b[i,j] с помощью функции write.
  18. Выводится символ новой строки с помощью функции writeln.
  19. Выполняется оператор end, завершающий внутренний цикл.
  20. Выполняется оператор end, завершающий внешний цикл.

Оцени полезность:

15   голосов , оценка 3.733 из 5
Похожие ответы