ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Задачка по Паскаль на множество... Поогите пожалуйстаааа...
15 сообщений из 15, страница 1 из 1
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145048
Inebs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inebs
Участник
Здравствуйте!
Может быть кто-то помнит как работать с множествами в Паскале.
Задача простая, но не помню какой-то момент и не могу решить.
Например. Подсчитать среднее арифметическое элементов множества.
Каким образом обращаться к каждому элементу множетсва?
L - так орет ошибку...
А перебором в цикле
For i:=1 to N do
if i in L then.....
как-то нехорошо. Да и если надо будет вывести элементы множества, сохраняя взаимный порядок элементов? Тогда так не получится....
Может быть кто-то подскажет????
Очень-очень надо... хотя бы намекнуть.... :((
...
Рейтинг: 0 / 0
21.04.2003, 13:31
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145063
m_kus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m_kus
Гость
... Да и если надо будет вывести элементы множества, сохраняя взаимный порядок элементов? Тогда так не получится....
Дело в том, что множество в паскале - неупорядоченный набор элементов, поэтому ни о каком порядке не может идти речь, то бишь порядок всегда один - по возрастанию...
Если не нравится цикл по элементам, можешь работать так:
Код: plaintext
1.
2.
3.
4.
5.
 el:=Low(L);
 repeat
    ...
    el:=Succ(L);
 until el=High(L);

Не уверен в синтаксисе - по памяти пишу...
Но по скорости вряд ли будет заметное улучшение - скорее всего Succ чтобы найти следующий элемент, перебирает последовательно все элементы пока не встретит тот, который "in L"...
Хочется упорядоченного множества - наследуй TList
...
Рейтинг: 0 / 0
21.04.2003, 14:13
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145077
Артем1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артем1
Участник
Для вашей задачи реализация множеств в Pascal, IMHO, не очень подойдет.
Посмотрите в сторону матриц. Поищите математические библиотеки на Паскале. Если не получится ими воспользоваться, то, хотя-бы посмотрите, как там все организовано. А вообще, если интересно покопаться, то m_kus предложил хорошее решение: унаследовать свой класс от TList и на его методах определить необходимый вам набор операций.
...
Рейтинг: 0 / 0
21.04.2003, 14:17
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145084
Inebs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inebs
Участник
Да это первый курс (хм... попросили решить а я ... :( ). Там о классах и речь не идет.
Там задачка
Вывести все элементы множества входящие в отрезок [a,b] сохраняя взаимный исходный порядок.
Раз есть последняя фраза, я подумала, что наверное упорядочено как-то.. Хотя везде и правда написано, что множество - набор. и только. Порядка там нет.
Спасибо! я забыла что можно использовать Succ и Pred...
Спасибо! Попробую... :))
...
Рейтинг: 0 / 0
21.04.2003, 14:23
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145096
Inebs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inebs
Участник
ОЙ...нашла что во множествах не применябт succ и pred... это только символьным, булевым и еще каким-то типам....
Наверное на фразу "сохранять исходные порядок не надо обращать внимания да?"
А еще, ели тип описан как set of 1..9
то туда буду входить числа -9 -8 -7 -6 ... -1 0 1 2 3 ...
Правильно?
...
Рейтинг: 0 / 0
21.04.2003, 14:36
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145100
Kaa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kaa
Участник
А нефигово бы было эелементы мн-ва в массиве забацать и не задавать такие вопросы!
...
Рейтинг: 0 / 0
21.04.2003, 14:37
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145109
m_kus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m_kus
Гость
Мда, наврал про Pred и Succ...
Я так понимаю в set of 1..9 отрицательные числа и 0 не входят...
А на слова про порядок... Кто знает, что имел ввиду, человек, составляющий задачу? Может порядок и означает обычный порядок, по возрастанию?
...
Рейтинг: 0 / 0
21.04.2003, 14:42
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145117
oleg_e
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg_e
Участник
А можно полный текст задачи?
...
Рейтинг: 0 / 0
21.04.2003, 14:49
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145120
Inebs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inebs
Участник
Массив - конечно проще. но тема- то "МНОЖЕСТВО"!
А если отрицательные не входят. То как же туда эти отрицательные внести?
Set Of -1..3 орет ошибку...
буду думать... спасибо.
...
Рейтинг: 0 / 0
21.04.2003, 14:50
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145137
m_kus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m_kus
Гость
Из хелпа:

The base type can have no more than 256 possible values, and their ordinalities must fall between 0 and 255.
...
Рейтинг: 0 / 0
21.04.2003, 15:00
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145147
Inebs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inebs
Участник
Ну вот... а задача-то звучит -
Вывести на печать все отрицательные элементы множества ...
Как же быть???
...
Рейтинг: 0 / 0
21.04.2003, 15:06
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145157
oleg_e
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg_e
Участник
Полный текст задачи и того, кто его придумал!
...
Рейтинг: 0 / 0
21.04.2003, 15:14
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145162
Inebs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inebs
Участник
Не знаю кто придумал.... :(
"Описать процедуру, которая удаляет из списка все отрицательные элементы."
Да, янашла пример-упражнение, и там список был представлен как [-3..3] Значит бывают отрицательные?
...
Рейтинг: 0 / 0
21.04.2003, 15:19
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145172
oleg_e
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg_e
Участник
Так, все таки, список или множество?
...
Рейтинг: 0 / 0
21.04.2003, 15:25
| Ответить | Цитировать | Написать  
Задачка по Паскаль на множество... Поогите пожалуйстаааа...
    #32145178
Inebs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inebs
Участник
кажется я малость не туда смотрела... чегой-то я подумала что это одно и тоже...
...
Рейтинг: 0 / 0
21.04.2003, 15:29
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Задачка по Паскаль на множество... Поогите пожалуйстаааа...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]