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

File23. Дан файл вещественных чисел. Создать файл целых чисел, содержащий длины всех убывающих последовательностей элементов исходного файла. Например, для исходного файла с элементами $$1.7, 4.5, 3.4, 2.2, 8.5, 1.2$$ содержимое результирующего файла должно быть следующим: $$3, 2$$.

Решение:

program File21;

{$APPTYPE CONSOLE}

var
 S:String;
 F_in: File of Real;
 F_out: File of Integer;
 El1,El:Real;
 len:integer;

begin
  Write('File: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);

  Write('File_out: ');
  Readln(S);
  Assign(F_out,S);
  ReWrite(F_out);


  Read(F_in,El);
  len:=1;
  while (not eof(F_in)) do
   begin
    El1:=El;
    Read(F_in,El);
    if El1>El then inc(len)
    else
     begin
      if len>1 then
       begin
        Write(F_out,len);
        len:=1;
       end;
     end;
   end;

  Close(F_in);
  Close(F_out);
end.

program File21;

{$APPTYPE CONSOLE}

var

S:String;

F_in: File of Real;

F_out: File of Integer;

El1,El:Real;

len:integer;

begin

Write('File: ');

Readln(S);

Assign(F_in,S);

Reset(F_in);

Write('File_out: ');

Readln(S);

Assign(F_out,S);

ReWrite(F_out);

Read(F_in,El);

len:=1;

while (not eof(F_in)) do

begin

El1:=El;

Read(F_in,El);

if El1>El then inc(len)

else

begin

if len>1 then

begin

Write(F_out,len);

len:=1;

end;

Close(F_in);

Close(F_out);

end.

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

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

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

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

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