турбо паскаль(множества)

[masterlomaster]

up теме.

A: set of 0..49
...........................................
        A:=[];
        Writeln ('Vvedite sisla ');
         for i:= 1 to n do
          Begin
           readln(c);
           A:=A+[c];
          end;
           for i:=1 to 49 do
            if i in A then write(i:4);

Сообщение от Serge_Bliznykov

так используйте сдвиг.
допустим, Вам нужно множество от -10 до 5
тогда сдвигаем все элементы множества на 10
получаем ss : set of 0..15;
ну и когда проверяем, добавляем элементы в множество прибавляем +10
например, как проверить, что -3 есть в данном множестве, а если нет - то добавить?

if Not ((-3 + 10) in ss) then Include(ss, (-3 + 10));

Как я понимаю, если нет 7 в множестве, то добавить цифру семь в множество.

Не пойму что это.


Например вот так написать нельзя A: set of -100..100.

Вот если записано 0..100 то все работает, и отрицательные числа уже не как в это множество не впихнуть, а мне нужно отрицательные вводить.

[Serge_Bliznykov]

Сообщение от masterlomaster

Вижу, что не понимаете...
А я думал, раз поблагодарили, значит поняли идею...

Нет, процитированный код не добавляет 7 в множество.
Точнее не так. Формально он добавляет 7 в множество. Но, т.к. мы всё сдвинули. Мы СЧИТАЕМ, что тем самым он добавляет закодированную -3 в множество.
И когда нам надо будет проверить, если ли -3 в данном множестве, мы будет проверять не -3 (это нам Паскаль не позволяет), а СДВИНУТОЕ (закодированное) значение.

давай ещё раз попробуем на примере.

Например вот так написать нельзя A: set of -100..100.

Точно. Поэтому надо записать так:

A: set of 0..200; {всё сдвинули на 100}
...........................................
        A:=[];
        Writeln ('Vvedite chisla (от -100 до 100) ');
         for i:= 1 to n do
          Begin
           readln(c);
           if (c>=-100) and (c<=100) then begin
                {закодируем числа путём сдвига на 100}
                 c := c + 100;
                A:=A+[c];
           end;
          end;
         
          {ввод элементов множества}
           for i:=0 to 200 do
              if i in A then write((i-100):5); {-100 - это чтобы из закодированного, сдвинутого значения получить исходное}

Так понятнее?!