Автор: Bronislav

Bronislav — Sat, 24 Nov 2018 11:49:46 +0000

program File50;//pabc.net

begin
  var s1 := 'r50_1.dat';
  var s2 := 'r50_2.dat';
  var s3 := 'r50_3.dat';
  var f1, f2, f3: file of real;
  
  if not FileExists(s1) then
    WriteElements(s1, Seq(1, 3, 5, 7, 9).Select(x -> x / 1));
  if not FileExists(s2) then
    WriteElements(s2, Seq(0, 2, 4, 6, 8, 10, 12).Select(x -> x / 1));
  
  var x1, x2: real;
  
  Reset(f1, s1);
  if not Eof(f1) then Read(f1, x1);
  
  Reset(f2, s2);
  if not Eof(f2) then Read(f2, x2);
  
  var Eof_1 := Eof(f1) ? True : False;
  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;
  
  Seek(f3, 0); f3.ReadElements.Println;//0 1 2 3 4 5 6 7 8 9 10 12
  f1.Close;
  f2.Close;
  f3.Close
end.

program File50;//pabc.net

begin

var s1 := 'r50_1.dat';

var s2 := 'r50_2.dat';

var s3 := 'r50_3.dat';

var f1, f2, f3: file of real;

if not FileExists(s1) then

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

if not FileExists(s2) then

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

var x1, x2: real;

Reset(f1, s1);

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

Reset(f2, s2);

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

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

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;

Seek(f3, 0); f3.ReadElements.Println;//0 1 2 3 4 5 6 7 8 9 10 12

f1.Close;

f2.Close;

f3.Close

end.

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

Автор: Bronislav