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

[masterlomaster]

Мне нужно вводить в множество отрицательные числа.
Например:
A: set of 1..5; это только положительные цифры, как же отрицательные вводить?

[netrino]

A: set of -128 .. 127;

?

[masterlomaster]

то что вы написали, на это он ругается!

[Вадим Мошев]

По-моему, множества в Паскале не могут содержать отрицательные значения. В своё время меня компилятор тоже обругал за то, что я пытался засунуть в множества число (-1).

Вот ещё:
http://comp-science.narod.ru/Progr/mn.htm

Особенно интересно вот это:

Множество может принимать все значения базового типа. Базовый тип не должен превышать 256 возможных значений. Поэтому базовым типом множества могут быть byte, char, boolean и производные от них типы.

[masterlomaster]

Есть ли какой-нибуть выход? Нужно отрицательные ввести.

[netrino]

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

то что вы написали, на это он ругается!

Действительно, проверял не в турбо паскале, потому всё нормально было. Тогда не знаю)

[Вадим Мошев]

Извратиться можно конечно.

masterlomaster

Попробуйте создать дополнительное множество, а в программе указать, что если элементы берутся из этого множества, то считать их отрицательными и умножать на (-1)...

[masterlomaster]

Он игнорирует отрицательные числа, не получается.

[Serge_Bliznykov]

Он игнорирует отрицательные числа, не получается.

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

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

[masterlomaster]

Спасибо!!!