помогите пожалуйста решить программу по турбо Паскалю(массивы).

[Sazary]

Сообщение от polya4ok

а могли бы помочь по второй задаче?

Посмотрите второй пост и скажите, что еще непонятно.

[__STDC__]

Сообщение от Sazary

Посмотрите второй пост и скажите, что еще непонятно.

А во второй может еще добавить выход из цикла если simm становится равным false? чтобы избежать лишних итераций..

[Sazary]

Сообщение от __STDC__

А во второй может еще добавить выход из цикла если simm становится равным false? чтобы избежать лишних итераций..

Ну я написал общий принцип. А остальное уже вопрос оптимизации.
Конечно, так будет лучше.

[Vodin]

задача №2

program simetria;
uses crt;
const n=4;
var i,j,k,f:integer;
    a:array [1..n,1..n] of integer;
    b:array [1..n,1..n] of integer;
    c:array [1..n,1..n] of integer;
    sim:boolean;
begin
clrscr;
for i:=1 to 4 do
 for j:=1 to 4 do
 readln (a[i,j]);
{randomize;
for i:=1 to n do
 for j:=1 to n do
 a[i,j]:=random(10);}
for i:=1 to 4 do
 begin
  for j:=1 to 4 do
  write(a[i,j],' ');
 writeln;
 end;
for i:=2 to n do
 for j:=1 to i-1 do
 b[i,j]:=a[i,j];
for i:=1 to n-1 do
 for j:=i+1 to n do
 c[j,i]:=a[i,j];
writeln('B:');
for i:=1 to 4 do
 begin
  for j:=1 to 4 do
  write(b[i,j],' ');
 writeln;
 end;
writeln('C:');
for i:=1 to 4 do
 begin
  for j:=1 to 4 do
  write(c[i,j],' ');
 writeln;
 end;
for k:=1 to n do
 for f:=1 to n do
for i:=1 to n do
 for j:=1 to n do
 if b[i,j]=c[k,f] then sim:=true else
 begin
 sim:=false;
 break;
 end;
if sim=true then writeln(1) else writeln(0);
end.

[Vodin]

возможно не самый простой и короткий метод но зато работает

[__STDC__]

Оо зачем..? Задача решается в три строки, как пиcал Sazary, + досрочный выход из цикла...
К тому же в твоем варианте, например матрица целиком состоящая из единиц не симметрична.. условие симметричности - равенство исходной матрицы и транспонированной... А у тебя какие-то еще две.. в общем не думаю что это хороший вариант... И еще куча циклов... =(

[Vodin]

Сообщение от polya4ok

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

Насколько я понял в даном задании нужно просто определить одинаковы ли противоположные элементы матрици относительно главной диагонали.
а что касается двух дополнительных масивов и количества циклов - то я же говорю это не самый простой и не самый короткий вариант. придумал на скорую руку.

[__STDC__]

Сообщение от Vodin

Насколько я понял в даном задании нужно просто определить одинаковы ли противоположные элементы матрици относительно главной диагонали.
а что касается двух дополнительных масивов и количества циклов - то я же говорю это не самый простой и не самый короткий вариант. придумал на скорую руку.

1. Противоположные элементы относительно главной диагонали одинаковы, когда исходная матрица совпадает с транспонированной матрицей, еще раз говорю..
Справка: если A = (a[ij]), то A^T = (a[ji])
2. Программа некорректно работает с матрицей, в которой каждый элемент = 1

[Vodin]

согласен. признаю.

Сообщение от __STDC__

Программа некорректно работает с матрицей, в которой каждый элемент = 1

если точнее то программа некоректно работает с матрицей у которой элементы на главной диагонале одинаковы.
только что проверил, но в чем причина обьяснить немогу

[__STDC__]

Сообщение от Vodin

согласен. признаю.

если точнее то программа некоректно работает с матрицей у которой элементы на главной диагонале одинаковы.
только что проверил, но в чем причина обьяснить немогу

нет, почему.. с единичной матрицей работает (матрица у которой по главной диагонали 1, а все остальные эл-ты нули)