Отправлено: 12.03.10 06:30. Заголовок: Задача подсчета кол-ва слов в строке (Турбо паскаль)
Ребята помогите пожалуйста.... Вы знаете как написать программу для подсчета, сколько N-символьных слов (число N вводится пользователем) содержится во введенной строке символов....Напишите хотя бы примерно....Заранее спасибо
Отправлено: 14.03.10 00:17. Заголовок: До чего же давно не ..
До чего же давно не писал на Паскале!!!
program my; uses crt; var str: string; lenStr, i, nWords: integer; spacer: set of char; begin clrscr; write('Input string and press Enter: '); readln(str); str := str + '.'; { Пусть строка всегда заканчивается точкой } spacer := [' ', '.', ',', ';', ':', '!', '?']; { Набор разделителей слов } lenStr := length(str); nWords := 0;
for i := 2 to lenStr do { Просмотр всех символов со второго } if((str in spacer)and not (str[i-1] in spacer))then inc(nWords); { Только если после нормального символа идет разделитель }
write('There are ', nWords, ' words!', #13#10, 'Press any key...'); repeat until keypressed; end.
Все даты в формате GMT
3 час. Активность сегодня: 31
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет