DEV Community
·
COBOL 教程系列：循环语句 - 第四节
内容提要
文章介绍了COBOL中的循环使用方法，主要讲解了In-line Perform和Perform Varying两种结构。通过示例程序展示如何用Perform Varying循环计算多个产品的总价格，程序中定义了产品名称、价格、总价等变量，并通过用户输入获取信息。循环执行直到计数器超过产品数量。
关键要点
-
文章介绍了COBOL中的循环使用方法，主要讲解了In-line Perform和Perform Varying两种结构。
-
In-line Perform结构中的语句会执行直到遇到END-PERFORM。
-
Perform Varying结构会执行一个段落，直到Until短语中的条件为真。
-
示例程序定义了产品名称、价格、总价等变量，并通过用户输入获取信息。
-
循环执行直到计数器超过产品数量，计算多个产品的总价格。
-
WS-PRODUCT-NAME用于存储产品名称，最大30个字符。
-
WS-PRODUCT-PRICE用于存储产品价格，格式为5位数字和2位小数。
-
WS-TOTAL-PRICE用于存储所有产品的总价格，初始值为0。
-
WS-COUNTER是计数器，从1开始，格式为2位数字。
-
WS-NUMBER-OF-PRODUCTS用于存储用户输入的产品数量，初始值为0。
延伸解读
COBOL循环语句的基本结构
COBOL中的循环语句主要有In-line Perform和Perform Varying两种结构。In-line Perform适合用于简单的重复执行，而Perform Varying则更灵活，能够根据条件动态控制循环的执行次数。理解这两种结构的使用场景，有助于编写更高效的程序。
变量定义的重要性
在示例程序中，变量的定义至关重要。WS-PRODUCT-NAME、WS-PRODUCT-PRICE和WS-TOTAL-PRICE等变量的格式和初始值直接影响程序的运行效果。特别是价格的格式，确保了计算的准确性，避免了潜在的错误。
用户输入的处理
程序通过用户输入获取产品数量和价格，这一过程需要注意输入的有效性。若用户输入不符合预期，可能导致程序错误或异常。因此，在实际应用中，增加输入验证机制是提升程序健壮性的关键。
延伸问答
COBOL中的循环语句有哪些类型？
COBOL中的循环语句主要有In-line Perform和Perform Varying两种结构。
如何使用Perform Varying结构进行循环？
使用Perform Varying结构时，循环会执行一个段落，直到Until短语中的条件为真。
在COBOL中，如何计算多个产品的总价格？
通过定义产品名称、价格和总价等变量，使用Perform Varying循环获取用户输入并计算总价格。
WS-PRODUCT-PRICE变量的格式是什么？
WS-PRODUCT-PRICE变量的格式为5位数字和2位小数（PIC 9(5)V99）。
在COBOL中，计数器WS-COUNTER的初始值是多少？
WS-COUNTER的初始值为1。
如何获取用户输入的产品数量？
通过DISPLAY提示用户输入，并使用ACCEPT语句将输入存储在WS-NUMBER-OF-PRODUCTS变量中。
