Как найти длину цепочки в паскале

var
    f, g: Text;
    count, maxCount: Word;
    max, temp, fi: Integer;
begin
    Assign(f, 'data.txt'); Reset(f);
    ReadLn(f, temp);
    count := 1; maxCount := 0;
    max := temp;
    while (Not EoF(f)) do
    begin
        ReadLn(f, fi);
        if (fi = temp)
        then
            Inc(count)
        else
        begin
            if (count > maxCount)
            then
            begin
                max := temp;
                maxCount := count;
            end;
            count := 1;
            temp := fi;
        end;
    end;
    Assign(g, 'output.txt'); ReWrite(g);
    WriteLn(g, 'Число: ', max, ', длина цепочки: ', maxCount);
    Close(f);
    Close(g);
end.

Если цепочки две, то выводится ближайшая. Пойдет?

//t1.txt должен быть в папке с программой
//Pascal
var
  f: text;
  numValue, Counts, n, c, t, i: integer;
begin
  assign(f, ‘t1.txt’);
  reset(f);
  Counts := 0;
  c := 0;
  while not eof(f) do
    begin
      readln(f, n);
      if (c = 0) or (n = t) then
        c := c + 1
      else
        c := 1;
      t := n;
      if c > Counts then
      begin
          Counts := c;
          numValue := n
      end
    end;
  close(f);
  assign(f, ‘t2.txt’);
  rewrite(f);
  writeln(‘Длина цепочки: ‘, Counts);
  for i := 1 to Counts do
    writeln(f, numValue);
  close(f)
end.

Ответ:

Объяснение:

program zadacha;

var d, o: text;

i, j, k, m, s: integer;

 begin

 assign(d, ‘c:data.txt’);

 reset(d);

 assign(o, ‘c:output.txt’);

 rewrite(o);

 i := 1;

 j := 1;

 readln(d, m);

 s := m;

 while not(eof(d)) do

 begin

     readln(d, k);

     if k = m

       then i := i + 1

       else

         begin

           if i > j then

             begin

               s := m;

               j := i

             end;

           m := k

         end;

   end;

 writeln(o, ‘Число: ‘, s, ‘, длина цепочки: ‘, i);

 close(d);

 close(o)

end.

• Комментировать
• Жалоба
• Ссылка