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

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

Решение:

program File51;
var
 S1,S2,S3,S4: String;
 F1,F2,F3,F4: File of Real;
 El1,El2,El3:Real;
 File1end,File2end,File3end:boolean;

Function comparison(A,B,C:Real; Ba,Bb,Bc:Boolean): Boolean;
begin
 if not(Ba) and not(Bb) and not(Bc) then
  if (A>=B) and (A>=C) then comparison:=true
  else comparison:=false
 else
  if not(Ba) and not(Bb) and Bc then
   if (A>=B) then comparison:=true
   else comparison:=false
  else
   if not(Ba) and Bb and not(Bc) then
    if (A>=C) then comparison:=true
    else comparison:=false
   else
    if not(Ba) and Bb and Bc then comparison:=true
    else comparison:=false;
end;


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

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

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

  Write('S4: ');
  Readln(S4);

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

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


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

  File1end:=false;
  File2end:=false;
  File3end:=false;

  while (not (File1end) or not(File2end) or not(File3end)) do
   begin
    if comparison(El1,El2,El3,File1end,File2end,File3end) then
     begin
      Write(F4,El1);
      if not(eof(F1)) then Read(F1,El1)
      else File1end:=true;
     end
    else
     if comparison(El2,El1,El3,File2end,File1end,File3end) then
      begin
       Write(F4,El2);
       if not(eof(F2)) then Read(F2,El2)
       else File2end:=true;
      end
     else
      if comparison(El3,El1,El2,File3end,File1end,File2end) then
       begin
        Write(F4,El3);
        if not(eof(F3)) then Read(F3,El3)
        else File3end:=true;
       end;
   end;

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

program File51;

var

S1,S2,S3,S4: String;

F1,F2,F3,F4: File of Real;

El1,El2,El3:Real;

File1end,File2end,File3end:boolean;

Function comparison(A,B,C:Real; Ba,Bb,Bc:Boolean): Boolean;

begin

if not(Ba) and not(Bb) and not(Bc) then

if (A>=B) and (A>=C) then comparison:=true

else comparison:=false

else

if not(Ba) and not(Bb) and Bc then

if (A>=B) then comparison:=true

else comparison:=false

else

if not(Ba) and Bb and not(Bc) then

if (A>=C) then comparison:=true

else comparison:=false

else

if not(Ba) and Bb and Bc then comparison:=true

else comparison:=false;

end;

begin

Write('S1: ');

Readln(S1);

Write('S2: ');

Readln(S2);

Write('S3: ');

Readln(S3);

Write('S4: ');

Readln(S4);

Assign(F1,S1);

Assign(F2,S2);

Assign(F3,S3);

Assign(F4,S4);

Reset(F1);

Reset(F2);

Reset(F3);

ReWrite(F4);

Read(F1,El1);

Read(F2,El2);

Read(F3,El3);

File1end:=false;

File2end:=false;

File3end:=false;

while (not (File1end) or not(File2end) or not(File3end)) do

begin

if comparison(El1,El2,El3,File1end,File2end,File3end) then

begin

Write(F4,El1);

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

else File1end:=true;

end

else

if comparison(El2,El1,El3,File2end,File1end,File3end) then

begin

Write(F4,El2);

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

else File2end:=true;

end

else

if comparison(El3,El1,El2,File3end,File1end,File2end) then

begin

Write(F4,El3);

if not(eof(F3)) then Read(F3,El3)

else File3end:=true;

end;

Close(F1);

Close(F2);

Close(F3);

Close(F4);

Readln;

end.

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

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

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&<real>(s4).Println;//15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0

Erase(ftmp);

end.

Ответить

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

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

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

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