![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Everveit |
![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Женский Репутация: ![]() ![]() ![]() |
Вот, что я написала. Процедура 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 - 12.05.2010 20:58 |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
q:=p^.next;
while q<>p do
begin
write(f,q^.info); { <--- q а не p }
q:=q^.next; { здесь тоже... }
end;
|
Everveit |
![]()
Сообщение
#3
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Женский Репутация: ![]() ![]() ![]() |
Каждый раз, когда я вижу правильное решение я начинаю удивляться своим тупым ошибкам. Спасибо большое в который раз.
![]() ![]() ![]() |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 17:36 |