BBB » 27 сен 2007, 11: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.
[quote="HYB"]В этой задаче я лаймер :(
Если целочисленная квадратичная матрица симметрична относительно главной диогонали, обнулить все элементы лежащие выше главной диагонали, и определить сумму элементов лежащие ниже главной диагонали[/quote]
[code]
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.[/code]