Решаем задачи Абрамян на Паскале. File53

File53. Дана строка $$S$$, целое число $$N$$ $$(> 0)$$ и файл-архив целых чисел, содержащий данные из нескольких файлов в формате, описанном в задании File52. Восстановить из файла-архива файл с номером $$N$$ и сохранить его под именем $$S$$. Если файл-архив содержит данные из менее чем $$N$$ файлов, то оставить результирующий файл пустым.

Решение:

program File53;
var

 S: String;
 F_in,F_out: File of Integer;
 N,i,NumFiles,temp,LenFile,LenFirstFiles: integer;

begin
  Write('FileArch: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);

  Write('S: ');
  Readln(S);
  Assign(F_out,S);
  ReWrite(F_out);

  Write('N: ');
  Readln(N);

  Read(F_in,NumFiles);

  LenFirstFiles:=0;
  LenFile:=0;
  For i:=1 to NumFiles do
   begin
    Read(F_in,temp);
    if i=N then LenFile:=temp;
    if i<N then LenFirstFiles:=LenFirstFiles+temp;
   end;

  For i:=1 to LenFirstFiles do Read(F_in,temp);

  For i:=1 to LenFile do
   begin
    Read(F_in,temp);
    Write(F_out,temp);
   end;

  Close(F_in);
  Close(F_out);
end.

program File53;

var

S: String;

F_in,F_out: File of Integer;

N,i,NumFiles,temp,LenFile,LenFirstFiles: integer;

begin

Write('FileArch: ');

Readln(S);

Assign(F_in,S);

Reset(F_in);

Write('S: ');

Readln(S);

Assign(F_out,S);

ReWrite(F_out);

Write('N: ');

Readln(N);

Read(F_in,NumFiles);

LenFirstFiles:=0;

LenFile:=0;

For i:=1 to NumFiles do

begin

Read(F_in,temp);

if i=N then LenFile:=temp;

if i<N then LenFirstFiles:=LenFirstFiles+temp;

end;

For i:=1 to LenFirstFiles do Read(F_in,temp);

For i:=1 to LenFile do

begin

Read(F_in,temp);

Write(F_out,temp);

end;

Close(F_in);

Close(F_out);

end.

Другие задачи из раздела File можно посмотреть здесь.

Комментарии 1

program File53;//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 := 'i53.dat';//выходной файл
  var n := ReadlnInteger('n =');
  
  var f := CreateBinary&<integer>(s);
  f.Close;
  
  var f0 := OpenBinary&<integer>(s0);
  var x := f0.Read;
  f0.Close;
  
  if n > x then Halt;
  
  var (pos, nums) := FindFile(s0, n);
  var ss := ExtractElements&<integer>(s0, pos, nums);
  
  WriteElements&<integer>(s, ss);
  ReadElements&<integer>(s).Println;
end.

program File53;//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 := 'i53.dat';//выходной файл

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

var f := CreateBinary&<integer>(s);

f.Close;

var f0 := OpenBinary&<integer>(s0);

var x := f0.Read;

f0.Close;

if n > x then Halt;

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

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

WriteElements&<integer>(s, ss);

ReadElements&<integer>(s).Println;

end.

Ответить

Решаем задачи Абрамян на Паскале. File53

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ