Помогите, пожалуйста, с задачей, а то что-то никак не выходит ничего путного с ней.
Итак, само, собственно, задание: Строка, вводимая с клавиатуры, содержим группы английских букв, цифр и знаков(+-*). Требуется найти группу букв, содержащую максимальное количество гласных букв.
Заранее благодарен.
Если тебя интересует группа ЛЮБЫХ букв, содержащая в себе максимальное число гласных - то вот так:
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.
Большое спасибо. Только еще 1 вопрос: можно сделать так, чтобы группа состояла не из заглавных, а из прописных букв?
letters = ['A' .. 'Z'];
vowels = ['A', 'E', 'I', 'O', 'U'];
letters = ['a' .. 'z'];
vowels = ['a', 'e', 'i', 'o', 'u'];