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

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Чтение двусвязного кольцевого списка из файла

Автор: Everveit 15.05.2007 23:30

Вот, что я написала. Процедура CreateNewNode - добавляет узел в конец списка.

Procedure Readlist (var p:dlist);
var
f: file of integer;
q: dlist;
pr,info: integer;
begin
Assign(f,'spisok.dat');
Reset(f);
while not (eof(f)) do
begin
read(f,info);
CreateNewNode(p,info);
end;
close(f);
end;


Вот при этом процедура сохранения в этот файл списка:

Procedure Savelist (p:dlist);
var
f: file of integer;
q: dlist;
begin
Assign(f,'spisok.dat');
rewrite(f);
write (f,p^.info);
q:=p^.next;
while q<>p do
begin
write(f,p^.info);
q:=q^.next;
end;
close(f);
end;


Сейчас при таких процедурах он мне из файла выводит список, состоящий из первых элементов (одни и те же значения). Что не так? Буду очень благодарна если поможете, так как мне сдавать это всё завтра.

Автор: volvo 15.05.2007 23:53

q:=p^.next;
while q<>p do
begin
write(f,q^.info); { <--- q а не p }
q:=q^.next; { здесь тоже... }
end;

Автор: Everveit 15.05.2007 23:58

Каждый раз, когда я вижу правильное решение я начинаю удивляться своим тупым ошибкам. Спасибо большое в который раз. smile.gif smile.gif smile.gif

Автор: ordering hydroxychloroquine onli 23.09.2021 6:55

Generico Levitra Online Vardenafil

Автор: generic viagra buy sildenafil ci 5.11.2021 20:31

Viagra E Nitroderivati

Автор: how to take prednisone 10mg for 10.11.2021 19:25

pastillas cialis 20 mg

Автор: generic zithromax over the count 20.12.2021 3:28

Isotretinoin Cod Accepted Website

Автор: buy kamagra with american expres 30.12.2021 13:33

Where To Order Stendra