Определить количество слов, начинающихся с буквы "а"

@hohol · Регистрация: 03.10.2009

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

Помогите люди добрые...

Дана строка символов. Определить количество слов, начинающихся с буквы "а", вывести на печать самое длинное слово, начинающиеся с буквы "а".

@Harlequin · 03.12.2009, 15:41

введи множество разделителей

Pascal

1
2
3

mn: set of char;
 
mn := ['.', ' ', ',' и т.д.]

далее идем по всем буквам строки начиная со второй
если предыдущая разделитель а текущая 'a', то увеличиваем счетчик слов на 1
ну и отдельно первую букву строки проверяем

Pascal

count := 0;
if str[1] = 'a' then
  count := count + 1;
 
for i := 2 to Length(str) do
  if (str[i] = 'a') and (str[i-1] in mn) then
    count := count + 1;

@Inadequate · 03.12.2009, 15:53

Harlequin, посмотрите внимательно вот на это условие

самое длинное слово, начинающиеся с буквы "а"

Ваше решение только считает количество.
hohol, Ваше задание будет выглядеть так:

Pascal

uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
var
  s,temp,max:string;
  i,c:integer;
begin
  clrscr;
  writeln('Ââåäèòå ñòðîêó:');
  readln(s);
  temp:='';
  max:='';
  c:=0;
  {ïðîáåãàåì âñþ ñòðîêó ïîñèìâîëüíî}
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
    begin
      if (temp<>'') and (temp[1] in ['a','A','à','À']) then
      begin
        if length(temp)>length(max) then
          max:=temp;
        inc(c)
      end;
      temp:=''
    end;
  end;
  writeln('Ñàìîå äëèííîå ñëîâî íà "à": ',max,'. Âñåãî òàêèõ ñëîâ: ',c)
end.

@hohol 7 / 7 / 0 Регистрация: 03.10.2009 Сообщений: 46
		1
	Определить количество слов, начинающихся с буквы "а" 03.12.2009, 14:51. Показов 3651. Ответов 2 Метки нет (Все метки) Помогите люди добрые... Дана строка символов. Определить количество слов, начинающихся с буквы "а", вывести на печать самое длинное слово, начинающиеся с буквы "а". 0

	03.12.2009, 15:53

Опции темы

Определить количество слов, начинающихся с буквы "а"

Решение