![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 28.11.2012
Сообщений: 4
|
![]()
Здравствуйте! Нужно написать программу в Delphi.
Вычислите сумму тех элементов списка, значения которых меньше значений всех элементов, непосредственно следующих за ним. ______________ Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы. На первый раз я исправил. В последующем, темы с подобным названием будут закрываться или удаляться, а автор такой темы будет получать штрафные баллы. Учтите это на будущее. Модератор. Последний раз редактировалось Serge_Bliznykov; 28.11.2012 в 00:59. |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
наработки свои давайте.
Как минимум - ваш код, где Вы описываете список и заполняете его значениями... |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 25.11.2012
Сообщений: 13
|
![]()
[QUOTE=Liba;1139441]Здравствуйте! Нужно написать программу в Delphi.
Вычислите сумму тех элементов списка, значения которых меньше значений всех элементов, непосредственно следующих за ним. Если собрались писать сами, то вот идея: нужно идти с конца списка, накапливая минимум пройденных элементов. Если очередной элемент меньше минимума пройденных, добавляем его к сумме.
С глубоким уважением,
Александр |
![]() |
![]() |
![]() |
#4 |
Регистрация: 28.11.2012
Сообщений: 4
|
![]()
Вот, вроде работает нормально))
Код:
________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (это кнопочка с решёточкой #) Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 29.11.2012 в 22:12. |
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
Liba, я не хочу Вас расстраивать, но "списка" в вашем решении нет!
Вы сделали через массивы (тем более, чем статические!), допускаю, что это может "прокатить", но, будьте морально готовы, есть высокая доля вероятности, что решение не будет зачтено... |
![]() |
![]() |
![]() |
#6 |
Регистрация: 28.11.2012
Сообщений: 4
|
![]()
Не тот код скинул.. Совсем слепой стал :D
Вот) Код:
Последний раз редактировалось Liba; 29.11.2012 в 22:45. |
![]() |
![]() |
![]() |
#7 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
уже лучше. Только всё равно неверно.
Выбросите из программы массив a : array [1..100] of List; Совсем. Вместо него добавьте переменную типа PList, которая указывает на "голову" списка. И дальше всё взаимодействие со списком стройте через этот указатель. Память под список выделяйте с помощью процедуры New() А вообще по сути список, это набор связанных данных. Поле Next показывает на следующий элемент в списке, в нём - на следующих и т.д. Пока не встретим значение NIL в поле Next. Поищите, тут на форуме огромная туча примеров кода работы с динамическими списками... |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывести номера тех столбцов, сумма элементов которых меньше нуля, и число таких столбцов | Half | Помощь студентам | 7 | 16.04.2012 21:23 |
Вычислить сумму элементов массива, порядковые номера которых совпадают со значением этого элемента. | zzz6 | Общие вопросы C/C++ | 4 | 18.10.2011 03:19 |
Вычислить сумму элементов массива до и после максимального значения | doter | Общие вопросы C/C++ | 3 | 24.10.2010 17:51 |
Вычислить сумму тех элементов преобразованного массива, которые находятся в диапазоне [–1, 16] | Mirel | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 04.04.2010 10:58 |