переделывали в инсте стэк, но я забыл его скачать, сам никак не могу вспомнить, пожалста переделайте ентот пас, чтоб стэк работал для символов, для задачи оч надо на завтра
Сообщение отредактировано: kr3v3tkus -
стэк для символов, переделать |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
стэк для символов, переделать |
kr3v3tkus |
Сообщение
#1
|
Пионер Группа: Пользователи Сообщений: 111 Пол: Мужской Реальное имя: Рома Репутация: 0 |
переделывали в инсте стэк, но я забыл его скачать, сам никак не могу вспомнить, пожалста переделайте ентот пас, чтоб стэк работал для символов, для задачи оч надо на завтра
Сообщение отредактировано: kr3v3tkus - Прикрепленные файлы MyStack.pas ( 1.16 килобайт ) Кол-во скачиваний: 305 -------------------- Цитата . . \__/ (**) (>:=:=:~~ ^ ^ ^ ^ Креветка присваивания :DDD |
kr3v3tkus |
Сообщение
#2
|
Пионер Группа: Пользователи Сообщений: 111 Пол: Мужской Реальное имя: Рома Репутация: 0 |
фуф отмучил :D
мисс_граффити ууу пасиба терь после наглядного примера усё стало по полкам Код q:=0; i:=1; ch:=Memo1.Lines[0][1]; while ch<>';' do begin l.Push(ch); ch:=Memo1.Lines[i][1]; inc(q); inc(i); end; q:=(i div 2); {howmessage(inttostr(q));} for i := q+1 to 2*q do begin l.Pop(ch); t.Push(ch); end; for i := q+1 to 2*q do begin t.Pop(ch); p.Push(ch); Memo2.Lines.Add(ch); end; while (not l.Empty) do begin l.Pop(ch); t.Push(ch); end; while (not t.Empty) do begin t.Pop(ch); p.Push(ch); Memo2.Lines.Add(ch); end; ток пришлося 3 стэка делать, чтоб перевернуть усё это гадство как надо ;))) ща буду ещё очередь отмучивать Сообщение отредактировано: kr3v3tkus - -------------------- Цитата . . \__/ (**) (>:=:=:~~ ^ ^ ^ ^ Креветка присваивания :DDD |
Текстовая версия | 29.04.2024 1:48 |