Автор: Bronislav

Bronislav — Sun, 25 Nov 2018 08:57:18 +0000

program File52;//pabc.net

///записывает в открытый типизированный файл элементы последовательности ss,
///начиная с позиции файлового указателя
procedure WriteElements<T>(self: file of T; ss: sequence of T); extensionmethod;
begin
  foreach var x in ss do
    self.Write(x);
end;

///упаковывает n файлов типа integer в файл-архив fname
procedure PackUp(fname: string; n: integer);
begin
  var s: string;
  var L := new List<string>;
  
  var f0 := CreateBinary&<integer>(fname);
  Write(f0, n);
  
  for var i := 1 to n do
  begin
    var f: file of integer;
    s := ReadlnString($'fileName{i}:');//имя файла, например 1, 2, 3 и т.д.
    L.Add(s);
    if not FileExists(s) then
    begin
      Rewrite(f, s);
      Println('файла не существует, создаем:');
      var k := ReadlnInteger('введите кол-во элементов в файле, k =');
      if k > 0 then Println($'введите {k} элементов:');
      f.WriteElements(ReadSeqInteger(k));
      if k > 0 then Readln;//чтобы следующий файл не получил имя '#13#10'
    end
    else Reset(f, s);
    Write(f0, FileSize(f));
    f.Close;
  end;
  
  for var i := 0 to n - 1 do
    f0.WriteElements(ReadElements&<integer>(L[i]));
  
  f0.Close;
end;

begin
  ChDir('files');
  var s0 := 'i52.dat';
  var n := ReadlnInteger('n =');
  PackUp(s0, n);
  ReadElements&<integer>(s0).Println;
end.

program File52;//pabc.net

///записывает в открытый типизированный файл элементы последовательности ss,

///начиная с позиции файлового указателя

procedure WriteElements<T>(self: file of T; ss: sequence of T); extensionmethod;

begin

foreach var x in ss do

self.Write(x);

end;

///упаковывает n файлов типа integer в файл-архив fname

procedure PackUp(fname: string; n: integer);

begin

var s: string;

var L := new List<string>;

var f0 := CreateBinary&(fname);

Write(f0, n);

for var i := 1 to n do

begin

var f: file of integer;

s := ReadlnString($'fileName{i}:');//имя файла, например 1, 2, 3 и т.д.

L.Add(s);

if not FileExists(s) then

begin

Rewrite(f, s);

Println('файла не существует, создаем:');

var k := ReadlnInteger('введите кол-во элементов в файле, k =');

if k > 0 then Println($'введите {k} элементов:');

f.WriteElements(ReadSeqInteger(k));

if k > 0 then Readln;//чтобы следующий файл не получил имя '#13#10'

end

else Reset(f, s);

Write(f0, FileSize(f));

f.Close;

end;

for var i := 0 to n - 1 do

f0.WriteElements(ReadElements&(L[i]));

f0.Close;

end;

begin

ChDir('files');

var s0 := 'i52.dat';

var n := ReadlnInteger('n =');

PackUp(s0, n);

ReadElements&(s0).Println;

end.

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

Автор: Bronislav