Множество должно удовлетворять
const
maxDigit = 10000;
ArraySize = maxDigit div (high (byte) + 1);
type
TSet = set of byte;
PSet = ^TSet;
TBigSet = array [0..ArraySize] of PSet;
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Модуль для работы с множествами |
*alt |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 47 Пол: Мужской Репутация: 0 |
Реализовать Модуль для работы с множествами целых чисел, число элементов в котором больше, чем 256. Модуль должен содержать процедуры инициализации множества, включения, исключения элемента, проверки принадлежности элемента множеству; объединения, пересечения и разности множеств. Написать программу, иллюстрирующую работу данного модуля/
Множество должно удовлетворять
|
volvo |
Сообщение
#2
|
Гость |
Что переделать? Сделать указатели вместо собственно Set-ов?
TSet = array[0 .. pred(amount)] of T; написать TSet = array[0 .. pred(amount)] of ^T; (ну, и в остальных местах вместо s[ i ] поставить s[ i ]^, где нужно. Компилятор знает, где нужно) Только теперь учти, что если раньше можно было сразу начинать пользоваться "множеством", то теперь, поскольку должна выделяться память, перед тем, как им пользоваться, его надо инициализировать... Вот так: ... { тут все предыдушие описания } Операции Цитата объединения, пересечения и разности множеств аналогичны по своей сути, меняются только знаки, так что остальные допишешь сам... |
Текстовая версия | 16.05.2024 19:15 |