Файлы

[Сristina]

Дан текст, содержащий слова. Посчитать кол-во слов, у которых первое и последнее слово начинается на одну и ту же букву.
решите пожалуйста, у меня не получается(

[Serge_Bliznykov]

не получается? Значит пытались?!
Давайте код, который написали в результате этих ваших попыток.

p.s.
а ещё нужно указывать язык программирования.

А ещё в таких задачах обычно в условии задаётся, что является разделителем слов.

А ещё рекомендую в поиск сходить, такие задачи неоднократно решались на форуме!


ДОБАВЛЕНО
Перечитал условие задачи и офигел слегка! o_O!
А как это количество слов, у которых есть первое и последнее слово?!!! Как у слова может быть первое и последнее слово?!

Может найти количество строк?
Или найти количество предложений?
Или что?!!

В данной формулировке задача не имеет решения вообще!

[Сristina]

ой=))) Посчитать кол-во слов, у которых первый и последний символ начинается на одну и туже букву.

Язык Pascal)

[GetMax]

Перечитал условие задачи и офигел слегка! o_O!
А как это количество слов, у которых есть первое и последнее слово?!!!

Тут люди числа с цифрами путают. Почему бы и буквы со словами не путать.
Теперь по делу. Cristina, вот код - разбирайтесь. При желании можно дописать на проверку заглавных букв

Var
  Ishstr,bufStr:String;
  i,kolSlov:Byte;
begin
  Readln(IshStr);
  BufStr:='';
  KolSlov:=0;
  For i:=1 to Length(IshStr) do
  Begin
    If (Ishstr[i] <> ' ') then BufStr:=BufStr+IshStr[i];
    If (IshStr[i] = ' ') or (i = Length(Ishstr)) then
    Begin
      If (BufStr[1] = BufStr[Length(Bufstr)]) then Inc(KolSlov);
      BufStr:=''
    End;
  End;
  If KolSlov > 0 then
  Writeln('Kol slov = ',Kolslov)
  Else
  Writeln('Not Found');
  Readln
End.

[Serge_Bliznykov]

вполне ничего себе.
Мне кажется есть небольшой косячокс. (не проверял, в уме прогнал код! могу и ошибаться!)

надо обязательно добавить перед проверкой равенства первого и последего символов BufStr проверку, что Length(BufStr)>0
иначе, если входная строка начинается с нуля будут косяки с обращением к несуществующим символам BufStr!

[GetMax]

если входная строка начинается с нуля будут косяки с обращением к несуществующим символам BufStr!

Не совсем понял как это. Можно поподробнее?

[Serge_Bliznykov]

выделено цветом:

If (IshStr[i] = ' ') or (i = Length(Ishstr)) then
    Begin
      if Length(Bufstr)>0 then begin
         If (BufStr[1] = BufStr[Length(Bufstr)]) then Inc(KolSlov);
         BufStr:=''
      end;
    End;

Не совсем понял как это. Можно поподробнее?

тоже, кстати, должно происходить, если между словами в строке более одного пробела.
Коллега, ну что я Вам буду разжёвывать, Вы же сами в состоянии пройтись и проверить.
ну, Если встретиили пробел, значит идём по веточке If (BufStr[1] = BufStr[Length(Bufstr)])
при чём, это пробел может быть ПЕРВЫЙ в строке! или слово было отработано, а после него ещё есть пара пробелов...
В этом случае у нас в Bufstr пустая строка. Так? что даст Bufstr[1] если строка пустая?!
А что даст BufStr[Length(Bufstr)] при пустой строке? вот то ж...

p.s. поваторюсь - это мои измышления, в паскале не проверял!

[Сristina]

Спасибо Огромное!!!))) Всё, я разобралась))