Помощь - Поиск - Пользователи - Календарь
Полная версия: Формирование списка из файла
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Rubin
8.02.2005 14:54
Подскажите пожалуйста ,что не так в следующей программе. На экран почему то не выводится список.

Исходный код
program students;
uses crt;
type
p_student=^student;
student=record
name:string[20];
next:p_student;
end;
var
a:array[1..100] of string;
filestud:text;
head:p_student;
curr:p_student;
buf:string[20];
i:integer;
begin
assign(filestud,'c:\base1.txt');
reset(filestud);
repeat
read(filestud,buf[i]);
i:=i+1;
until
eof(filestud);
close(filestud);
begin
if length(buf[i])<>0 then
begin
new(curr);
curr^.name:=buf[i];
curr^.next:=head;
head:=curr;
end;
while Length(buf[i])=0 do
writeln('Введеный список ');
curr:=head;
while curr<>nil do begin
writeln(curr^.name);
curr:=curr^.next;
end;
readln;
end;
end.


Код заключаем в теги !!!
volvo
8.02.2005 18:10
Rubin,
а что хранится в файле 'c:\base1.txt' ? Если фамилии студентов, то они просто сохраняются в одном и том же буфере (т.е. фактически накладываются одна на другую)...

Приведите короткий пример файла, чтобы было ясно, что именно читается из него...

P.S. Я бы сделал так:
Исходный код
program students;
uses crt;
type
p_student=^student;
student=record
name:string[20];
next:p_student;
end;

var
filestud:text;
head, curr:p_student;
buf:string;

begin
assign(filestud,'base1.txt');
reset(filestud);
head := nil;
repeat
readln(filestud,buf);

new(curr);
curr^.name := buf;
curr^.next := head;
head := curr;

until eof(filestud);
close(filestud);

writeln('list entered ');
curr:=head;
while curr<>nil do begin
writeln(curr^.name);
curr:=curr^.next;
end;
readln;
end.


И не забываем освобождать занятую память !!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.