Версия для печати темы

Автор: Вика 9.12.2007 18:47

Программа. Определить, является ли заданная целая квадратная матрица 10-го порядка симметричной (относительно главной диагонали).

Автор: Michael_Rybak 9.12.2007 19:49

Установка на добро. Решай.

Автор: Анастасия))) 13.03.2013 1:58

Код Pascal

program prim1;
uses crt;
type mas=array[1..100,1..100] of integer;
var i,j,n,s: integer;
var a,b: mas;
begin
clrscr;
write('n=');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
readln(a[i,j]);
end;
end;
for j:=1 to n do begin
for i:=1 to n do begin
b[j,i]:=a[i,j];
write(b[j,i]);
end;
END;
s:=0;
i:=j;
for i:=1 to n do begin
for j:=1 to n do begin
if a[i,j]<>b[i,j] then s:=s+1;
end;
end;
if s>0 then write('НЕТ') else write('ДА, является симметричной');
end.

Автор: Федосеев Павел 13.03.2013 22:21

Анастасия))), регайся и будешь уже как Форумчанка тренироваться на таких задачках. Двоечников на всех хватит - только сильно не некрофильствуй при выборе топиков!

А я бы проверял, наверное, так

  bSymmetric:=true;
  for i:=1 to n do
    for j:=i+1 to n do
      bSymmetric:=bSymmetric AND (a[i, j]=a[j, i]);
  if bSymmetric then
    WriteLn('Yes!!!!!!!!!!!!!!!!!!!!!)
  else
    WriteLn('No, No, No.);