Вывести на экран слова предложения, которые написаны большими буквами - 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.

Объяснение кода листинга программы

  1. Импортируются модули sysutils и strutils.
  2. Определяется константа rz, которая содержит разделители (пробел, точка, запятая, точка с запятой, двоеточие, вопросительный знак, восклицательный знак).
  3. Определяются переменные s и w типа string и переменная i типа integer.
  4. Вводится строка s с помощью функции readln.
  5. В цикле for i от 1 до WordCount(s, rz) выполняется следующее: a. Определяется w как ExtractWord(i, s, rz). b. Если AnsiUpperCase(w) = w, то выводится на экран w с помощью функции writeln.
  6. Конец программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.231 из 5
Похожие ответы