Автор: Bronislav

Bronislav — Thu, 22 Nov 2018 11:55:38 +0000

program File24;//pabc.net

begin
  var s1 := 'r24.dat';
  var s2 := 'i24.dat';
  var f1: file of real;
  var f2: file of integer;
  if not FileExists(s1) then 
    WriteElements(s1, Seq(0, 0, 1, 1, 1).Select(x -> x / 1));
  
  var x1, x2: real;
  var (Count1, Count2) := (1, 1);
  Reset(f1, s1);
  Rewrite(f2, s2);
  Read(f1, x2);
  for var i := 1 to FileSize(f1) - 1 do
  begin
    x1 := x2;
    Read(f1, x2);
    if (x1 > x2) then 
    begin
      Count1 += 1;
      if Count2 > 1 then
      begin
        Write(f2, Count2);
        Count2 := 1;
      end;
    end
    else if (x1 < x2) then
    begin
      Count2 += 1;
      if Count1 > 1 then
      begin
        Write(f2, Count1);
        Count1 := 1
      end;
    end
    else if (x1 = x2) then
    begin
      Count1 += 1;
      Count2 += 1;
    end;
  end;
  if Count1 < Count2 then Swap(Count1, Count2);
  if Count1 > 1 then Write(f2, Count1);
  if Count2 > 1 then Write(f2, Count2);
  
  Seek(f1, 0); f1.ReadElements.Println;//0 0 1 1 1
  f1.Close;
  Seek(f2, 0); f2.ReadElements.Println;//2 5 3
  f2.Close
end.

program File24;//pabc.net

begin

var s1 := 'r24.dat';

var s2 := 'i24.dat';

var f1: file of real;

var f2: file of integer;

if not FileExists(s1) then

WriteElements(s1, Seq(0, 0, 1, 1, 1).Select(x -> x / 1));

var x1, x2: real;

var (Count1, Count2) := (1, 1);

Reset(f1, s1);

Rewrite(f2, s2);

Read(f1, x2);

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

begin

x1 := x2;

Read(f1, x2);

if (x1 > x2) then

begin

Count1 += 1;

if Count2 > 1 then

begin

Write(f2, Count2);

Count2 := 1;

end;

end

else if (x1 < x2) then

begin

Count2 += 1;

if Count1 > 1 then

begin

Write(f2, Count1);

Count1 := 1

end;

end

else if (x1 = x2) then

begin

Count1 += 1;

Count2 += 1;

end;

if Count1 < Count2 then Swap(Count1, Count2);

if Count1 > 1 then Write(f2, Count1);

if Count2 > 1 then Write(f2, Count2);

Seek(f1, 0); f1.ReadElements.Println;//0 0 1 1 1

f1.Close;

Seek(f2, 0); f2.ReadElements.Println;//2 5 3

f2.Close

end.

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

Автор: Bronislav