04.12.2016, 10:50 | #1 (permalink) |
Member
Регистрация: 07.04.2016
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Двумерные массивы
Размерности массивов следует задать именованными константами. Все необходимые данные должны передаваться подпрограммам в качестве параметров. Все величины, используемые только внутри подпрограмм, должны быть описаны как локальные. Использование глобальных переменных в подпрограммах не допускается. Вывод результатов работы подпрограмм должен выполняться в главной программе. 1) Для заданной матрицы размером 8x8 найти такие k, что k-я строка матрицы совпадает с k-м столбцом (оформить в виде процедуры). 2) Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент (оформить в виде функции). |
04.12.2016, 10:50 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вы не один с такой проблемкой, что то типа этого уже обсуждалось Двумерные массивы Двумерные массивы Двумерные массивы Двумерные массивы |
04.12.2016, 11:53 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Помогаю:
Код:
Const N=8; Type Matr=Array[1..N,1..N] of Integer; Vect=Array[1..N] of Integer; Var i,j:byte; A:Matr; K:Vect; t:boolean; Sum:Integer; Procedure Find_Equal(AFE:Matr; var KFE:Vect); var b:boolean; p,q,m:byte; begin m:=0; for p:=1 to N do begin b:=true; for q:=1 to N do if AFE[p,q]<>AFE[q,p] then b:=false; if b then begin Inc(m); KFE[m]:=p; end; end; end; Function Find_Sum(AFS:Vect):Integer; var p:byte; S:Integer; begin S:=0; for p:=1 to N do Inc(S,AFS[p]); Find_Sum:=S; end; Begin Randomize; for i:=1 to N do for j:=1 to N do begin A[i,j]:=-9+Random(10); if (i=5) or (j=5) then A[i,j]:=5; if i=7 then A[i,j]:=j; if j=7 then A[i,j]:=i; end; for i:=1 to N do begin for j:=1 to N do Write(A[i,j]:4); writeln; end; writeln; Find_Equal(A,K); if K[1]=0 then Writeln('No such strings and columns!') else begin Write('k: '); i:=1; repeat if K[i]>0 then begin Write(K[i]:4); Inc(i); end; until (K[i]=0) or (i>N); end; writeln; writeln; for i:=1 to N do begin t:=false; for j:=1 to N do if A[i,j]<0 then t:=true; if t then begin Sum:=Find_Sum(A[i]); Writeln('i = ',i,' Sum = ',Sum:4); end; end; Readln; End. |
04.12.2016, 16:36 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Говорю себе мысленно: "спокойно, спокойно, надо оставаться в рамках нормативной лексики, спокойно"... Но сдерживаюсь с трудом.
Ладно, попробуйте так: Код:
Const N=8; Type Matr=Array[1..N,1..N] of Integer; Vect=Array[1..N] of Integer; Var i,j:byte; A:Matr; K:Vect; t:boolean; Sum:Integer; Procedure Find_Equal(AFE:Matr; var KFE:Vect); var b:boolean; p,q,m:byte; begin m:=0; for p:=1 to N do begin b:=true; for q:=1 to N do if AFE[p,q]<>AFE[q,p] then b:=false; if b then begin Inc(m); KFE[m]:=p; end; end; end; Function Find_Sum(AFS:Vect):Integer; var p:byte; S:Integer; begin S:=0; for p:=1 to N do Inc(S,AFS[p]); Find_Sum:=S; end; Begin Randomize; for i:=1 to N do for j:=1 to N do begin A[i,j]:=-9+Random(10); if (i=5) or (j=5) then A[i,j]:=5; if i=7 then A[i,j]:=j; if j=7 then A[i,j]:=i; end; for i:=1 to N do begin for j:=1 to N do Write(A[i,j]:4); writeln; end; writeln; Find_Equal(A,K); if K[1]=0 then Writeln('No such strings and columns!') else begin Write('k: '); i:=1; repeat if K[i]>0 then begin Write(K[i]:4); Inc(i); end; until (K[i]=0) or (i>N); end; writeln; writeln; for i:=1 to N do begin t:=false; for j:=1 to N do if A[i,j]<0 then t:=true; if t then begin for j:=1 to N do K[j]:=A[i,j]; Sum:=Find_Sum(K); Writeln('i = ',i,' Sum = ',Sum:4); end; end; Readln; End. |
04.12.2016, 16:46 | #5 (permalink) |
Member
Регистрация: 07.04.2016
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Работает пасибо)
Владимир как обычно на высоте |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|