[sasha.belyi]

Задача: Дана строка. Определить сколько слов в строке начинается с той же буквы, которой закончилось предыдущее предложение.

Вот составил программу, но она почему то не считает первое слово, если оно начинается на последнюю букву предлжения.

Код:

program stroka;
uses crt;
var a:string; i,k:integer;
begin
clrscr;
Writeln ('Введите строку: ');
read (a);
k:=0;
for I:=1 to length(a) do
if (a[i]=a[length(a)]) and (a[i-1]=' ') then k:=k+1;
Writeln ('Кол-во слов равно: ',k);
readkey;
end.

Админ: Не забываем про теги!

Подскажите что не так пожалуйста!

[Bargest]

1) Ваша программа будет считать количество слов, начинающихся с той же буквы, на которую кончается текущее предложение. Так и задумано?
2) Нужно модифицировать проверку:

Код:

if (a[i]=a[length(a)]) and ((i=1)or(a[i-1]=' ')) then 
     k:=k+1;

Поскольку для первого слова (когда i=1) a[i-1] не существует.
Или второй вариант, более правильный:

Код:

if (a[i]=a[length(a)]) then
 if (i=1)
     k:=k+1
 else if (a[i-1]=' ') then   // чтобы для i=1 не обращаться к a[i-1]; 
     k:=k+1;                // на практике компилятор, возможно, и в первом случае 
                           // обращаться не будет, когда i=1.  

Кстати, если предложение будет начинаться с пробелов, программа работать не будет. Предварительно надо их убрать (если нужно).
Кстати v2, в конце то же самое. Если на конце знаки препинания или пробелы - не заработает. Их бы тоже убрать.

[sasha.belyi]

Спасибо огромное, то что надо)

[qwqw21]

Только в нашей фирме. Высокое качество клининговых услуг обеспечивается ответственной работой целого штата профессиональных сотрудников, располагающих самым современным оборудованием. За подробностями сюда:
http://service-cleanings.ru/