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。
➡️