Delphi Множества

[kat297]

Дана матрица А размерностью [NxN] элементов целого типа из диапазона от 0 до 255. Не используя вспомогательных массивов и не изменяя порядка элементов матрицы А установите, можно ли граничными элементами матрицы заполнить внутреннюю её часть: граничные элементы при заполнении могут использоваться неоднократно


Дана матрица А размерностью [NxN] элементов целого типа из диапазона от -127 до 127. Не используя вспомогательных массивов и не изменяя порядка элементов матрицы А вывести в порядке убывания все различные элементы матрицы, встречающиеся в главной и побочной диагоналях матрицы

[Serge_Bliznykov]

первую задачу я не понял вообще, что значит - можно ли заполнить внутреннюю часть?! Да, можно. Всегда! В любом случае! Ведь условий, ограничивающих заполнениние - нет!!

а вторая задачка специально заточена под множества.
Решается примерно так:

const N = 10;
type MyShortInt = 0..254;
var
  i, j, k : integer;
  A : array[1..N,1..N] of ShortInt;
  s : MyShortInt;
  Diagonal : set of MyShortInt;
begin
  Randomize;
  WriteLn;
  for i:=1 to N do begin
    for j:=1 to N do begin
      k := Random(254);
      k := k - 127;
      A[i,j] := k;
      Write(A[i,j]:6);
    end;
    WriteLn;
  end;

  Diagonal := [];

  {по главной диагонали прошлись}
  for i:=1 to N do Include(Diagonal, A[i,i]+127 );


  {по побочной диагонали прошлись}
  for i:=1 to N do Include(Diagonal, A[i,N-i+1]+127);


  {вывод результатов (в убывающем порядке) }
  WriteLn;
  WriteLn('Результат: ');
  for s := 254 downto 0 do
     if s in Diagonal then Write((s-127):5);

  readln;
  

end.

[Utkin]

Возможно, имеется ввиду, что граничные элементы внутри встречаться не должны...

[Serge_Bliznykov]

Возможно, имеется ввиду, что граничные элементы внутри встречаться не должны...

да, может быть. Но, если я правильно понимаю, об этом должно быть сказано в задании...

[Kingdom_Reborn]

Вместо MyShortint можно стандартный Byte использовать, разнца в одно число...

[Serge_Bliznykov]

Вместо MyShortint можно стандартный Byte использовать, разнца в одно число...

угу. вполне

[Stilet]

Да, можно. Всегда! В любом случае!

Да ладно? Не всегда можно
Если длина периметра более чем площадь внутренних ячеек то нельзя.
Другое дело что автор не указала что с периметра нельзя переносить разные ячейки в одни и те же внутринние , а так мона проверить.

 var x,n,m:integer;
begin
 n:=3;
 m:=3;
 x:=n*m-2*n-2*n-4;
 write(x>(n*m));
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Вот вроде не ошибаюсь.

[kat297]

Ммм... Как я поняла, то если множество внутренних элементов включено во множество граничных элементов...

[Serge_Bliznykov]

Как я поняла, то если множество внутренних элементов включено во множество граничных элементов...

К сожалению, это пустые разговоры...
давайте так. Вы задание поняли?
Приведите два конкретных примера маленьких матриц - один случай, когда можно граничными заполнить внутренние,
второй — когда нельзя. поясните почему. тогда можно будет и с решением что подсказать.

[kat297]

1234
5596
7568
9637
Вот, как я понимаю, в этом случае это возможно, т.к. внутренняя часть заполнена элементами {5,6,9} (которые, как указано в задании (граничные элементы при заполнении могут использоваться неоднократно) могут повторятся, например эл-т 5 (у меня их 2)) и {5,6,9}включено в{1,2,3,4,5,6,7,8,9}

1234
5596
7568
3637
А тут не может, т.к. в множестве граничных элементов нет внутреннего элемента 9

Кажется так...