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

File54. Дана строка $$S$$ и файл-архив целых чисел, содержащий данные из нескольких (не более шести) файлов в формате, описанном в задании File52. Для каждого из файлов, содержащихся в архиве, найти среднее арифметическое всех его элементов (вещественное число) и записать найденные числа (в том же порядке) в файл вещественных чисел с именем $$S$$.

Решение:

program File54;
var

 S: String;
 F_in: File of Integer;
 F_out: File of Real;
 Sum,i,i2,NumFiles,temp: integer;
 LenFiles: array [1..6] of integer;
 Sred: Real;

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

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

  Read(F_in,NumFiles);

  For i:=1 to NumFiles do
   begin
    Read(F_in,temp);
    LenFiles[i]:=temp;
   end;

  For i:=1 to NumFiles do
   begin
    Sum:=0;
    For i2:=1 to LenFiles[i] do
     begin
      Read(F_in,temp);
      Sum:=Sum+temp;
     end;
    Sred:=Sum/LenFiles[i];
    Write(F_out,Sred);
   end;

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

program File54;

var

S: String;

F_in: File of Integer;

F_out: File of Real;

Sum,i,i2,NumFiles,temp: integer;

LenFiles: array [1..6] of integer;

Sred: Real;

begin

Write('FileArch: ');

Readln(S);

Assign(F_in,S);

Reset(F_in);

Write('S: ');

Readln(S);

Assign(F_out,S);

ReWrite(F_out);

Read(F_in,NumFiles);

For i:=1 to NumFiles do

begin

Read(F_in,temp);

LenFiles[i]:=temp;

end;

For i:=1 to NumFiles do

begin

Sum:=0;

For i2:=1 to LenFiles[i] do

begin

Read(F_in,temp);

Sum:=Sum+temp;

end;

Sred:=Sum/LenFiles[i];

Write(F_out,Sred);

end;

Close(F_in);

Close(F_out);

end.

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

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

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

Ответить

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

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

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

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