Регистрация Спросить otvet5GPT
анна2170
05.04.2023 10:00
Информатика
Есть ответ 👍

Дан стек символов. преобразовать стек, оставив в нем из группы подряд идущих символов только один - delphi procedure tform1.button4click(sender: tobject); var buff: tnodepointer; x: titem; i: cardinal; begin i: =0; buff: =head; if(buff^.next=nil) then begin showmessage('в стеке один элемент! '); exit; end; while buff < > nil do begin if(buff^.data=buff^.next^.data) then begin while (buff^.next< > nil) and (buff^.data=buff^.next^.data) and not(isempty(buff)) do begin pop(buff^.next,x); for i: =0 to stringgrid1.rowcount-2 do begin stringgrid1.cells[0,i]: =stringgrid1.cells[0,i+1] end; stringgrid1.rowcount: =stringgrid1.rowcount-1; end; end; buff: =buff^.next; end; end; end. с данной , в общем если ввести к примеру 1 2 3 4 5 5 5 5 , то останется 1 2 3 4 5, а если ввести 1 2 3 4 5 5 5 5 6, то остается 1 2 3 4 5 5, не знаю с чем связано. скорее всего ошибка с выводом на stringgrid так же прикладываю проект

204
251
Посмотреть ответы 2

Ответы на вопрос:

romanenckoalia
romanenckoalia
4,5(97 оценок)
Procedure tform1.button4click(sender: tobject); var buff: tnodepointer; x: titem; i,j: cardinal; begin   i: =0;   buff: =head;   if(buff^.next=nil) then   begin   showmessage('в стеке один элемент! ');   exit;   end; while buff < > nil do begin   while (buff^.next< > nil) and (buff^.data=buff^.next^.data) and not(isempty(buff)) do   begin   pop(buff^.next,x);   for j: =i to stringgrid1.rowcount-2 do     stringgrid1.cells[0,j]: =stringgrid1.cells[0,j+1];   stringgrid1.rowcount: =stringgrid1.rowcount-1;   end;   buff: =buff^.next;   i: =i+1; end; end; ps. delphi у меня сейчас нет, так что проверяйте сами. если что не так - сообщайте.
диля1234567асем
диля1234567асем
4,4(63 оценок)
Постепенно: превращая   логограммы  идеографические  в  фонетические,   в  знаки, хотя и обозначающие целое слово, но непосредственно связанные не с его значение, а его звучанием например иероглиф «хт» — изображение дома — сделался двухбуквенным иероглифом, обозначающим звук [хт], иероглиф «мн» — изображение шахматной доски — стал иероглифом, обозначающим два звука [мн] и т.д

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS