переделывали в инсте стэк, но я забыл его скачать, сам никак не могу вспомнить, пожалста переделайте ентот пас, чтоб стэк работал для символов, для задачи оч надо на завтра
Сообщение отредактировано: kr3v3tkus -
стэк для символов, переделать |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
стэк для символов, переделать |
kr3v3tkus |
Сообщение
#1
|
Пионер Группа: Пользователи Сообщений: 111 Пол: Мужской Реальное имя: Рома Репутация: 0 |
переделывали в инсте стэк, но я забыл его скачать, сам никак не могу вспомнить, пожалста переделайте ентот пас, чтоб стэк работал для символов, для задачи оч надо на завтра
Сообщение отредактировано: kr3v3tkus - Прикрепленные файлы MyStack.pas ( 1.16 килобайт ) Кол-во скачиваний: 305 -------------------- Цитата . . \__/ (**) (>:=:=:~~ ^ ^ ^ ^ Креветка присваивания :DDD |
kr3v3tkus |
Сообщение
#2
|
Пионер Группа: Пользователи Сообщений: 111 Пол: Мужской Реальное имя: Рома Репутация: 0 |
По первому
Правда всё равно ничё не могу никак сделать с этим стэком ((( Ужасть как фигово иметь препода из другого города, который считает что нас на родине чемуто учат если ещё совсем не надоел , то глобальный вопрос ) - нужно стеком поменять первую половину строк с символами со второй местами, тоесть a c b d c a d b ; На форме 2 мемо и кнопка я ваще какуюто черноту накатал( ето для второй половины) Код i:=0; while (i<memo1.Lines.Count)and(Memo1.Lines[i]<>';') do inc(i); q:=(i div 2); if (i mod 2)<>0 then inc(q); while (q<>0) do begin l.Pop(q); p.Push(q); Memo2.Lines.Add(IntToStr(q)); dec(q); end; Вот когда мы уже запустили программу и вводим вручную символы, как засунуть их в стэк? мож там на евент Onchange ставить пуш? кароче ваще плыву Сообщение отредактировано: kr3v3tkus - -------------------- Цитата . . \__/ (**) (>:=:=:~~ ^ ^ ^ ^ Креветка присваивания :DDD |
Текстовая версия | 28.04.2024 10:24 |