Копии швейцарских часов ua @ Alain Silberstein
Здравствуйте!Требуется помощь по отладке программы.Она должна:1) добавлять элемент стек здесь проблем нет.2) печатать голову стека здесь тоже все нормально.3) удалять текущий элемент.вот этим проблема.Когда удаляется элемент, указатель не переходит на предыдущий элемент стека.Получается,удаляется голова, дальше программа не имеет доступа предыдущим файлам.Подскажите, пожалуйста, что сделать?Вот код:Program stack;uses crt;typeelement=recorddata:string;next:pointer;end;varn:integer;s1:string;current:^element;pnt:^element;procedure put_element(var s:string);beginnew(pnt);pnt^.data:=s;pnt^.next:=current;end;procedure head_element(var s:string);beginpnt^.data:=s;s:=pnt^.data;current:=pnt^.next;writeln(s);end;procedure get_element(var s:string);beginif current=nil then s:='put' elsebeginpnt^.data:=s;s:=pnt^.data;current:=pnt^.next;dispose(pnt);end;end;{----program----}begincurrent:=nil;clrscr;repeatwriteln('1 add element in stack');writeln('2 del element iz stack');writeln('3 vershina stack');writeln('0 exit');readln(n);if n=1 thenbeginwrite('element?');readln(s1);put_element(s1);end;if n=2 thenbeginget_element(s1);writeln(s1);end;if n=3 thenbeginhead_element(s1);end;until n=0;end.
На всю глотку))Это бывает у меня)Но,редко)).
