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

File50. Даны два файла вещественных чисел с именами $S_1$ и $S_2$ , элементы которых упорядочены по возрастанию. Объединить эти файлы в новый файл с именем $S_3$ так, чтобы его элементы также оказались упорядоченными по возрастанию.

Решение:

program File50;
var
 S1,S2,S3: String;
 F1,F2,F3: File of Real;
 El1,El2:Real;

begin
  Write('S1: ');
  Readln(S1);

  Write('S2: ');
  Readln(S2);

  Write('S3: ');
  Readln(S3);

  Assign(F1,S1);
  Assign(F2,S2);
  Assign(F3,S3);

  Reset(F1);
  Reset(F2);
  ReWrite(F3);

  Read(F1,El1);
  Read(F2,El2);

  while true do
   begin
    if El1<El2 then
     begin
      Write(F3,El1);
      if not (eof(F1)) then Read(F1,El1)
      else
       begin
        Write(F3,El2);
        break;
       end;
     end
    else
     begin
      Write(F3,El2);
      if not(eof(F2)) then Read(F2,El2)
      else
       begin
        Write(F3,El1);
        break;
       end;
     end;
   end;


  if not (Eof(F2)) then
   begin
    while not(eof(F2)) do
     begin
      Read(F2,El2);
      Write(F3,El2);
     end;
   end;

  if not (Eof(F1)) then
   begin
    while not(eof(F1)) do
     begin
      Read(F1,El1);
      Write(F3,El1);
     end;
   end;

  Close(F1);
  Close(F2);
  Close(F3);
  Readln;
end.

program File50;

var

S1,S2,S3: String;

F1,F2,F3: File of Real;

El1,El2:Real;

begin

Write('S1: ');

Readln(S1);

Write('S2: ');

Readln(S2);

Write('S3: ');

Readln(S3);

Assign(F1,S1);

Assign(F2,S2);

Assign(F3,S3);

Reset(F1);

Reset(F2);

ReWrite(F3);

Read(F1,El1);

Read(F2,El2);

while true do

begin

if El1<El2 then

begin

Write(F3,El1);

if not (eof(F1)) then Read(F1,El1)

else

begin

Write(F3,El2);

break;

end;

end

else

begin

Write(F3,El2);

if not(eof(F2)) then Read(F2,El2)

else

begin

Write(F3,El1);

break;

end;

if not (Eof(F2)) then

begin

while not(eof(F2)) do

begin

Read(F2,El2);

Write(F3,El2);

end;

if not (Eof(F1)) then

begin

while not(eof(F1)) do

begin

Read(F1,El1);

Write(F3,El1);

end;

Close(F1);

Close(F2);

Close(F3);

Readln;

end.

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

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

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

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

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

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