Помогите с задачей на паскале

Ответить
HYB
Сообщения: 2
Зарегистрирован: 24 сен 2007, 09:01

Помогите с задачей на паскале

Сообщение HYB » 24 сен 2007, 09:21

В этой задаче я лаймер :(
Если целочисленная квадратичная матрица симметрична относительно главной диогонали, обнулить все элементы лежащие выше главной диагонали, и определить сумму элементов лежащие ниже главной диагонали

BBB
Сообщения: 1272
Зарегистрирован: 27 дек 2005, 13:37

Re: Помогите с задачей на паскале

Сообщение BBB » 27 сен 2007, 10:36

HYB писал(а):В этой задаче я лаймер :(
Если целочисленная квадратичная матрица симметрична относительно главной диогонали, обнулить все элементы лежащие выше главной диагонали, и определить сумму элементов лежащие ниже главной диагонали

Код: Выделить всё

const N = <размерность_матрицы>;

var matr : array [1..N, 1..N] of integer;

var i, j : integer;
      blSymmetrical : boolean;
      Summ : integer;

begin

 // Проверка на симметричность
  blSymmetrical := TRUE;

  for i:= 1 to N do begin
    for j:= i+1 to N do begin
      if (matr [i, j] <> matr [j, i]) then begin
         blSymmetrical := FALSE;
         break;
      end;
    end;
  end;

 // Подсчет суммы, обнуление
  Summ := 0;
  if (blSymmetrical) then begin
    for i:= 1 to N do begin
      for j:= i+1 to N do begin
        Summ := Summ + matr [j, i];
        matr [i, j] := 0;
      end;
    end;
  end;

end.

Ответить