Упражнение 3 (Символьные переменные и строки)

Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Посчитать, сколько слов содержит данная строка.

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 — строка текста;

К — счетчик слов.

Добавить комментарий