Вывод множеств, Как вывести на экран множества Опции

[pank]

Добрый день, извините за, возможно, глупый вопрос - как вывести на экран множество, оператор write не работает. У меня множество чисел от 1 до N, я формирую из него подмножество элементов( m1), не превышающих 10, как их вывести на экран? Печатать команду:

for i:=1 to N do
if (i in m1) then write(i)

или есть другой способ?

[Lapp]

pank, разговор останется беспредметным, если ты не приведешь весь код (или то, что относится к множествам, о которых речь).
У меня есть конкретное подозрение, что ты хотя и организовала переменные для множеств m и m1, на самом деле ничего туда не положила, то есть они у тя пустые. Вот ниже код, который той же самой конструкцией, что и у тебя, печатает то, что требуется.

const
  N=20;

var
  m1:set of 1..N;
  i:integer;

begin
  m1:=[1,2,3];
  for i:=1 to N do if i in m1 then Write(i,' ');
  ReadLn;
end.

Обрати внимание на присвоение m1 конкретных элементов.

Сообщение отредактировано: Altair - 21.01.2006 14:50