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

继续阅读