Повернуть список Опции

[neic]

Народ подскажите процедуру поворота списка, а то я скоро уже с ума сойду.

Например вводим с клавиатуры (признаком окончания ввода является цифра 0): 1 2 3 4 5 ... 0

Нужно получить: 0 ... 5 4 3 2 1

Заранее благодарен!

[neic]

Так там меняются местами первый и второй элемент, а мне нужно неограниченное число повернуть... или я что не догнал... просто голова уже не соображает

Список создаётся в момент ввода чисел с клавиатуры, а уже полученный список перевернуть.

Плюс ругается на строчку (в примере который ты дал):
r^.Next:=init;

Ошибка 88 говорит что не хватает какой-то скобки.


Добавлено через 8 мин.
Вот я тут на калякал.
Ссылается на procedure ps и говорит что куча переполнена, что я не так сделал?

uses crt;

type tinf=integer;
	tp=^node;
		node=record
			inf:integer;
			sled:tp;
		end;

var head,pn,pss,p:tp;

procedure init(var head:tp);
begin
		head:=nil
end;

procedure vkln(iel:tinf);
begin
	new(pn);
	pn^.inf:=iel;
	pn^.sled:=head;
	head:=pn;
end;

procedure ps(ifn:tinf);
begin
	new(p);
	p^.inf:=ifn;
	p^.sled:=head;
	head:=pn;
end;

Procedure Print(p: tp);
begin
	while p <> nil do begin
		write(p^.inf,' ','');
		p:=p^.sled;
	end;
	writeln;
end;

var s:integer;
begin
clrscr;
init(head);

writeln('‚ўҐ¤ЁвҐ зЁб«  ®в 1 ¤® 99. Љ®­Ґж®¬ ўў®¤  пў«пҐвбп жЁда  0');
repeat
	read(s);
	vkln(s);
until s=0;

print(pn);

pn^.sled:=head;

while pn <> nil do begin
		pn:=pn^.sled;
		ps(pn^.inf);
end;
writeln;

print(p);

readkey;
end.

Сообщение отредактировано: neic - 1.12.2007 2:04