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

File52. Дана строка $$S_0$$, целое число $$N$$ $$(\le 4)$$ и $$N$$ файлов целых чисел с именами $$S_1, …, S_N$$. Объединить их содержимое в новом файле-архиве с именем $$S_0$$, используя следующий формат: в первом элементе файла-архива хранится число $$N$$, в следующих $$N$$ элементах хранится размер (число элементов) каждого из исходных файлов, а затем последовательно размещаются данные из каждого исходного файла.

Решение:

program File52;

var

S: array [0..4] of String;

F,F1: File of Integer;

N,i,temp,len: integer;

begin

Write('S0: ');

Readln(S[0]);

Write('N: ');

Readln(N);

Assign(F,S[0]);

ReWrite(F);

Write(F,N);

For i:=1 to N do

begin

Write('S',i,': ');

Readln(S[i]);

end;

For i:=1 to N do

begin

Assign(F1,S[i]);

Reset(F1);

len:=0;

while not eof(F1) do

begin

inc(len);

Read(F1,temp);

end;

Close(F1);

Write(F,len);

end;

For i:=1 to N do

begin

Assign(F1,S[i]);

Reset(F1);

len:=0;

while not eof(F1) do

begin

Read(F1,temp);

Write(F,temp);

end;

Close(F1);

end;

end.

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

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

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&<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.

Ответить

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

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

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

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