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

File16. Дан файл целых чисел. Найти количество содержащихся в нем серий (то есть наборов последовательно расположенных одинаковых элементов). Например, для файла с элементами $$1, 5, 5, 5, 4, 4, 5$$ результат равен $$4$$.

Решение:

program File16;

{$APPTYPE CONSOLE}

var
 S:String;
 F_in: File of Integer;
 El,i,temp:integer;

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

  Read(F_in,temp);
  El:=temp;

  i:=1;

  while (not eof(F_in)) do
   begin
    Read(F_in,temp);
    if El<>temp then
     begin
      El:=temp;
      inc(i);
     end;

   end;

  Writeln(i);
  Close(F_in);
end.

program File16;

{$APPTYPE CONSOLE}

var

S:String;

F_in: File of Integer;

El,i,temp:integer;

begin

Write('File: ');

Readln(S);

Assign(F_in,S);

Reset(F_in);

Read(F_in,temp);

El:=temp;

i:=1;

while (not eof(F_in)) do

begin

Read(F_in,temp);

if El<>temp then

begin

El:=temp;

inc(i);

end;

Writeln(i);

Close(F_in);

end.

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

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

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

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