Консультация № 136473
12.05.2008, 13:58
0.00 руб.
0 1 1
Составить программу вычисления кол-ва слов в строке. Слова разделены 1 пробелом

Обсуждение

Неизвестный
12.05.2008, 15:54
общий
это ответ
Здравствуйте, Cobain!
Если без дополнительных проверок, т.е. условие строго выполняется:
1. Слова разделены только 1 пробелом.
2. В конце строки нет пробела.

То программа будет такая.

Приложение:
Program Poisk_slov;USES CRT;Var S : String; { Исходная строка } i : Byte; { Переменная цикла } k : Byte; { Переменная количества слов в строке }begin ClrScr; WriteLn(‘Vvedite slova cherez probel:‘); Read(S); { Вводим исходную строку } For i:= 1 to Length(S) do { В цикле перебираем по одному символу всю строку } if S[i]=‘ ‘ then k:=k+1 { Если очередной символ пробел, то увеличиваем счетчик k на 1 } k :=k+1; { Увеличиваем счетчик k на 1 для правильного счета } WriteLn(‘Всего в строке ‘,k,‘ слов‘);end.
Форма ответа