Решить используя очередь

[nameless21]

Помогите плз решить задачу:
Типизированный файл содержит список людей. О каждом человеке представлена следующая информация: Город, Фамилия, Имя, Отчество, номер телефона. За один просмотр и без использования дополнительных файлов напечатать элементы файла F в следующем порядке:Общим списком. Порядок в этом списке определяется первой буквой фамилии.
Буду благодарен за код(либо фрагменты) с комментариями либо текстовое описание алгоритма.

[rubius2008]

Если сами что-то пробовали писать, выкладывайте, будем разбираться. Иначе, как мне кажется, с такой задачей вам во фриланс или пишите в асю.

[nameless21]

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

uses Crt;

Type
TNode = ^PNode;				{ Указатель на элемент списка			}
PNode = record				{ Тип элемента списка				}
Next: TNode;				{ Указатель на следующий элемент списка	}
data: string;			{ Значение элемента списка			}
end;

Const
F: TNode = nil;				{ Указатель на первый элемент списка		}

var
{ элемента списка					}
I: Integer;
Q: TNode;
px,dx: TNode{Хранение адресов переменных, между которыми мы записываем следующий элемент списка}
h:file of string;
filename:string;
S,V:string;
begin
ClrScr;
write('name file:');
readln(filename);
assign(h,filename);
reset(h);
{ Ввод данных списка в строку S								}
while not eof(h) do begin
    Readln(h,S);
	V := Copy(S,Pos(' ',S)+1 ,1);{Копируем первую букву фамилии текущей строки}
	New(Q);
	Q^.data := S;
	Q^.next :=nil;
	if F=nil{Если список пуст, то вставляем первый элемент}
	    then
		  F := Q
		else
		{Если не пуст просматриваем его пока не найдем место для строки}
		begin
		  dx:=F;px:=F;
		  {Просматриваем список до конца, либо пока не найдем фамилию начинающуюся с буквы c большим кодом}
		  while (dx<>Nil) and (V>Copy( dx^.data, Pos(' ',dx^.data)+1 ,1 )) do
		  begin
		    px:=dx;
			dx:=dx^.Next;
		  end;
		  if dx=nil
		  then{Пройден весь список}
		    px^.Next:=Q{Элемент добавляется в конец списка}
		  else{Пройден не весь список}
		  begin
		    Q^.Next:=dx;
			if dx=F
			then
			  F:=Q{Вставляем в начало списка}
			else
			  px^.Next:=Q;;{Вставляем внутрь списка}
		  end;
		 end;
end;
		    
		  
		  

{ Вывод построенного списка на экран							}
WriteLn('Spisok:');
I := 0;					{ Номер текущего элемента списка		}
Q := F;					{ Указатель на первый элемент списка		}
while Q <> nil do begin			{ Пройти по каждому элементу списка		}
I := I+1;
WriteLn(I:2,': ', Q^.data);	{ Печатать значение текущего элемента		}
Q := Q^.Next;				{ Перейти к следующему элементу списка	}
end;
writeln;


{ Освобождение памяти, занятой списком							}
while F <> nil do begin			{ Пройти по каждому элементу списка		}
Q := F;					{ Запомнить адрес удаляемого элемента		}
F := F^.Next;				{ Запомнить адрес следующего элемента		}
Dispose(Q);				{ Освободить память удаляемого элемента	}
end; 
writeln;
ReadKey;					{ Пауза для просмотра результата			}
end.

___________
То, что код решения выложили - молодец!
Но, на будущее, на данном форуме правилами определено, что нужно оформлять
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Модератор.

[nameless21]

Вот, это девушке делал у нее приняли на отлично. Я просто на c++ пишу так что с паскалем пришлось разбираться