DEV Community
·
COBOL 教程系列：循环语句 - 第四节
💡
原文英文，约300词，阅读约需2分钟。
📝
内容提要
文章介绍了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两种结构。
如何使用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变量中。
➡️
