> Пишу прогу с исплльзованием решета Эратосфена. Препод - > зараза - требует, чтоб она была написана через ипользование > можеств SET. а я не могу вывести на экран множество. > описание: > VAR chisl: set of 0..255; > Далее я убираю из ентогог множества некоторые значения и > мне надо все, что осталось вывести на экран. КАК ЭТО > СДЕЛАТЬ???? Во-первых не претендую на абсолютную точность(не помню уже ничего)
Если ты определил таким образом это множество, то оно пустое в начале.
Что бы в него что-то занести необходимо выполнить операции вида:
chisl:=[0,1,2];
chisl:=[1..12,45];
и т.п.
Сложение/вычитание
chisl:=chisl-[1];
chisl:=chisl+[2.5];
По-моему еще есть пересечение, но я не помню как.
Теперь вывод
for i:=0 to 255 do
if ([i] in chisl) writeln(i);
in - операция проверки принадлежности
Пишу прогу с исплльзованием решета Эратосфена. Препод - зараза - требует, чтоб она была написана через ипользование можеств SET. а я не могу вывести на экран множество.
описание:
VAR chisl: set of 0..255;
Далее я убираю из ентогог множества некоторые значения и мне надо все, что осталось вывести на экран. КАК ЭТО СДЕЛАТЬ????
[Pascal] Нужна помощь по Паскалю - со множествами04.11.01 23:45 Автор: SEH Статус: Незарегистрированный пользователь
> Пишу прогу с исплльзованием решета Эратосфена. Препод - > зараза - требует, чтоб она была написана через ипользование > можеств SET. а я не могу вывести на экран множество. > описание: > VAR chisl: set of 0..255; > Далее я убираю из ентогог множества некоторые значения и > мне надо все, что осталось вывести на экран. КАК ЭТО > СДЕЛАТЬ???? Во-первых не претендую на абсолютную точность(не помню уже ничего)
Если ты определил таким образом это множество, то оно пустое в начале.
Что бы в него что-то занести необходимо выполнить операции вида:
chisl:=[0,1,2];
chisl:=[1..12,45];
и т.п.
Сложение/вычитание
chisl:=chisl-[1];
chisl:=chisl+[2.5];
По-моему еще есть пересечение, но я не помню как.
Теперь вывод
for i:=0 to 255 do
if ([i] in chisl) writeln(i);
in - операция проверки принадлежности
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
