Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
InterPaul
0 / 0 / 0
Регистрация: 08.01.2012
Сообщений: 14
1

Программа для подсчета наибольшего количества повторения подряд числа!

09.01.2012, 23:12. Просмотров 1386. Ответов 3
Метки нет (Все метки)

Смысл задания:
Пользователь задает число,например 8.
Затем задает подряд 8 чисел(ну либо другое количество, в зависимости от предыдущего), например
4 2 2 1 4 4 4 6.
В ответе он должен выдать число 3. Так как 4ка повторяется 3 раза,а это наибольшее кол-во повторений.

Эта программа работает правильно,только вот нужна программа,в которой не будет ограничений на кол-во вводимых чисел. Иными слова надо сделать не через массив. Помогите пожалуйста!

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
program maxU;                       
var a:array [1..1000] of integer;
    c,dp,p,s,i:integer;
 
label 1;
 
begin
p:=1;
 
  writeln('Vvedite cislo: ');
  readln(s);
  for i:=1 to s do
  begin
  readln(a[i]);
  end;
 
 for i:=1 to s do
  begin
 
 
      if a[i]=a[i+1] then inc(p)
       else begin
        if p>dp then begin dp:=p; p:=1; end;
            end;
 
 end;
writeln('Dlina max cisla povtorenij',dp);
 
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2012, 23:12
Ответы с готовыми решениями:

Программа для подсчета количества элементов массива
Помогите пожалуйста составить программу. Задание: Составить программу подсчета количества...

Программа для подсчета количества букв в строке!
Как на Турбо Паскале написать программу для подсчета всех русских букв используемых в написанной...

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

Напишите программу подсчета максимального количества подряд идущих совпадающих элементов
Всем привет!) надеюсь поможете сделать несколько программ с массивом. напишите программу...

В одномерном массиве группу из наибольшего числа подряд идущих нулей заменить на максимальное значение
В одномерном массиве A=(a1, а2, ..., аn) группу из наибольшего числа под- ряд идущих нулей заменить...

3
versa4e
trainspotting
1083 / 483 / 384
Регистрация: 11.11.2010
Сообщений: 773
09.01.2012, 23:50 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
var
  prev,cur,k,max:integer;
begin  
  writeln('Vvodite chisla, konets vvoda <0>');
  write('x=');
  readln(prev);
  max:=1;
  k:=1;
  repeat
    if prev<>0 then
      begin
        write('x=');
        readln(cur);
        if cur=prev then
          begin
            inc(k);
            if k>max then
              max:=k;
          end
        else
          k:=1;
        prev:=cur;
      end
    else
      max:=0;
  until prev=0;
  if max<>0 then
    write('Max. kol-vo podryad idushih odinakovyh chisel:',max)
  else
    write('Vy ne vvodili chisla');
end.
0
InterPaul
0 / 0 / 0
Регистрация: 08.01.2012
Сообщений: 14
10.01.2012, 00:43  [ТС] 3
versa4e, хорошее решение.Спасибо. Единственное, что 0 нельзя посчитать!
0
versa4e
trainspotting
1083 / 483 / 384
Регистрация: 11.11.2010
Сообщений: 773
10.01.2012, 01:12 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
var
  prev,cur,k,max,n,i:integer;
begin  
  write('Kol-vo chisel:');
  readln(n);
  write('x=');
  readln(prev);
  max:=1;
  k:=1;
  for i:=2 to n do
    begin
      write('x=');
      readln(cur);
      if cur=prev then
        begin
          inc(k);
          if k>max then
            max:=k;
        end
      else
        k:=1;
      prev:=cur;
    end;
  write('Max. kol-vo podryad idushih odinakovyh chisel:',max);
end.
0
10.01.2012, 01:12
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2012, 01:12

Составить программу для подсчета наибольшего количества одинаковых элементов
Составить программу для подсчета набольшего количества одинаковых элементов, размещенных...

Запрос для подсчета количества идущих подряд одинаковых значений
Здравствуйте, есть в таблице столбец, например: 1 2 1 1 1 1 3 3 1

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.