VPF::[Pascal]работа со стеком с динамической структурой

ovaaal

Дата 30.3.2012, 00:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 30.3.2012

Репутация: нет
Всего: нет

В общем начал только-только разбираться со стеками, очередями и т.п.
Смысл, то понятен, но вот реализация (т.к. я только начинаю) хромает, да что уж говорить - ползает на четвереньках :(.
Вот нужно выполнить такую вот довольно-таки легкую (увы пока не для меня) задачу:
"Реализовать операции работы со стеком, построенным на основе динамических структур. Распечатать символы введенной пользовательской строки в обратном порядке."
Начал я пытаться реализовать все это дело (только начало, можно сказать, что практически ничего и не сделал-то я :(), но смысл улавливаю (возможно по-своему), но все же...

Код

program stack_dm;
uses crt;
type
    nodeptr=^nodetype; 
    nodetype=record
        number:char;
        nextnode:nodeptr;
    end;
var stack:nodeptr;
    invalue:char;
   l:string;
    i:byte;
    k:integer;
procedure push(var st:nodeptr; value:char); 
var
    p:nodeptr;



begin
new(p);
p^.number:=value;
p^.nextnode:=st;
st:=p;
end;
procedure write_stack(stack:nodeptr);
var
p:nodeptr;
begin
p:=stack;
while p<>nil do
begin
write(p^.number:3);
p:=p^.nextnode;
end;
end;

begin
clrscr;
stack^.nextnode:=nil;
writeln('vvedite stek');
read(l);
k:=length(l);
for i:=1 to k do

begin
     push(stack,l[i]);
end;
write_stack(stack);
readkey;
end.

Как видно из кода - решил я все это делать "поэлементно", т.е. не строку целиком, а символы по отдельности заносить/выносить в стек, как-то так...
Прошу помощи :rolleyes:

t_gran

Дата 30.3.2012, 04:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

Репутация: 33
Всего: 37

ovaaal, ваш код нормальный. Всё верно, за исключением строчки 40. Должно быть:

Код


   // line 39
   stack := nil;

Старайтесь, на будущее, форматировать код

Это сообщение отредактировал(а) t_gran - 30.3.2012, 04:30

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »