Автор: Bronislav

Bronislav — Thu, 22 Nov 2018 11:52:51 +0000

program File23;//pabc.net

begin
  var s1 := 'r23.dat';
  var s2 := 'i23.dat';
  var f1: file of real;
  var f2: file of integer;
  if not FileExists(s1) then 
    WriteElements(s1, SeqRandom(10, 0, 20).Select(x -> x / 1));
  ReadElements&<real>(s1).Println;//20 16 13 0 15 4 19 15 3 11
  
  var x1, x2: real;
  var Count := 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 Count += 1
    else
    begin
      if Count > 1 then
      begin
        Write(f2, Count);
        Count := 1;
      end
    end
  end;
  if Count > 1 then Write(f2, Count);
  f1.Close;
  Seek(f2, 0); f2.ReadElements.Println;//4 2 3
  f2.Close
end.

program File23;//pabc.net

begin

var s1 := 'r23.dat';

var s2 := 'i23.dat';

var f1: file of real;

var f2: file of integer;

if not FileExists(s1) then

WriteElements(s1, SeqRandom(10, 0, 20).Select(x -> x / 1));

ReadElements&(s1).Println;//20 16 13 0 15 4 19 15 3 11

var x1, x2: real;

var Count := 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 Count += 1

else

begin

if Count > 1 then

begin

Write(f2, Count);

Count := 1;

end

end;

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

f1.Close;

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

f2.Close

end.

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

Автор: Bronislav