Типизированые файлы целых чисел

[Neyrone]

Доброго времени суток помогите пожалуста в на паскале написать такую програмку,был бы признателен если была бы как можно проще,заренее огромное спасибо )

http://s004.radikal.ru/i208/1002/44/cb3631dead63.jpg

[Alex Cones]

Раз типизированные, то вводите записи:

TInfo = Record
 Name : String[20];
 Year   : String[4];
 Author: String[20];
End;

потом используйте BlockWrite\BlockRead;
http://www.delphibasics.ru/BlockRead.php
http://www.delphibasics.ru/BlockWrite.php

[Google2010]

как можно проще

и

используйте BlockWrite\BlockRead;

как то не вяжется
и

Year   : String[4];

я бы все таки поменял на

 Year   : integer;

[Neyrone]

Сообщение от Alex Cones

Раз типизированные, то вводите записи:

TInfo = Record
 Name : String[20];
 Year   : String[4];
 Author: String[20];
End;

потом используйте BlockWrite\BlockRead;
http://www.delphibasics.ru/BlockRead.php
http://www.delphibasics.ru/BlockWrite.php

Извините,а нельзя просто код программы...

[Alex Cones]

как можно проще
и
Цитата:
используйте BlockWrite\BlockRead;

А что может быть проще, чем написать ОДНУ строку кода?

BlockWrite(F, Rec, SizeOf(Rec));

А?

Извините,а нельзя просто код программы...

Либо выкладываете свои наработки, либо фриланс.

[Neyrone]

Понятно,спасибо,просто едва знаю что и для чего нужно) думал код вставить и всё)

[Google2010]

а нельзя просто код программы...

можно чего ж нельзя то

 type Tbook = record
  a:string[20];
  n:string[15];
  y:Integer;
  end;
var
  f:file of Tbook;
  b:Tbook;
  k,i:Integer;
begin
  {заполнение файла }
  Assign(f,'bibl.in');
  Writeln('input k');
  Readln(k);
   Rewrite(f);
   for i:=1 to k do
   begin
     readln(b.a);
     readln(b.n);
     readln(b.y);
     write(f,b);

   end;
   Close(f);
  {чтение из файла}
  clrscr;
  Reset(f);
  While not eof(f) do begin
    read(f,b);
    if b.y>=1960 then writeln(b.a,'':5,b.n,'':5,b.y);
  end;
  Close(f);
  readln;
end.

[Neyrone]

написал 2 раза

[Neyrone]

Сообщение от Google2010

можно чего ж нельзя то

 type Tbook = record
  a:string[20];
  n:string[15];
  y:Integer;
  end;
  f:file of Tbook;
  b:Tbook;
  k,i:Integer;
begin
  {заполнение файла }
  Assign(f,'bibl.in');
  Writeln('input k');
  Readln(k);
   Rewrite(f);
   for i:=1 to k do
   begin
     read(b.a);
     read(b.n);
     read(b.y);
     write(f,b);

   end;
   Close(f);
  {чтение из файла}
  clrscr;
  Reset(f);
  While not eof(f) do begin
    read(f,b);
    if b.y>=1960 then writeln(b.a,'':5,b.n,'':5,b.y);
  end;
  Close(f);
  readln;
end.

Огромнейшей спасибо =) щас попробую