 Стек, рекрусивная фун-цию вывода нечёт чисел |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Dunkel_L |
 15.11.2005 13:02
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 25 Пол: Мужской Репутация:  0   |
Нужна рекрусивная фун-ция вывода нечётных чисел в стеке
|
   |
 
|
  |
Ответов
| Дож |
19.11.2005 16:43
Сообщение
#2
|
 Бывалый Группа: Пользователи Сообщений: 179 Пол: Мужской Репутация: 1 |
Код Procedure oddNumber(var stack_1, stack_2: TStack); begin If not(stack_1.empty) then begin if odd(stack_1.top) then writeln(stack_1.top); stack_2.push(stack_1.pop); oddNumber(stack_1, stack_2); {Рекурсия!} stack_1.push(stack_2.pop); end; end; Протестировал, вроде бы работает... -------------------- Доброго времени суток.
:nnn: |
|
|
|
Сообщений в этой теме
Dunkel_L Стек 15.11.2005 13:02
volvo To: Dunkel_L
Уточни, что именно тебе надо? Удалят... 15.11.2005 13:06 Dunkel_L Да, сам стек реализован.
Мне нужно пройти по нему ... 15.11.2005 13:51 volvo To: Dunkel_L
Мне не хотелось бы тебя огорчать, но... 15.11.2005 14:02 Dunkel_L Нам задали, цитирую:
Написать рекурсивную процедур... 15.11.2005 14:13 volvo To: Dunkel_L
Ну пойми, ты не можешь ВЫБИРАТЬ четн... 15.11.2005 14:32 Dunkel_L А нельзя ,когда проходишь по стеку и найдя нечётны... 15.11.2005 20:41 volvo Тогда так (используй 2 стека):
stack_1, stack_2: T... 15.11.2005 20:46 Dunkel_L Это всё хорошо, но куда этот код всавить.Теперь с... 22.11.2005 7:03 volvo Dunkel_L, ты сначала процедуру menu перепиши как п... 22.11.2005 10:41 Dunkel_L Показал преподу лабу.Всё хорошо работает, НО это н... 27.11.2005 19:56 volvo
Ну, когда научишься из обоймы вытаскивать 3, 5, 7... 27.11.2005 20:01 volvo А вот обмануть компилятор можно:
procedure Odds(co... 27.11.2005 20:31
Dunkel_L БОЛЬШОЕ СПАСИБО Все нормально, СДАЛ!!... 29.11.2005 14:07 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 27.07.2025 7:27 |