Форум » Уголок Программиста » Задача подсчета кол-ва слов в строке (Турбо паскаль) » Ответить
Задача подсчета кол-ва слов в строке (Турбо паскаль)
Мира: Ребята помогите пожалуйста.... Вы знаете как написать программу для подсчета, сколько N-символьных слов (число N вводится пользователем) содержится во введенной строке символов....Напишите хотя бы примерно....Заранее спасибо
Ответов - 3
Alex_soldier: На каком языке писать? Это ведь задачка по учебе?
Мира: Да, На языке Турбо Паскаль
Alex_soldier: До чего же давно не писал на Паскале!!! [pre2] 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. [/pre2]
полная версия страницы