Информатика: Построить функциональную схему ПО. По этой задаче. (Вложение)

antarxanoff2001

02.05.2023 14:35

Информатика

Есть ответ 👍

Построить функциональную схему ПО. По этой задаче. (Вложение)

210

314

Посмотреть ответы 1

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

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 у меня сейчас нет, так что проверяйте сами. если что не так - сообщайте.

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

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

Задай свой вопрос

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

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

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

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

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

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

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