Создать очередь натуральных чисел

[Despot777]

Создать очередь натуральных чисел. На основе очереди создать стек. В стеке должны быть только нечетные элементы. Подскажите идею создания очереди.

[Stilet]

Пример очереди: http://www.programmersforum.ru/showthread.php?t=20796

[Despot777]

Я правильно сделал? вроде бы работает верно.

program l4;
uses CRT;
type
ch=^uz;
uz=record
         x: integer;
         next: ch;
         end;


var
first: ch; 
u:ch;     
fir: ch; 
last: ch; 
uku: ch;     
c: char;
f,b:boolean;
Begin

new(first);      last:=first;
f:=false;
b:=false;
writeln('Введите (от 1 и выше)');  readln(first^.x);
if(first^.x mod 2<>0)then b:=true;
first^.next:=nil;
writeln('Хотите продолжить? y-äà  n-íåò');  readln(c);
while c='y' do
	begin
	f:=false;

		new(u);  u^.next:=first;
    repeat
    writeln('Введите (от 1 и выше)');  readln(u^.x);
    if u^.x>=0 then begin f:=true; if(u^.x mod 2<>0)then b:=true;end;
    until(f);
    first:=u;
		writeln('Хотите продолжить? y-äà  n-íåò');  readln(c);
	end;


if(b) then
begin

repeat
f:=false;
u:=first;  first:=u^.next;
new(fir);   last:=fir;   fir^.next:=nil;
if(u^.x mod 2<>0)then begin fir^.x:=u^.x; f:=true; end;
Dispose(u);
until(f);

while (first<>nil) do
 begin
  	u:=first;  first:=u^.next;
		if Odd(u^.x)then
    begin
    new(uku);  uku^.next:=fir;
    uku^.x:=u^.x;
		fir:=uku;
		Dispose(u);
    end
    else
    Dispose(u);
   end;


   writeln('Стек с нечетными числами: ');
    while(fir<>nil) do
    begin
    writeln(fir^.x);
     uku:=fir;
     fir:=uku^.next;
     dispose(uku);
     end;

  end
  else begin writeln('В стеке не было нечетных чисел!');
  while first<>nil do
  begin u:=first;  first:=u^.next;  Dispose(u);end;
  end;
readln;
End.

[Stilet]

вроде бы работает верно.

Запусти. Программа нужный результат показала? - верно.

repeat
f:=false;
u:=first; first:=u^.next;

Думается мне что тут вместо first нужно ставить last, ибо он у тебя на первый элемент стека указывает.

[Despot777]

можете заменить? я попробовал и прога стала криво работать.