Помощь - Поиск - Пользователи - Календарь
Полная версия: МАТРИЦЫ
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Alex_Sh
Помогите сделать задачу.

         ПРОСТО СРОЧНО НУЖНА!!!!!!!!!!!!!!!

      Дана матрица   размерности nxn  .  Для заданной матрицы найти такие k  , для которых  k-ая строка матрицы совпадает с  k-ым столбцом.

      Заранее благодару за помощь
trminator
Попробуй такое
Код

for i:=1 to n do
 for j:=1 to n do
 if a[i,j] = a[j,i] then inc(b[i]);

for i:=1 to n do if b[i] > n then write(i,' ');

А вообще это ЗАДАЧА, а не ВОПРОС.

Эх, конец семестра, хвостов у всех немеряно... пойду-ка тоже физику спишу у кого-нибудь... :-/

Кстати в коде ма-а-ленькая ошибка. Можно сказать, опечатка. Поищи smile.gif
zx1024
Код

for i:=1 to n do
begin
 b[i] := 0;
 j := 1;
 while (a[i,j] = a[j,i]) and (j<=n) do
   inc (j);
 b[i] := j;
end;
for i:=1 to n do if b[i] > n then write(i,' ');

На 4 строки больше - зато и скорость больше.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.