Ну выскажу лишь идеи. Нужно делать разбор текста на слова и предложения. Словом можно считать любую последовательность символов, ограниченную знаками препинания или пробелами. А предложение заканчивается точкой, вопросом или восклицанием. Т. е. первым делом по мере чтения текста копим в буфере предложение (до символа конца предложения или конца файла) . Потом в накопленном предложении считаем слова. И ведем два счетчика - счетчик слов и счетчик предложений. По окончании чтения и разбора делим первое на второе и выводим как ответ.
Для определения буква-небуква-спецсимвол итд рекомендую использовать тип Set of Char
Bukva: Set of Char = ['a'..'z', 'A'..'Z', 'А'..'Я', 'а'..'я', '0'..'9'];
Prepinanie : set of char = [#0..' ', '.', ',', '!', '(', ')', '[', ']', ';', ':'];
Ну ты понял. Тогда определить что это такое можно так
if c in Bukva then do_smth;
Другие языки программирования и технологии
помогить как сделать в TURBO PASCAL задачу: Ввести произвольный текст. Вычислить среднее число слов в предложении.
Ну я думаю с вводом произвольного текста это понятно как - ReadLn('Текст: ', txt);
А вычисление среднее число слов, это не понятно. Вот есть предложение, там есть, к примеру 7 слов. И как среднее число вычислить?
Кол-во слов высчитывай так: бери циклом с первого символа по последний, если текущий символ не буква, то увеличивай перменную на 1.
Чтобы узнать буква это или не буква, проверяй так: if (ord(s)=>65 and ord(s)<=90) or (ord(s)>=97 and ord(s)<=122) or (ord(s)>=192) then ЭТО_БУКВА.
А вычисление среднее число слов, это не понятно. Вот есть предложение, там есть, к примеру 7 слов. И как среднее число вычислить?
Кол-во слов высчитывай так: бери циклом с первого символа по последний, если текущий символ не буква, то увеличивай перменную на 1.
Чтобы узнать буква это или не буква, проверяй так: if (ord(s)=>65 and ord(s)<=90) or (ord(s)>=97 and ord(s)<=122) or (ord(s)>=192) then ЭТО_БУКВА.
Похожие вопросы
- Задача по Turbo Pascal
- Как вставить текст в Turbo Pascal 7.1???
- Мне задали сделать задачу по Turbo Pascal, но я забыл что нужно писать в var и READ. подскажите пожалуйста.
- как решить через abc pascal задачу "Дано натуральное число n. Получить все простые делители этого числа"
- Помогите сделать задания по програмированию(двумерные массивы)Turbo Pascal
- Подскажите решение задачи на Borland Turbo Pascal
- Вычислить выражение с помощью оператора цикла. Turbo Pascal.
- Люди помогите пожалуйста....Кто понимает TURBO PASCAL
- Turbo Pascal
- Объясните смысл прогаммы в Turbo Pascal