Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
|
[Pascal] Нужна помощь по Паскалю - со множествами 04.11.01 23:45 Число просмотров: 1151
Автор: 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 - операция проверки принадлежности
|
|
<programming>
|
[Pascal] Нужна помощь по Паскалю - со множествами 04.11.01 16:44
Автор: Дример Статус: Незарегистрированный пользователь
|
Пишу прогу с исплльзованием решета Эратосфена. Препод - зараза - требует, чтоб она была написана через ипользование можеств 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 - операция проверки принадлежности
|
|
|
подробно о проекте
Анализ криптографических сетевых...
