Program KolSlov;

Тест

Вариант 2. Слова в тексте разделены произвольным количеством пробелов.

Тест

Вариант 1. Слова в тексте разделены одним пробелом.

Пример 1. Определить количество слов в заданном тексте.

Примеры программ работы со строковыми данными

Если слова в тексте разделены одним пробелом, то задача сводится к подсчету числа пробелов. Количество слов при этом равно числу пробелов плюс 1. Если же число пробелов между соседними словами произвольное, как обычно и бывает, то алгоритм усложняется. Рассмотрим оба варианта решения этой задачи.

Данные Результат
"Кот на крыше" N=3
Program Probel; Uses Crt; Var Text : String; {заданный непустой текст} i, Number : Integer; {Number — количество слов в тексте} Letter : Char; {текущая буква }BEGIN ClrScr; WriteLn('Введите текст :'); ReadLn(Text); Number:=1; For i:=1 to Length(Text) do {цикл по буквам текста} begin Letter:=Text[i]; If (Letter = ' ') then Number:=Number+1; end; WriteLn('О т в е т : количество слов в тексте равно ', Number);END.
Данные Результат
"Кот на крыше" N=3

 

Uses Crt; Var Text : String; {заданный текст} i, Number : Integer; {Number - количество слов в тексте} Flag : Boolean; Letter : Char; {текущая буква }BEGIN ClrScr; WriteLn('Введите текст :'); ReadLn(Text); Number := 0; Flag := TRUE; For i := 1 to Length(Text) do {цикл по буквам текста} begin Letter := Text[i]; {текущая буква текста } If (Letter <> ' ') and Flag then Number := Number+1; Flag := (Letter=' ') {(Letter=' ') — логическое выражение,} end; {принимающее значения TRUE или FALSE } WriteLn; WriteLn('О т в е т : количество слов в тексте равно ', Number); ReadLnEND. Пример 2. Определить, является ли заданное слово "перевёртышем" (слово называется "перевёртышем", если совпадает с собой после переворачивания).