Программирование алгоритмов циклической структуры(Pascal)

[lerenia]

Вводится последовательность символов. Признак конца ввода - точка. Определить количество двух буквенных слов в данной последовательности. Слова отделяются друг от друга пробелами.

Я взяла 4 переменных для того что бы 2 не были равны пробелу а две другие были равны пробелу( т.е. пробел перед словом дальше две буквы и пробел после.)взяла переменную К счетчик, который будет считать двух буквенные слова. Для того что бы определить будет ли первое слово двух буквенным я сделала искусственную проверку для первого раза взяла переменную i (т.к. в первом слове для удовлетворения условия (две буквы) должно быть 3 символа: 2буквы и пробел.) Теперь я не могу вс` это соединить в одно, на этапе описания первого слова я стопорюсь. подскажите пожалуйста

[Serge_Bliznykov]

Вы что-то очень сложное придумали.
Всё намного проще. Берём строчку. Разбираем (или, как ещё говорят программисты - "парсим" ) строку на отдельные слова.
для каждого слова проверяем нужный признак (в данном случае - длина слова равна двум), увеличиваем счётчик нужных слов. Всё.

примеров, как парсить строчку (разобрать на отдельные слова) тут на форуме полно.

[lerenia]

Сообщение от Serge_Bliznykov

примеров, как парсить строчку (разобрать на отдельные слова) тут на форуме полно.

а можно ссылку?
Мне нужно именно цикл что бы был, если разбивать на слова то цикл будет?

[Serge_Bliznykov]

неужели поиском ничего не нашли?!

ладно, поищу за вас...

посмотрите, например,
мой пост #2 в этой теме

или,

пост #2 - тут

или пост #2 тут


это так, навскидку... подобных тем тут на форуме десятки!

[DiemonStar]

readln(S); J := 0; Cnt := 0;
for I := 1 to length(s) do
  if S[I] = " " then
    begin
        if (I - J) = 3 then Cnt := Cnt + 1;
        J := I;
    end;

что тут сложного?

[Serge_Bliznykov]

впрочем... задачу можно решить и так:

var CurrentWordLength : integer; 
    ch : char;
    count2letter : integer;
begin   
 CurrentWordLength := 0; {сбросим счётчик длины текущего слова}
 count2letter := 0; {количество двухбуквенных слов обнуляем}

 repeat
   read(ch); {прочитаем очередной символ последовательности}

   if (ch<>'.') and (ch<>' ') then {очередная буква слова}
     CurrentWordLength := CurrentWordLength + 1
   else  {обнаружен конец слова}
   begin

     {если длина текущего слова равна двум буквам - увеличим счётчик слов}
     if CurrentWordLength = 2 then
          count2letter := count2letter + 1;

     CurrentWordLength := 0; {сбросим счётчик длины текущего слова}
   end;
 until ch='.'; {выход по точке}

 WriteLn('Kolichestvo dvyhbukvennyx slov = ', count2letter);

end.