PDA

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



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

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


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.