Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Посчитать, сколько слов содержит данная строка.
PROGRAM PRG3_3;
VAR S1 : STRING;
J, К, I : INTEGER;
BEGIN
WRITELN(‘BBEДИTE ТЕКСТ ДО ТОЧКИ’);
READLN(S1);
J := POS(‘.’, S1);
IF S1[J-1] = » THEN
K:=-1
ELSE
К := 0;
S1 :=COPY(S1, 1, J-1);
REPEAT
I := POS(‘. ‘, S1);
DELETE(S1, 1, I);
IF K>1 THEN
K:=K+1;
UNTIL I = 0;
WRITELN(‘KОЛИЧЕСТВО СЛОВ К = ‘, К)
END.
Для решения задачи:
— формируем тело программы и описываем переменные;
— вводим строку S1;
— определяем местоположение первой точки в тексте; если точка есть, то отрезаем от S1 текст начиная с нее;
— организуем поиск в строке пробелов до тех пор, пока они там встречаются;
— найдя пробел, отрезаем очередное слово и следующий за ним пробел;
— если в найденном слове есть хотя бы одна буква, то увеличиваем счетчик слов;
— выводим результат на экран.
Переменные:
I — вспомогательная переменная;
J — местоположение первой точки;
S1 — строка текста;
К — счетчик слов.