Очередь

[sw47]

Задача
Создайте очередь, информационная часть которой содержит слова. Перепишите в текстовый файл слова, длина которых меньше заданной.

Решение
Я взял за основу пример из книги и доработал его. Работает, вроде, правильно, но я так до конца и не понял про очередь.

Проверьте, пожалуйста.

program ochered;

type
 p=^toch;
 toch=record
  s:string;
  next:p;
 end;

var
 x,nach,curr:P;
 i,n,l:integer;
 f_in:text;
 s1:string;
 chk:boolean;

Procedure Create;
begin
 nach:=nil;
 curr:=nil;
 Writeln('Введите количество слов в очереди: ');
 ReadLn(n);
 for i:=1 to n do
 begin
  new(x);
  writeln('Введите слово: ');
  readln(x^.s);
  x^.next:=nil;
  if nach=nil
  then begin
   nach:=x;
   curr:=x
  end
  else
  begin
   curr^.next:=x;
   curr:=x
  end;
 end;
end;

Procedure Output;
begin
 assign(f_in,'file');
 rewrite(f_in);

 if nach=nil then writeln('Очередь пуста')
 else begin
  chk:=false;
  x:=nach;
  WriteLn('Введите длину слова');
  ReadLn(l);
  while x<>nil do
   begin
    if length(x^.s)=l then
     begin
      s1:=x^.s;
      writeln(f_in,s1);
      chk:=true;
     end;
    x:=x^.next;
   end;
 end;
 if not chk then WriteLn('Нет слов заданной длины');
 close(f_in);
end;

Procedure Read;
begin
 reset(f_in);
 while not eof(f_in) do begin
  readln(f_in,s1);
  WriteLn('Из файла: ',s1);
 end;
end;

begin
 create;
 output;
 Read;
 readln;
end.

[danekne]

А что не понятно? Очередь в паскале - одна из динамических структур данных. Так же как стек и дерево и список. На первый взгляд реализовано правильно. Но в код я не в читывался

[Летучий_СкилетиК]

все верно, за исклучением того что в условие написанно

Перепишите в текстовый файл слова, длина которых меньше заданной

, а вы переписывается только равные заданной длины

if length(x^.s)=l then

замените ка на это

if length(x^.s)<l then

[sw47]

в указателях запутался.
я так и не понял как пройтись по ветке, где выводится, что очередь пуста.

[sw47]

Сообщение от Летучий_СкилетиК

...а вы переписывается только равные заданной длины...

спасибо. сам бы и не заметил.

[danekne]

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