VPF::[Pascal] Списковая структура - Форум программистов

Positiv

Дата 29.1.2007, 22:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 17.9.2006

Репутация: нет
Всего: нет

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

Код



Program bilet5;
uses crt;
Type
  sp=^ts;
  ts=record
  fam:string[15];
  predm:string[15];
  oc:word;
  next:sp;
end;
Var f:text;
p1,p2:sp;
    y,buf:ts;
    n,i,g:word;
procedure spisok;
 Begin
 Assign(f,'pr2.txt');
 Reset(f);
 while not eof(f) do begin
 readln(f,y.fam);
 readln(f,y.predm);
 readln(f,y.oc);
 end;
 p2:=nil;
 begin
 new(p1);
 p1^.fam:=y.fam;
 p1^.predm:=y.predm;
 p1^.oc:=y.oc;
 p1^.next:=p2;
 p2:=p1;
 end;
 while p2<>nil do begin
 p1:=p2;
 y.fam:=p1^.fam;
 y.predm:=p1^.predm;
 y.oc:=p1^.oc;
 p2:=p1^.next;
 writeln(p1^.fam:15,p1^.predm:15,p1^.oc:4);
 dispose(p1);
 end;
 end;
Begin
   Clrscr;
   Assign(f,'pr2.txt');
   Append(f);
   write('Введите количество записей: ');
   readln(n);
   For i:=1 to N do
   Begin
      writeln;
      writeln('Запись # ',i);
      Write('Фамилия: ');          Readln(buf.fam);
      Write('Название предмета: '); Readln(buf.predm);
      Write('Оценка: ');      Readln(buf.oc);
      writeln(f,buf.fam);
      writeln(f,buf.predm);
      writeln(f,buf.oc);
      writeln;
   end;
   Close(f);   a
   spisok;
   ReadKey;
end.

Это сообщение отредактировал(а) Exception - 30.1.2007, 20:30

volvo877

Дата 29.1.2007, 22:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Цитата(Positiv @ 29.1.2007, 21:06

)

Подскажите в чем дело?

В том, что ты сначала проходишь по всему файлу, читаешь из него значения, и только потом заполняешь список... Естественно, тебе доступно только то, что осталось в структуре Y... Вот так попробуй:

Код


Reset(f);
p2:=nil;
while not eof(f) do begin
  readln(f,y.fam);
  readln(f,y.predm);
  readln(f,y.oc);

  { И сразу - в список !!! }
  new(p1);
  p1^.fam:=y.fam;
  p1^.predm:=y.predm;
  p1^.oc:=y.oc;
  p1^.next:=p2;
  p2:=p1;
end;
...

Positiv

Дата 29.1.2007, 22:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 17.9.2006

Репутация: нет
Всего: нет

volvo877,
Списибо, все работает. А я блин третий день парюсь.
Тока выводит он данные начиная с конца файла.
Ну с этим я как-нибудь разберусь.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »