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. Определить, является ли заданное слово "перевёртышем" (слово называется "перевёртышем", если совпадает с собой после переворачивания).

Дата добавления: 2013-12-13