Задача на файлы. Опции

[brut03]

Помогите разобраться с задачей на файлы.
В файле хранятся фамилии, название клубов, за которые играют хоккеисты, количество сыгранных игр и заброшенных шайб. Перепишите в разные файлы данные об игроках «Спартака» и «Динамо».
И подскажите пожалуйста какую ни будь книгу по паскалю, где подробно разбирается этот вопрос
Заранее благодарен..

[Digitalator]

вопрос про работу с файловой системой разбирается в любой нормальной книжке по паскалю.

Уточни условие - в каком формате записан файл

[GoodWind]

если можно слово-в-слово повтори текст задания

[Altair]

1. что за файл (типизированный\нетипизированный)
2. структура записей в файле. (если тектсовый, то как расположенны строчки, если типизированный, то какова структура recorda)

[brut03]

Файл нужно создовать самому
По идее - типизированный.

[volvo]

Вопрос остался открытым:

если типизированный, то какова структура recorda

какая еще информация должна храниться в файле ?

Сообщение отредактировано: volvo - 31.10.2004 1:18

[brut03]

Кроме той, что оговаривается в условии:

фамилии, название клубов, за которые играют хоккеисты, количество сыгранных игр и заброшенных шайб

-никакой.

[volvo]

Тогда (при условии, что все игроки играют или за Спартак, или за Динамо), программа будет такой:

Код

type
 TPlayer =
   record
     name: string[25];
     club: string[20];
     games: word;
     scores: word;
   end;
 FPlayer = file of TPlayer;

const
 filename = 'COMMON.INF';
 spartak  = 'SPARTAK.INF';
 dinamo   = 'DINAMO.INF';


procedure createFile(var f: FPlayer; name: string);
 begin
   assign(f, name);
   {$I-} rewrite(f); {$I+}
   if IOResult <> 0 then
     begin
       writeln( 'cannot create new file...' );
       halt(100)
     end;

 end;

{ Проверяет правильность заполнения файла с именем name }
procedure viewFile(name: string);
var f: FPlayer;
begin
assign(f, filename);
{$I-} reset(f); {$I+}
if IOResult <> 0 then
 begin
   writeln( 'cannot open file...' ); halt(101)
 end;

while not eof(f) do
 begin
   read(f, rec);
   with rec do
     writeln( name, '  ', club, ' ', games:4, ' ', scores:4 );
 end;

close(f);
end;



{ создает файл COMMON.INF с начальными данными -
  старый файл с именем COMMON.INF будет уничтожен }
procedure initFile;
 var
   f: FPlayer;
   r: TPlayer;
   ans: char;
 begin
   createFile(f, filename);
   repeat
     write('name:> '); readln(r.name);
     write('club:> '); readln(r.club);
     write('games:> '); readln(r.games);
     write('scores:> '); readln(r.scores);
     write(f, r);
     writeln;
     writeln('another player ? (y/n)');
     readln(ans);
   until (upcase(ans) <> 'Y');
   close(f)
 end;

var
 f, fD, fS: FPlayer;
 rec: TPlayer;
begin
 initFile;

 assign(f, filename);
 {$I-} reset(f); {$I+}
 if IOResult <> 0 then
   begin
     writeln( 'cannot open file...' ); halt(101)
   end;

 createFile(fD, dinamo);
 createFile(fS, spartak);

 while not eof(f) do
   begin
     read(f, rec);
     if rec.club = 'spartak' then
       write(fS, rec)
     else
       write(fD, rec);
   end;

 close(fS); close(fD);
 close(f);

 { для проверки правильности создания файла... }
 viewFile( 'spartak.inf' ); { или 'dinamo.inf' }

end.

Сообщение отредактировано: volvo - 2.11.2004 20:08

[brut03]

Спасибо volvo.
А как доработать прогу, что бы игроки были не только из Спартака, или Динамо?

[volvo]

brut03

Вместо этого:

Код

 while not eof(f) do
  begin
    read(f, rec);
    if rec.club = 'spartak' then
      write(fS, rec)
    else
      write(fD, rec);
  end;

поставь вот это:

Код

 while not eof(f) do
  begin
    read(f, rec);
    if rec.club = 'spartak' then write(fS, rec);
    if rec.club = 'dinamo' then write(fD, rec);
    { и так далее... }

    { Но не забудь объявить достаточно файлов и их имен !!! }
  end;

[brut03]

А как проверить правильно или нет переписаны файлы SPARTAK.INF и DINAMO.INF?

[volvo]

Код

procedure viewFile(name: string);
var f: FPlayer;
begin
 assign(f, filename);
{$I-} reset(f); {$I+}
if IOResult <> 0 then
  begin
    writeln( 'cannot open file...' ); halt(101)
  end;

while not eof(f) do
  begin
    read(f, rec);
    with rec do
      writeln( name, '  ', club, ' ', games:4, ' ', scores:4 );
  end;

close(f);
end;

begin
 viewFile( 'spartak.inf' ); { или 'dinamo.inf' }
end.

[brut03]

А куда это вставить?

[volvo]

Сейчас я изменю первоначальную программу...

Сообщение отредактировано: volvo - 2.11.2004 20:09