Delphi Множества

[kat297]

А как можно описать (задать) внутренние и внешние элементы матрицы?)

[Serge_Bliznykov]

А как можно описать (задать) внутренние и внешние элементы матрицы?)

Вам нужно сделать ввод матрицы (либо оператор вводит, либо читать из файла), или, можно заполнить матрицу случайными числами.

[kat297]

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

[Stilet]

Немного не поняли вопрос.

Вот тут ты в точку...
Я лично окончательно запутался.
Правильно ли я думаю - если какого либо элемента внутри периметра матрицы нет в самом ее периметре то ответ - "нет"?

[kat297]

Вроде бы так)

[kat297]

Подскажите пожалуйста, как можно добавить в множество внутренние элементы?

[Serge_Bliznykov]

так:

InnerSet := [];
for i:=2 to N-1 do
  for j:=2 to N-1 do
     Include(InnerSet, Mas[i,j]);

[kat297]

program Project1;

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

{$APPTYPE CONSOLE}

uses
SysUtils;

const N = 4;
var
i, j, k : integer;
A : array[1..N,1..N] of byte;
s : byte;
Gran,Gran1,Vnutr : set of byte;
begin
Randomize;
WriteLn;
for i:=1 to N do begin
for j:=1 to N do begin
k := Random(6);
A[i,j] := k;
Write(A[i,j]:6);
end;
WriteLn;
end;
Gran := [];
Vnutr := [];
Gran1 := [];
for i:=2 to N-1 do
for j:=2 to N-1 do
Include(Vnutr, A[i,j]);
for i:=1 to N do
for j:=1 to N do
Include(Gran1, A[i,j]);
Gran:=Gran1-Vnutr;
If (Vnutr <= Gran) then Writeln('mogno')
else Writeln('Net');
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Маленькая проба ...Но не работает...постоянно показывает отрицательный результат, что нельзя составить....Тут что-то намудрила...

[Kingdom_Reborn]

Ну я вижу, что вы множество граничных элементов неправильно находите. Вы из множества всех элементов вычитаете внутренние. Если у вас есть внутренний элемент 5 и на границе тоже есть элемент 5, то когда вы из всех элементов вычтите внутренние, то у вас эта пятёрка пропадёт, хотя она на границе есть...

////////////////////

вот как бы так должно быть, правда в задание я так и не въехал

const
    Nmax = 10;
var
    i, j, N: Integer;
    A: Array[1..Nmax, 1..Nmax] of Byte;
    S1, S2: Set of Byte;
begin
    ClrScr;
    Randomize;
    N := 4;
    for i := 1 to N do
    begin
        for j := 1 to N do
        begin
            A[i, j] := Random(6);
            Write(A[i, j]:6, ' ');
        end;
        WriteLn;
    end;
    S1 := [];
    S2 := [];
    for i := 2 to N - 1 do
        for j := 2 to N - 1 do
            S1 :=  S1 + [A[i, j]];
    for i := 1 to N do
        S2 := S2 + [A[1, i]] + [A[N, i]];
    for i := 1 to N do
        S2 := S2 + [A[i, 1]] + [A[i, N]];
    if S1 <= S2 then WriteLn('Yes') else WriteLn('No');
    ReadLn;
end.

kat297, вы отступы в тексте программы делайте, так удобнее читать программу...

[kat297]

О, спасибище огромное)