Автор: Hope 7.03.2005 3:06
Поможите чем можете!!!! Я попала в затруднительное положение :p2: Я не знаю как подступиться к задаче!!! А задача вот какая: Определить в строке букву чаще всего повторяющуюся! Пример: ааввввссс - результат в 4 раза. Но надо расмотреть и случай когда количество букв будет совпадать!!! Зарание спасибо за помощь!!! :thanks:
Автор: volvo 7.03.2005 3:49
Цитата(Hope @ 6.03.05 22:06)
Но надо расмотреть и случай когда количество букв будет совпадать!!!
Вот этот случай, пожалуйста уточните... Что программа должна тогда делать? Выводить все буквы, встречающиеся макс. количество раз, или просто сказать, сколько таких букв?
Автор: Hope 8.03.2005 1:32
Пример при этой ситуации: ааааввсссс , результат: а,с 4 раза!!!!
Автор: volvo 8.03.2005 2:38
Ну, и в чем проблема? Куда уже проще?
Код
const
s: string = 'bbbbaacccc';
var
counter: array[char] of byte;
max: byte;
var i: integer;
begin
max := 0;
for i := 1 to length(s) do
begin
inc(counter[s[i]]);
if max < counter[s[i]] then
max := counter[s[i]]
end;
for i := 1 to 255 do
if counter[chr(i)] = max then
write(chr(i), ' ');
writeln(max, ' раз(а)...');
end.
Автор: Hope 9.03.2005 1:26
Спасибки!!! не знаю как благодарить!!!!! =)