Ввести и вывести матрицу 4х4 - Turbo Pascal

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

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

ввести и вывести матрицу 4х4. Вычислить и вывести скалярные произведения первой строки на вторую, второй на третью, третьей на четвертую, а также первого столбца на второй, на третий и на четвертый.

Решение задачи: «Ввести и вывести матрицу 4х4»

textual
Листинг программы
const m=4; n=m; W=7;
var
  a: array [1..m,1..n] of Integer;
  i, j: Integer; s: Longint;
begin
  WriteLn('Введите матрицу (',m,'x',n,'):');
  for i:=1 to m do for j:=1 to n do Read(a[i,j]); ReadLn;
  for j:=1 to n do Write(' ',a[1,j]:W); WriteLn;
  for i:=2 to m do begin
    s:=0;
    for j:=1 to n do begin
      s:=s+a[i-1,j]*a[i,j]; Write(' ',a[i,j]:W);
    end;
    WriteLn(' =',s:W);
  end;
  WriteLn; Write('':W+1);
  for j:=2 to n do begin
    s:=0; for i:=1 to m do s:=s+a[i,1]*a[i,j];
    Write(' ',s:W);
  end; WriteLn;
end.

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

Этот код на Turbo Pascal выполняет следующие действия:

  1. Объявляет переменные m, n и W для хранения размеров матрицы и ее элементов.
  2. Создает массив a типа array [1..m,1..n] of Integer для хранения матрицы.
  3. Задает две переменные i и j для итерации по матрице.
  4. Выводит приглашение пользователю ввести матрицу.
  5. Читрует значения матрицы из ввода пользователя, используя цикл for.
  6. Выводит значения матрицы на экран, используя цикл for.
  7. Вычисляет сумму элементов главной диагонали матрицы, используя два вложенных цикла for.
  8. Выводит результат на экран.
  9. Вычисляет сумму элементов побочной диагонали матрицы, используя два вложенных цикла for.
  10. Выводит результат на экран.
  11. Выводит пустую строку.
  12. Вычисляет сумму элементов главной диагонали матрицы, используя два вложенных цикла for.
  13. Выводит результат на экран.
  14. Выводит пустую строку.
  15. Вычисляет сумму элементов побочной диагонали матрицы, используя два вложенных цикла for.
  16. Выводит результат на экран.
  17. Завершает программу.

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

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