Паскаль... Двухсвязный список !!!

[merax]

Ну как братва выручайте с Паскалём... Мелочь, а не приятно! Давно уж им не баловался, а тут прижало... Если что, деньги сразу переведу если надо. Тема такая:

(Типо ТЗ)

Работа с двусвязным списком (кольцевой или обычный - неважно).

Работать только с указателями.

1. Процедуру добавления записи к списку. (Предположим, будем работать с записями, где есть поля фамилии, имени, номер группы, год поступления)с занесением в файл.

2. Удалить запись из списка (на которую указываем).

3. Поменять записи местами, то есть послать два указателя и их поменять местами.

Менять только связи, чтобы на экран или в новый файл записывалась преобразоная информация, а в исходном файле!

На Сях то как то сподручнее бы было да и быстро, а тут нет... ПАскаЛЬ.

Сам не жду начал тоже делать. Так что помогайте.

[kommunist]

Merax посмотри я тут кидал модуль по работе со списками надеюсь найдеш что нибудь полезное
http://www.programmersforum.ru/showthread.php?t=10915

[Alex21]

вот еще
и еще
или вот

[merax]

Спасибо... Но тут оказывается задача еще усложняется. Что пишется на Паскал 5 для системы VAXWMS (точно или неточно) образца 89 года

[kommunist]

Процедура добавления элемента в список

procedure add_first; 
begin 
clrscr; 
esim:=nil; 
new(p); 
writeln('Vvedite element:'); 
readln(p^.data); 
p^.next:=nil; 
esim:=p; 
writeln('Element dobavlen!'); 
readln; 
end;

_________________________
Удаление элемента из списка.
При удалении элемента из списка необходимо различать три случая:1. Удаление элемента из начала списка.
2. Удаление элемента из середины списка.
3. Удаление из конца списка.
Удаление элемента из начала списка.

List := Head; { запомним адрес первого элемента списка }
Head := Head^.List; { теперь Head указывает на второй элемент списка }
Dispose(List); { освободим память, занятую переменной List^ }
Удаление элемента из середины списка.
Для этого нужно знать адреса удаляемого элемента и элемента, находящегося в списке перед ним.
List := Head;
While (List<>nil) and (List^.Data<>Digit) do
  begin
     x := List;
     List := List^.Next;
  end;
x^.Next := List^.Next;
Dispose(List);
//Удаление из конца списка.
//Оно производится, когда указатель х показывает на предпоследний элемент списка, а List – на последний.
List := Head; x := Head;
While List^.Next<>nil do
  begin
     x := List;
     List := List^.Next;
  end;
x^.Next := nil;
Dispose(List);

p.s. Надеюсь вам это пригодится

[merax]

Всем спасибо пацаны... Закончил вчера вечером... Работает! Респект всем!