0 / 0 / 0
Регистрация: 27.06.2013
Сообщений: 15
1

Найти длину самой длинной цепочки одинаковых чисел, идущих подряд, и записать её в файл output.txt

17.07.2013, 21:06. Показов 28388. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В файле data.txt записаны числа, сколько их – неизвестно.
Найти длину самой длинной цепочки одинаковых чисел, идущих подряд, и записать её в файл output.txt.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.07.2013, 21:06
Ответы с готовыми решениями:

Определить длину самой длинной цепочки идущих подряд одинаковых чисел и вывести результат в другой файл
В файле в столбик записаны целые числа, сколько их – неизвестно. Напишите программу, которая...

Найти длину самой длинной цепочки одинаковых чисел, идущих подряд
В файле data.txt записаны числа, сколько их – неизвестно. Найти длину самой длинной цепочки...

Найти длину самой длинной цепочки одинаковых чисел, идущих подряд в файле
2)Найти длину самой длинной цепочки одинаковых чисел, идущих подряд в файле input1.txt . Количество...

Определить длину самой длинной цепочки идущих подряд одинаковых чисел
в файле в столбик записаны целые числа, сколько их-неизвестно. Напишите программу, которая...

3
Модератор
9880 / 5247 / 3308
Регистрация: 17.08.2012
Сообщений: 16,029
17.07.2013, 23:27 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program MaxCh;
 
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.
1
1 / 1 / 0
Регистрация: 23.09.2017
Сообщений: 4
15.10.2017, 21:54 3
Если взять файл input из чисел:

10
10
-6
-2
-2
-2

то в файл данная программа выводит не верный ответ. А именно:
Число: 10, длина цепочки: 4
1
Модератор
9880 / 5247 / 3308
Регистрация: 17.08.2012
Сообщений: 16,029
16.10.2017, 02:28 4
Написано давно, и, как выяснилось, неверно.

Вот так правильно:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var f: text;
    nm, cm, n, c, t: integer;
begin
  assign(f, 'd:\input.txt');
  reset(f);
  cm := 0;
  c := 0;
  while not eof(f) do
    begin
      readln(f, n);
      if (c = 0) or (n = t)
        then inc(c)
        else c := 1;
      t := n;
      if c > cm
        then begin
          cm := c;
          nm := n
        end
    end;
  close(f);
  assign(f, 'd:\output.txt');
  rewrite(f);
  writeln(f, 'Длина цепочки: ', cm);
  if cm > 0 then write(', число: ', nm);
  close(f)
end.
0
16.10.2017, 02:28
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2017, 02:28
Помогаю со студенческими работами здесь

Найти длину самой длинной цепочки одинаковых чисел, идущих подряд, и записать её в файл
var f: text; nm, cm, n, c, t: integer; begin assign(f, 'd:\input.txt'); reset(f); cm...

Напишите программу которая определяет длину самой длинной цепочки идущих подряд одинаковых чисел
В файле в столбик записаны целые числа, сколько их - неизвестно. Напишите программу которая...

Поиск самой длинной цепочки из подряд идущих одинаковых элементов в массиве
Помогите пожалуйста решить программу. Если можно как можно проще используя только циклы, ветвления...

Напишите функцию поиска самой длинной цепочки из подряд идущих одинаковых элементов в массиве
Напишите функцию поиска самой длинной цепочки из подряд идущих одинаковых элементов в массиве

Найти длину самой длинной цепочки подряд стоящих 1 в его двоичном представлении
Дано натуральное число N. найти длину самой длинной цепочки подряд стоящих 1 в его двоичном...

Найти длину самой длинной "пилообразной" последовательности идущих подряд чисел
Создать файл из m вещественных чисел. Найти длину k самой длинной "пилообразной(зубьями вверх)"...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru