Элементы матрицы расположенные по периметру Опции

[Lidroot]

Вообщем задача: Найти некоторые элементы(не вожно какие!) среди элементов матрицы, расположенных по периметру.
Я думаю это сделать гдето так:

Код

for i:=1 to 6 do
for j:=1 to 6 do
begin
if (i:=1) and (k=0) then
begin
c(count):=a[i,j];
k:=1;
inc(count);
end;
if (i:=6) and (k=0) then
begin
c(count):=a[i,j];
k:=1;
inc(count);
end;
if (j:=1) and (k=0) then
begin
c(count):=a[i,j];
k:=1;
inc(count);
end;
if (j:=6) and (k=0) then
begin
c(count):=a[i,j];
k:=1;
inc(count);
end;
end;

но мне кажется это громоздким. Может что нить еще можно сделать?

Сообщение отредактировано: Lidroot - 31.10.2005 17:45

[APAL]

Так как

не вожно какие!

:

For i:=1 to 6 do Write(a[i,1],#10#13,a[i,6],#10#13,a[1,i],#10#13,a[6,i],#10#13);

Интересно, что дает конструкция:

Код

c(count):=a[i,j];
k:=1;

?

[volvo]

To: APAL
А дублироваться элементы не будут?

Я бы сделал так:

  for i := 1 to n do
    for j := 1 to n do
      if (i in [1, n]) or (j in [1, n]) then begin
        write(a[i, j]:5);
      end;

[APAL]

Конечно будут! Угловые.

Но именно так я понял условия:

не вожно какие!

[Lidroot]

Интересно, что дает конструкция:

c(count):=a[i,j];
k:=1;

это я значения по периметру вношу в массив c.

(не вожно какие!)

Извините за ошибку

И еще дублирования быть не должно!

[volvo]

дублирования быть не должно!

Тогда так...

const
  n = 6;
  a: array[1 .. n, 1 .. n] of integer =
    (
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6)
    );

var
  i, j: integer;
  k, count: integer;

  arr: array[1 .. 4 * n] of integer;

procedure add_buffer(x: integer);
begin
  inc(count);
  arr[count] := X;
end;

begin
  count := 0;

  for i := 1 to n do add_buffer(a[1, i]);
  for j := 2 to pred(n) do
    add_buffer(a[j, n]);
  for i := n downto 1 do add_buffer(a[n, i]);
  for j := pred(n) downto 2 do
    add_buffer(a[j, 1]);

  for i := 1 to count do
    write(arr[i]:4);
  writeln;

end.

[AruNimotsi]

Допустим массив NxM элементов (а не 6х6)
в общем случае поиск можно былобы организовать tak

Код

Fori:=1 to n do
  forj:=1 to m do
  if (i=1)or(j=1)or(i=n)or(j=m) then begin end;

и заметьте - никакого дубляжа

[volvo]

To: AruNimotsi
Этот способ уже приводился... Пост №4 внимательно читай.

Кстати, при твоем способе порядок следования элементов сохранится? А что автору надо?

Так что подумай, прежде чем что-то написать !!! И Внимательно читай задание и дополнения к нему.