найти длину последовательности в стеке (Паскаль)

[vlad32651]

В целочисленном стеке найти длину самой длинной последовательности подряд идущих элементов, равных нулю, затем заменить все нулевые элементы на найденное значение.

[Serge_Bliznykov]

показывайте код на Паскале, где вы описываете, заполняете, выводите на экран свой стек, тогда и о длине последовательности поговорим.

[vlad32651]

вот мой стек

Program Stek;
Uses crt;
type
  Tinf=integer; {тип данных, который будет храниться в элементе стека}
  List=^TList;  {Указатель на элемент типа TList}
  TList=integer
    data:TInf;  {данные, хранимые в элементе}
    next:List;   {указатель на следующий элемент}
  end;
 
{Процедура добавляющая элемент в стек}
procedure AddElem(var stek1:List;znach1:TInf);
var
  tmp:List;
begin
  GetMem(tmp,sizeof(TList)); 
  tmp^.next:=stek1;  
  tmp^.data:=znach1; 
  stek1:=tmp; 
end;
 
{Процедура вывода стека}
procedure Print(stek1:List);
begin
  if stek1=nil then 
  begin
    writeln('Стек пуст.');
    exit;
  end;
  while stek1<>nil do 
  begin    
   Write(stek1^.data, ' '); 
    stek1:=stek1^.next  
  end;
end;
 
{Процедура освобождения памяти занятой стеком}
Procedure FreeStek(stek1:List);
var
  tmp:List;
begin
  while stek1<>nil do 
  begin
    tmp:=stek1; 
    stek1:=stek1^.next; 
    FreeMem(tmp,SizeOf(Tlist));
  end;
end;
 
{Поиск элемента в стеке по значению если нужен
Function SearchElemZnach(stek1:List;znach1:TInf):List;
begin
  if stek1<>nil then {если стек не пуст, то}
    while (Stek1<>nil) and (znach1<>stek1^.data) do 
      stek1:=stek1^.next; 
  SearchElemZnach:=stek1;
end; }
 
var
  Stk, {переменная, которая всегда будет указывать на "вершину" стека}
  tmpl:List; {рабочая переменная}
  znach:Tinf; {данные вводимые пользователем}
  ch:char; {для работы менюшки}
begin
    Stk:=nil;
    repeat 
    clrscr; 
    Write('Программа для работы со ');
    Textcolor(4);
    Writeln('стеком.');
    Textcolor(7);
    Writeln('Выберите желаемое действие:');
    Writeln('1) Добавить элемент.');
    Writeln('2) Вывод стека.');
    Writeln('3) Выход.');
    writeln;
    ch:=readkey; 
    case ch of 
      '1':begin
            write('Введите значение добавляемого элемента: ');
            readln(znach);          
   AddElem(Stk,znach);
          end;
      '2':begin
            clrscr; 
            Print(Stk); 
            readkey; 
          end;
  until ch='3';
  FreeStek(Stk); 
end.