Версия для печати темы

Автор: Тёмный Эльф 14.01.2007 20:28

Можно ли назвать структуру нижеприведённой программы очередью?

TYPE
   EXO=^O;
   O=record
     Data: integer;
     Next:EXO;
     end;
   var BeginO,EndO:EXO;

Procedure createO(Var BeginO,EndO:EXO);
Var
 u:EXO; f1:text;
Begin
  Assign(F1,'DAN.inp');
  Reset(f1);
  Assign(output,'res.out');
  rewrite(output);
  While not EOF(f1) do
  Begin
 new(u);
 Readln(f1,u^.data);
 writeln(u^.data);
 u^.Next:=Nil; 
 If BeginO=Nil then 
						
 BeginO:=u else
 EndO^.next:=u; 
 EndO:=u; 
 End;
 end;

Begin
createO(BeginO,EndO);
end.

Автор: volvo 14.01.2007 20:33

Если правильно реализуешь методы Get/Put, то будет очередь. Можно сделать и стек... Пока это только создание односвязного списка...

Автор: Тёмный Эльф 14.01.2007 20:48

ясненько