Другие языки программирования и технологии

помогить как сделать в TURBO PASCAL задачу: Ввести произвольный текст. Вычислить среднее число слов в предложении.

Ну выскажу лишь идеи. Нужно делать разбор текста на слова и предложения. Словом можно считать любую последовательность символов, ограниченную знаками препинания или пробелами. А предложение заканчивается точкой, вопросом или восклицанием. Т. е. первым делом по мере чтения текста копим в буфере предложение (до символа конца предложения или конца файла) . Потом в накопленном предложении считаем слова. И ведем два счетчика - счетчик слов и счетчик предложений. По окончании чтения и разбора делим первое на второе и выводим как ответ.

Для определения буква-небуква-спецсимвол итд рекомендую использовать тип 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;
Анатолий Кузьменко
Анатолий Кузьменко
40 192
Лучший ответ
Ну я думаю с вводом произвольного текста это понятно как - 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 ЭТО_БУКВА.
Дмитрий Ким
Дмитрий Ким
2 153