以下是一个用Python编写的词法程序示例，用于检测并计算由大写字母组成的单词：

import re

def count_uppercase_words(text):
    uppercase_words = re.findall(r'\b[A-Z]+\b', text)
    count = len(uppercase_words)
    return count

text = "HELLO WORLD, THIS IS A TEST"
result = count_uppercase_words(text)
print("Number of uppercase words:", result)

这个程序使用正则表达式（re模块）来匹配由大写字母组成的单词。它使用\b[A-Z]+\b的正则表达式模式，其中\b表示词边界，[A-Z]+表示一个或多个大写字母。

在上面的示例中，我们将text变量设置为包含一些句子的字符串。然后，我们调用count_uppercase_words函数，并将text作为参数传递给它。函数将返回由大写字母组成的单词的数量，并将结果打印出来。

运行上述代码将输出：

Number of uppercase words: 4

这表示给定的句子中有4个由大写字母组成的单词。