Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 138679
30.05.2008, 14:03
0.00 руб.
0 1 1
Компьютеры Программирование
Добрый день, Уважаемые эксперты.
Помогите разобраться.
Составить программу, формирующую целочисленную квадратную матрицу. Для заданной квадратной матрицы найти такие k, что k-я строка матрицы совпадает с k-м столбцом.
Я написал что-то, но оно не работает.
P.S. см. приложение.

Заранее спасибо за помощь

Приложение:
const M = 3;vara:array[1..m,1..m] of integer;x, y, k, j: integer;BEGINbegin for x:=1 to m do for y:=1 to m do begin writeln(‘vvedite element massiva‘,x,y); readln(a[x,y]); end; end; begin for x:=1 to m do begin for y:=1 to m do write(a[x,y],‘ ‘) ; writeln; end; end;for k:=1 to m do begin j:=1; while (j<=m) and (A[k,j]=A[j,k]) do Inc(j); if (j>m) then Writeln(‘ k= ‘, k); end; readln;end.

Обсуждение

давно
puporev
Профессор
401888
1232
01.06.2008, 08:34
общий
это ответ
Здравствуйте, Корчагин Петр Александрович!
Решение задачи в приложении.

Приложение:
uses crt;var n,i,j,k,p,t:integer; a:array[1..50,1..50]of integer;beginclrscr;write(‘n=‘);readln(n);for i:=1 to n dofor j:=1 to n doread(a[i,j]); {вводим матрицу вручную, иначе результата не будет}readln;clrscr;Writeln(‘Ishodnaja matrica:‘); {выводим ее на экран таблицей}for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end;readln;t:=0;for i:=1 to n do begin p:=0; for j:=1 to n do if a[i,j]=a[j,i] then {если элементы строки совпадают с элементами столбца} begin p:=p+1; {считаем их} end; if p=n then {если все совпадают} begin t:=t+1; {считаем строку} writeln(‘K=‘,i);{выводим сообщение} end; end;if t=0 then writeln(‘Sovpadenij net!‘);{если нет таких строк, сообщаем}readlnend.
Форма ответа