Вывести на экран слова предложения, которые написаны большими буквами - Free Pascal
Формулировка задачи:
Вывести на экран слова предложения, которые написаны большими буквами
Помогитеееееееееееееееее
Решение задачи: «Вывести на экран слова предложения, которые написаны большими буквами»
textual
Листинг программы
uses sysutils, strutils; const rz=[' ','.',',',';',':','?','!']; // разделители, добавить при необходимости var s, w : string; i : integer; begin readln(s); for i := 1 to WordCount(s, rz) do begin w := ExtractWord(i, s, rz); if AnsiUpperCase(w) = w then writeln(w); end; end.
Объяснение кода листинга программы
- Импортируются модули sysutils и strutils.
- Определяется константа rz, которая содержит разделители (пробел, точка, запятая, точка с запятой, двоеточие, вопросительный знак, восклицательный знак).
- Определяются переменные s и w типа string и переменная i типа integer.
- Вводится строка s с помощью функции readln.
- В цикле for i от 1 до WordCount(s, rz) выполняется следующее: a. Определяется w как ExtractWord(i, s, rz). b. Если AnsiUpperCase(w) = w, то выводится на экран w с помощью функции writeln.
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д