Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на строки
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
KA6AH
Помогите, пожалуйста, с задачей, а то что-то никак не выходит ничего путного с ней.
Итак, само, собственно, задание: Строка, вводимая с клавиатуры, содержим группы английских букв, цифр и знаков(+-*). Требуется найти группу букв, содержащую максимальное количество гласных букв.
Заранее благодарен.
volvo
Если тебя интересует группа ЛЮБЫХ букв, содержащая в себе максимальное число гласных - то вот так:
const
letters = ['A' .. 'Z'];
vowels = ['A', 'E', 'I', 'O', 'U'];

var
s: string;
i, pos, max, curr, total: integer;

begin
write('s = '); readln(s);
s := s + ' ';

max := 0;
curr := 0; total := 0;
for i := 1 to length(s) do begin

if upcase(s[i]) in letters then begin
inc(total);
if upcase(s[i]) in vowels then inc(curr);
end
else
if curr > max then begin
pos := i - total;
max := curr;

curr := 0; total := 0;
end;

end;

i := pos;
while upcase(s[i]) in letters do inc(i);
writeln('max vowel group: ', copy(s, pos, i - pos), ' count = ', max)
end.
KA6AH
Большое спасибо. Только еще 1 вопрос: можно сделать так, чтобы группа состояла не из заглавных, а из прописных букв?
Bokul
Цитата
Большое спасибо. Только еще 1 вопрос: можно сделать так, чтобы группа состояла не из заглавных, а из прописных букв?

Если ты имееш в виду, искать групу только прописных букв, которая содержить наибольшое количество
гласных букв, то надо изменить
  letters = ['A' .. 'Z'];
vowels = ['A', 'E', 'I', 'O', 'U'];

на
  letters = ['a' .. 'z'];
vowels = ['a', 'e', 'i', 'o', 'u'];

и удалить upcase'и
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.