Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
1 / 1 / 0
Регистрация: 10.02.2016
Сообщений: 43
1

Найти длину самой длинной последовательности стоящих рядом одинаковых элементов

10.02.2016, 21:14. Показов 1298. Ответов 4

Заполнить массив из 10 элементов числами и найти длину самой длинной последовательности стоящих рядом одинаковых элементов.


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
program start;
Var A : Array [1..10] of Integer;
Var B: array[1..10] of Integer;
Var i,k: integer;
begin
For i:=1 to 10 do begin
Write('Enter value {',i,'} = ... ');
Read (A[i]);
end;
k:=1;
For i:=1 to 9 do begin
If A[i]=A[i+1] then begin
k:=k+1;
end
else
B[i]:=k;
k:=1;
end;
k:=1;
For i:= 1 to 10 do begin
If B[i]>B[k] then
K:=i;
end;
Writeln('max length = ',b[k]);
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.02.2016, 21:14
Ответы с готовыми решениями:

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

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

Определить длину самой длинной подстроки из подряд стоящих букв "а"
Дана символьная строка . Определить длину самой длинной подстроки из подряд стоящих букв "а"

Найти длину самой длинной последовательности подряд идущих элементов массива
Помогите написать программу:Задан целочисленный массив A(N). Найти длину самой длинной...

4
Модератор
63706 / 47266 / 32575
Регистрация: 18.05.2008
Сообщений: 114,557
10.02.2016, 21:34 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
program start;
const n=10;
Var A : Array [1..n] of Integer;
    i,j,k,mx: integer;
begin
For i:=1 to n do
 begin
   Write('Enter value {',i,'} = ... ');
   Readln (A[i]);
 end;
mx:=1;
i:=2;
while i<=n do
if A[i]=A[i-1] then
 begin
  k:=1;
  j:=i;
  while(j<=n)and(A[j]=A[j-1]) do
   begin
    k:=k+1;
    j:=j+1;
   end;
  if k>mx then mx:=k;
  i:=i+k;
 end
else i:=i+1;
Writeln('max length = ',mx);
end.
0
Модератор
Эксперт по электронике
7598 / 3773 / 1473
Регистрация: 01.02.2015
Сообщений: 11,736
Записей в блоге: 2
10.02.2016, 21:36 3
Если сможете отформатировать текст программы (расставить отступы), то ошибка будет явно видна.

Добавлено через 45 секунд
Упс. Припозднился я с ответом.
0
Модератор
63706 / 47266 / 32575
Регистрация: 18.05.2008
Сообщений: 114,557
10.02.2016, 21:37 4
Да нормально, я же не искал у него ошибку, ибо какая-то чушь написана.
0
Модератор
Эксперт по электронике
7598 / 3773 / 1473
Регистрация: 01.02.2015
Сообщений: 11,736
Записей в блоге: 2
10.02.2016, 22:20 5
Мне кажется, что не совсем чушь. Он только учится и усложняет решение. Если строки 16-17 обрамить операторными скобками begin-end, то задача решится.

Т.е. ТС выбрал верный алгоритм, но не оптимальный, и даже очень далёкий от оптимального.
Но подсказать это, лучше бы после вдохновляющего успеха.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.02.2016, 22:20

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

Найти номер строки матрицы с самой длинной серией одинаковых элементов
using System; using System.Collections.Generic; using System.Linq; using System.Text; ...

Найти длину самой длинной "пилообразной (зубьями вверх)" последовательности
Задано 5 массивов X.для каждого массива нпйти длину k самой длинной &quot;пилообразной (зубьями вверх)&quot;...

Определить длину самой длинной последовательности подряд идущих нулей
составить процедуру для определения длины самой длинной последовательности подряд идущих нулей в...


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

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

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