Автор: Bronislav

Bronislav — Sat, 24 Nov 2018 11:53:56 +0000

program File51;//pabc.net

procedure SortByJoin(s1, s2, s3: string);
begin
  var f1, f2, f3: file of real;
  var x1, x2: real;
  
  Reset(f1, s1);
  if not Eof(f1) then Read(f1, x1);
  var Eof_1 := Eof(f1) ? True : False;
  
  Reset(f2, s2);
  if not Eof(f2) then Read(f2, x2);
  var Eof_2 := Eof(f2) ? True : False;
  
  Rewrite(f3, s3);
  
  for var i := 0 to FileSize(f1) + FileSize(f2) - 1 do
  begin
    if Eof_1 then
    begin
      Write(f3, x2);
      if not Eof(f2) then Read(f2, x2)
    end
    else if Eof_2 then
    begin
      Write(f3, x1);
      if not Eof(f1) then Read(f1, x1)
    end
    else if x1 > x2 then
    begin
      Write(f3, x1);
      if not Eof(f1) then Read(f1, x1)
      else Eof_1 := True
    end
    else
    begin
      Write(f3, x2);
      if not Eof(f2) then Read(f2, x2)
      else Eof_2 := True
    end
  end;
  f1.Close;
  f2.Close;
  f3.Close
end;

begin
  //ChDir('files');
  var s1 := 'r51_1.dat';
  var s2 := 'r51_2.dat';
  var s3 := 'r51_3.dat';
  var s4 := 'r51_4.dat';
  var stmp := 'r51_tmp.dat';
  var ftmp: file of real;
  Assign (ftmp, stmp);
  
  if not FileExists(s1) then
    WriteElements(s1, Seq(15, 9, 8, 3, 1).Select(x -> x / 1));
  if not FileExists(s2) then
    WriteElements(s2, Seq(13, 11, 7, 5).Select(x -> x / 1));
  if not FileExists(s3) then
    WriteElements(s3, Seq(14, 12, 10, 6, 4, 2, 0).Select(x -> x / 1));
  
  SortByJoin(s1, s2, stmp);
  SortByJoin(stmp, s3, s4);
  ReadElements&<real>(s4).Println;//15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0
  Erase(ftmp);
end.

program File51;//pabc.net

procedure SortByJoin(s1, s2, s3: string);

begin

var f1, f2, f3: file of real;

var x1, x2: real;

Reset(f1, s1);

if not Eof(f1) then Read(f1, x1);

var Eof_1 := Eof(f1) ? True : False;

Reset(f2, s2);

if not Eof(f2) then Read(f2, x2);

var Eof_2 := Eof(f2) ? True : False;

Rewrite(f3, s3);

for var i := 0 to FileSize(f1) + FileSize(f2) - 1 do

begin

if Eof_1 then

begin

Write(f3, x2);

if not Eof(f2) then Read(f2, x2)

end

else if Eof_2 then

begin

Write(f3, x1);

if not Eof(f1) then Read(f1, x1)

end

else if x1 > x2 then

begin

Write(f3, x1);

if not Eof(f1) then Read(f1, x1)

else Eof_1 := True

end

else

begin

Write(f3, x2);

if not Eof(f2) then Read(f2, x2)

else Eof_2 := True

end

end;

f1.Close;

f2.Close;

f3.Close

end;

begin

//ChDir('files');

var s1 := 'r51_1.dat';

var s2 := 'r51_2.dat';

var s3 := 'r51_3.dat';

var s4 := 'r51_4.dat';

var stmp := 'r51_tmp.dat';

var ftmp: file of real;

Assign (ftmp, stmp);

if not FileExists(s1) then

WriteElements(s1, Seq(15, 9, 8, 3, 1).Select(x -> x / 1));

if not FileExists(s2) then

WriteElements(s2, Seq(13, 11, 7, 5).Select(x -> x / 1));

if not FileExists(s3) then

WriteElements(s3, Seq(14, 12, 10, 6, 4, 2, 0).Select(x -> x / 1));

SortByJoin(s1, s2, stmp);

SortByJoin(stmp, s3, s4);

ReadElements&(s4).Println;//15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0

Erase(ftmp);

end.

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

Автор: Bronislav