|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.06.2014, 20:20 | #1 |
Новичок
Джуниор
Регистрация: 25.06.2014
Сообщений: 3
|
Посчитать количество слов в тексте
С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавиатуре точки. Посчитайте количество слов в тексте.
Подскажите, вот написал нужную прогу (правильно или нет - не уверен, но делает то, что нужно). var str: string; a, count: integer; begin writeln('Введите текст: '); readln(str); a := length(str); if a > 0 then begin count := 1; while a > 0 do begin if str[a] = ' ' then count := count + 1; a := a - 1; end; end; writeln('Количество слов: ', count); readln; end. Только один нюанс. Что нужно дописать, чтобы ввод текста заканчивался именно после нажатия точки на клавиатуре? |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
посчитать количество всех слов,слов-маркеров и процент слов-маркеров | ksenya91 | Помощь студентам | 9 | 09.01.2013 07:00 |
Ввести с клавиатуры строку. Посчитать количество слов в строке. Определить, что является разделителем слов. Вывести рез-ть на экра | Газимов | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 3 | 02.03.2012 15:58 |
Посчитать количество слов | OPEJI | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 19.05.2011 17:58 |
количество слов в тексте | almareta | Помощь студентам | 3 | 01.04.2010 20:59 |
Составить в алфавитном порядке список всех слов, встречающихся в тексте, и количество этих слов. | KAPAHDAW | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 17.02.2009 01:19 |