В ПРОГРАММЕ EXCEL. БУДУ ОЧЕНЬ БЛАГОДАРНА КАЖДОМУ ВЫПОЛНИТЬ ВСЕ ЗАДАНИЯ В ПРОГРАММЕ EXCEL И ПРИСЛАТЬ В ОТВЕТАХ.ФОТО ЗАДАНИЙ НИЖЕ
248
484
Ответы на вопрос:
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 у меня сейчас нет, так что проверяйте сами. если что не так - сообщайте.
Популярно: Информатика
-
notasmart17.04.2023 17:57
-
belbeksev02.07.2021 15:16
-
abdigalikova170805.05.2020 20:13
-
george3916.12.2021 07:28
-
homie5119.12.2022 07:19
-
hehdsfg113.02.2023 18:14
-
Eennoottt10.02.2023 23:53
-
LebedevAleksand17.01.2020 13:23
-
Иван5555112.03.2021 07:45
-
жека026225.07.2021 11:14