IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задача о стеках
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской
Реальное имя: Арслан

Репутация: -  0  +


Даны три стека, наполненные натуральными числами и четвертый стек пустой. В четвертый стек поместить три числа, являющиеся максимальными числами в первом, втором и третьем стеке. В четвертом стеке числа расположить в порядке неубывания, а в первых трех стеках порядок расположения оставшихся чисел оставить прежним.

Т.е. я понимаю так: через пробел в программе вводится числа в первый стек и нуль завершает ввод, потом второй и соответственно третий стек. Затем программа выводит три максимальных числа из каждого стека в порядке неубывания.

Уже которую неделю парюсь и все безуспешно... Ну не могу понять я эти стеки.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






В той программе, которую я тебе привел, в стек заносятся случайные числа, причем их количество тоже случайно... Если хочешь вводить самостоятельно -
  for i := 1 to 3 do begin
st_arr[i].init;
for j := 1 to random(10) + 10 do
st_arr[i].push(random(1000));
end;


замени на

  for i := 1 to 3 do begin
st_arr[i].init;
k := random(10) + 10;
writeln('stack #', i, ' -> ', k, ' elements ...');
for j := 1 to k do begin
write(' -> '); readln(X); st_arr[i].push(X);
end;
end;
и опиши еще переменные k, X рядом с i, j ...

А чтобы увидеть результаты выполнения программы, перед последним End. добавь ReadLn ...
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Murderer   Задача о стеках   3.04.2007 22:39
klem4   Все о динамических структурах данных. Тут был ?   3.04.2007 22:41
Murderer   Там то я был... но мозг видать у меня не может пон…   3.04.2007 22:50
volvo   Можно обойтись четырьмя... Сначала проходишь по к…   4.04.2007 2:23
Murderer   Вот именно что никак. У меня даже кода программног…   4.04.2007 9:40
klem4   type TData = Integer; PTListItem = ^TlistIte…   4.04.2007 11:08
volvo   klem4, список <> стек ... Вся сложность-то к…   4.04.2007 14:10
klem4   И соответственно после обращения этот элемент из…   4.04.2007 14:19
volvo   Смотря какую операцию вызывать... Может, удаляется…   4.04.2007 14:26
klem4   Вот что пока выходит: Добваляем ф-ю Pop, изменяе…   4.04.2007 16:37
volvo   Вариант №2: type ttype = integer; ptitem = ^t…   4.04.2007 16:59
Murderer   Спасибо вам огромное! Не ожидал. А как сделать…   4.04.2007 21:44
Murderer   Простите. Просто я начинающий в паскале и сейчас е…   4.04.2007 23:33
volvo   В той программе, которую я тебе привел, в стек зан…   4.04.2007 23:46
Murderer   А чтобы увидеть результаты выполнения программы, …   5.04.2007 0:47
Murderer   А вот в приведенной программе как сделать так, что…   5.04.2007 18:45
volvo   for i := 1 to 3 do begin st_arr[i].init; …   5.04.2007 18:57
Murderer   Да, я видать глупость сморозил. Я хотел просто вме…   5.04.2007 19:00
Murderer   Все равно не выходит! Что мне исправить, чтобы…   5.04.2007 19:44
volvo   Так... Давай договоримся, ты присоединяешь СВОЮ пр…   5.04.2007 21:12
Murderer   И все таки... что мне нужно исправить, чтобы я сам…   11.04.2007 21:35
volvo   Предыдущее сообщение ты проигнорировал? Хорошо, з…   11.04.2007 21:38
Murderer   Извини Вольво! Просто очень надо, а я не силен…   11.04.2007 21:59
Lapp   чтобы я нужное мне число элементов вводил в прогр…   16.06.2007 17:15
Murderer   Там что исправить надо?   11.04.2007 22:36


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 20:14
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name