Исправте ошибку

[shilven]

для заданной матрицы размером 8х8 найти k, что k-я строка матрицы совпадает с k-ым столбцом( оформить в виде процедуры)


program mas;
uses crt;
const n=8;
type
matr=array[1..n,1..n] of integer;
var
a: matr;
i,j : integer;
procedure sorting(const A:matr;var k:integer);
var
i,j:integer;
begin
clrscr;
k:=i;
for j:=1 to n do begin
if A[i,j]<>A[j,i] then
begin
k:=0;
break;
end;
if k>0 then break;
end;
end;
begin
clrscr;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(10)-2;
write(a[i,j]:4);
writeln;
end;
writeln;
end;

end.

[shilven]

Helppppppppppp

[Arigato]

Да, хороший способ задачи решать: http://programmersforum.ru/showthread.php?t=178433

[shilven]

прога выдает неизвестное имя типа Tmatrix

[Arigato]

Я в вашем коде вообще Tmatrix не вижу.

[shilven]

ну как вы мне дали там был Тmatrix я исправил его на матр
но мне программа не считает матрицу 8х8 она мне считает какбудто у меня только 1 столбец и я не могу не чего проверить в ней )))

[Arigato]

Ну я же не виноват, что вы даже переписывать не умеете. Не задумывались над вопросом: а оно вам вообще надо, учиться в универе (или где вы учитесь)?

[Leshii]

Arigato ну так прям строго не надо.( оно того не стоит, нервные клетки надо беречь )

Во-первых , даже такое надо брать в теги (code)(/code), просто потому что не читабельено.

procedure sorting(const A:matr;var k:integer);
var
i,j:integer;
begin
clrscr;
k:=i;
for j:=1 to n do begin
if A[i,j]<>A[j,i] then
begin
k:=0;
break;
end;
if k>0 then break;
end;
end;
begin
clrscr;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(10)-2;
write(a[i,j]:4);
writeln;
end;
writeln;
end;

end.

Второе, тебе дали процедуру !! процедура на даном этапе это часть решения. А ты же впихнул всё в процедуру. А где же у тебя записана основная программа которая в свою очередь предаёт значения в процедуру?( тоесть тело программы ).

program mas;
uses crt;
const n=8;
type

matr = array[1..n,1..n] of integer;

var
   a: matr;
   i, j, k: integer;  // здесь ты описываеш глобальные переменные

// дальше ты описываеш процедуру

program mas;
uses crt;
const n=8;
type

matr= array[1..n,1..n] of integer;

var
   a: matr;
   i, j, k : integer; 

Procedure findk ( a:matr; var k:integer );
var i, j: integer;
begin
 for i:=1 to n do begin
      k:=i;
   for j:=1 to n do
    if A[i,j] <> A [j,i] then begin
       k:=0;
       break;
    end;
   if k>0 then break;
 end;
end;

begin // тело программы
clrscr;
for i:=1 to n do
 for j:=1 to n do begin
     a[i,j]:=random(10)-2;
end;
writeln;
findk(a, k);
writeln(k);
writeln;
for i:=1 to n do begin
 for j:=1 to n do
     write(a[i,j]:3);
     writeln;
end;
readln;
end.

Ты даже процедуру нормально не переписал, а уже переполох поднимаеш.

Исправил.

[Arigato]

Вывод результата внутри процедуры неправильно делать, его надо делать в основной программе.

[shilven]

народ извините ))

ну просто мне очень фигово обьясняют предмет там презинтацию скинут и все поэтому мои познанию в паскале такие какие есть восновном все сам так что так )))

еще раз извените )