Поменять местами элементы главной и побочной диагоналей матрицы по строкам (Блок-схема)

@PAN_DA · Регистрация: 27.11.2013

Дана вещественная квадратная матрица размерности n. Поменять местами элементы главной и побочной диагоналей матрицы по строкам;

@Arigato · 20.12.2013, 15:16

Код:

Pascal

// Дана вещественная квадратная матрица размерности n. Поменять местами элементы главной и побочной диагоналей матрицы по строкам; 
 
const
  n = 5;
  
type
  TIndex = 1..n;
  TMatrix = array[TIndex,TIndex] of Real;
  
procedure CreateMatrix(var M: TMatrix);
var
  i, j: TIndex;
begin
  Randomize;
  for i := 1 to n do
    for j := 1 to n do
      M[i,j] := Random(10);
end;
 
procedure PrintMatrix(const M: TMatrix);
var
  i, j: TIndex;
begin
  for i := 1 to n do begin
    for j := 1 to n do
      Write(M[i,j]:4:0);
    WriteLn;
  end;
end;
 
procedure SwapMatrix(var M: TMatrix);
var
  i: TIndex;
  t: Real;
begin
  for i := 1 to n do begin
    t := M[i,i];
    M[i,i] := M[i,n-i+1];
    M[i,n-i+1] := t;
  end;
end;
  
var
  A: TMatrix;
  
begin
  CreateMatrix(A);
  PrintMatrix(A);
  WriteLn;
  SwapMatrix(A);
  PrintMatrix(A);
end.

@PAN_DA 1 / 1 / 0 Регистрация: 27.11.2013 Сообщений: 52
		1
	Поменять местами элементы главной и побочной диагоналей матрицы по строкам (Блок-схема) 20.12.2013, 12:06. Показов 1423. Ответов 1 Метки нет (Все метки) Дана вещественная квадратная матрица размерности n. Поменять местами элементы главной и побочной диагоналей матрицы по строкам; 0

Опции темы

Поменять местами элементы главной и побочной диагоналей матрицы по строкам (Блок-схема)

Решение