Автор: Bronislav

Bronislav — Sun, 25 Nov 2018 09:06:52 +0000

program File54;//pabc.net

///возвращает последовательность из num элементов из закрытого файла-архива
///с позиции pos
function ExtractElements<T>(s0: string; pos, nums: integer): sequence of T;
begin
  var f0 := OpenFile&<T>(s0);
  Seek(f0, pos);
  loop nums do
  begin
    var x := f0.Read;
    yield x
  end;
  f0.Close;
end;

///возвращает позицию и кол-во элементов считывания из закрытого файла-архива
function FindFile(s0: string; n: integer): (integer, integer);
begin
  var f0 := OpenBinary&<integer>(s0);
  var x := f0.Read;
  var sum := x + 1;
  loop n - 1 do
  begin
    Read(f0, x);
    sum += x
  end;
  Read(f0, x);
  f0.Close;
  Result := (sum, x)
end;

begin
  ChDir('files');
  var s0 := 'i52.dat';//файл-архив
  var s := 'r54.dat';//выходной файл
  
  var f0 := OpenFile&<integer>(s0);
  var x := f0.Read;
  f0.Close;
  
  var f := CreateBinary&<real>(s);
  
  for var i := 1 to x do
  begin
    var (pos, nums) := FindFile(s0, i);
    var ss := ExtractElements&<integer>(s0, pos, nums);
    //  ss.Println;
    Write(f, ss.Average)
  end;
  
  Seek(f, 0);
  f.ReadElements.Println;
  f.Close
end.

program File54;//pabc.net

///возвращает последовательность из num элементов из закрытого файла-архива

///с позиции pos

function ExtractElements<T>(s0: string; pos, nums: integer): sequence of T;

begin

var f0 := OpenFile&(s0);

Seek(f0, pos);

loop nums do

begin

var x := f0.Read;

yield x

end;

f0.Close;

end;

///возвращает позицию и кол-во элементов считывания из закрытого файла-архива

function FindFile(s0: string; n: integer): (integer, integer);

begin

var f0 := OpenBinary&(s0);

var x := f0.Read;

var sum := x + 1;

loop n - 1 do

begin

Read(f0, x);

sum += x

end;

Read(f0, x);

f0.Close;

Result := (sum, x)

end;

begin

ChDir('files');

var s0 := 'i52.dat';//файл-архив

var s := 'r54.dat';//выходной файл

var f0 := OpenFile&(s0);

var x := f0.Read;

f0.Close;

var f := CreateBinary&(s);

for var i := 1 to x do

begin

var (pos, nums) := FindFile(s0, i);

var ss := ExtractElements&(s0, pos, nums);

// ss.Println;

Write(f, ss.Average)

end;

Seek(f, 0);

f.ReadElements.Println;

f.Close

end.

Комментарии: Решаем задачи Абрамян на Паскале. File54

Автор: Bronislav