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

@Таатта · Регистрация: 05.12.2013

Студворк — интернет-сервис помощи студентам

Имеется строка, содержащая буквы латинского алфавита. Вывести на экран
длину наибольшей последовательности подряд идущих одинаковых букв.
Программу сделал, но есть ошибка не мог понять, ваши мнения?
1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program qq;
var 
s:string;
l,m,i:integer;
begin
readln(s);
l:=0;
m:=0;
for i:=1 to Length(s) do
  if s[i] in ['A'..'Z','a'..'z'] then Inc(l)
  else begin
    if l>m then m:=l;
    l:=0
  end;
writeln(' ',m);
end.

2.

@Puporev · 25.06.2014, 09:49

Сообщение от Таатта

подряд идущих ОДИНАКОВЫХ букв.

А ты что считаешь?

@Sergio Leone · 25.06.2014, 09:51

я лично вижу только один небольшой косячок - длина последней последовательности в строке не сравнивается с максимумом.

Решить очень просто (причём разными способами).
способ 1. добавить к строке перед циклом в конец символ, который не входит в проверяемую последовательность. Ну, например, пробел:

Pascal
1
2
3
4
5
readln(s);
l:=0;
m:=0;
s := s + ' ';
for i:=1 to Length(s) do

вариант 2.
ничего не добавлять, после цикла проверить l>m:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
l:=0;
m:=0;
for i:=1 to Length(s) do
  if s[i] in ['A'..'Z','a'..'z'] then Inc(l)
  else begin
    if l>m then m:=l;
    l:=0
  end;
 
{проверим, в конце строки не было ли максимальной по длине последовательности}
if l>m then m:=l;
 
writeln(' ',m);

код не проверял, пишу чисто "из головы"

Добавлено через 2 минуты
АААААА! слона то я и не заметил!!

Сообщение от Puporev

Сообщение от Таатта

подряд идущих ОДИНАКОВЫХ букв.

А ты что считаешь?

Точно так! код решает задачу поиска последовательности из букв, но вовсе НЕ ОДИНАКОВЫХ!!!

@Таатта · 25.06.2014, 18:09 **[ТС]**

подряд идущие одинаковые буквы

@Sergio Leone · 25.06.2014, 19:29

Таатта, так Вы поняли свою ошибку?
Код самостоятельно перепишите под условие проверки на равенство двух соседних буковок или помочь?

Новые блоги и статьи Все статьи Все блоги /
Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .	Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .	Изучаем новый шаблон ИИ-чата .NET AI Chat Web App stackOverflow 10.07.2025 В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .	Результаты исследования от команды ARP (июль 2025 г.) Programma_Boinc 10.07.2025 Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .	Angular vs Svelte - что лучше? Reangularity 09.07.2025 Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .
Code First и Database First в Entity Framework UnmanagedCoder 09.07.2025 Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .	Как использовать Bluetooth-модуль HC-05 с Arduino Wired 08.07.2025 Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .	Руководство по структурам данных Python AI_Generated 08.07.2025 Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .	Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Programma_Boinc 08.07.2025 Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .	Раскрываем внутренние механики Android с помощью контекста и манифеста mobDevWorks 07.07.2025 Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .

@Таатта 0 / 0 / 0 Регистрация: 05.12.2013 Сообщений: 20
	25.06.2014, 18:09 [ТС]
	подряд идущие одинаковые буквы 0

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	25.06.2014, 19:29
	Таатта, так Вы поняли свою ошибку? Код самостоятельно перепишите под условие проверки на равенство двух соседних буковок или помочь? 0

Опции темы