четверг, 11 июня 2009 г.

слово с наибольшим вхождением заданного символа

Задан текст. Определить слово с наибольшим вхождением заданного символа.


var
text: string;
i: integer;
count: integer;
slovo: string;
max_count: integer;
max_slovo: string;
c: char;

begin
{наш текст}
text := 'An emergency WHO meeting on swine flu prompts rumours a pandemic will be declared, as Hong Kong shuts primary schools.';

{проверяемый символ}
c:='e';

{начальное значение наших счётчиков}
slovo:='';
max_count:=0;

for i:=1 to length(text) do begin
if text[i] <> ' ' then begin
if text[i] = c then count:=count + 1;
slovo:=slovo+text[i];
end else begin
if count > max_count then begin
max_count:=count;
max_slovo:=slovo;
end;

count:=0;
slovo:='';
end;
end;

writeln('word "', max_slovo, '" has maximum(', max_count, ') of char "', c, '"');

end.


рабочий пример можно скачать тут

Комментариев нет:

Отправить комментарий