Сформировать одномерный массив из сумм квадратов элементов каждого столбца матрицы - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Сформировать одномерный массив из сумм квадратов элементов каждого столбца матрицы. Все что находил все было не рабочим, помогите пожалуйста все-таки ее решить)

Решение задачи: «Сформировать одномерный массив из сумм квадратов элементов каждого столбца матрицы»

textual
Листинг программы
const
  m = 7; {столбцы}
  n = 4; {строки}
var
  mx : array[1..n, 1..m] of integer; {матрица}
  arr : array[1..m] of longint; {массив сумм квадратов столбцов}
  i, j : integer;
  s : longint;
begin
  randomize;
  {заполним и выведем матрицу}
  writeln('исходная матрица (запонена случайно!)');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      mx[i,j] := -10 + random(20);
      write(mx[i,j] : 5)
    end;
    writeln
  end;
  {проходим сначала по столбцам}
  s := 0; {сумма квадратов}
  for j := 1 to m do
  begin
    for i := 1 to n do s := s + sqr(mx[i,j]); {суммируем квадраты в строках}
    arr[j] := s; {заносим результат в массив}
    s := 0; {обнуляем счетчик перед проходом след. столбца}
  end;
  {вывод массива сумм квадратов}
  writeln('массив сумм квадратов элементов столбцов');
  for j := 1 to m do write(arr[j] : 7);
  readln
end.

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

В данном коде формируется одномерный массив из сумм квадратов элементов каждого столбца матрицы.

  1. Переменные объявляются следующим образом:
    • m и n - это количество столбцов и строк в матрице соответственно.
    • mx - это матрица, заполненная значениями от -10 до 19 (random(20)).
    • arr - это массив, в который будут заноситься суммы квадратов элементов столбцов.
    • i и j - это переменные для прохода по строкам и столбцам матрицы.
    • s - это переменная для хранения суммы квадратов элементов столбца.
  2. Сначала происходит заполнение исходной матрицы случайными значениями от -10 до 19.
    • Затем происходит проход по столбцам матрицы.
    • Для каждого столбца вычисляется сумма квадратов элементов этого столбца и записывается в переменную s.
    • После прохода по всем столбцам, полученная сумма записывается в соответствующий элемент массива arr.
    • Наконец, выводится массив сумм квадратов элементов столбцов. Обратите внимание, что данный код не использует вложенные списки.

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

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