cobol 翻译 DO 18 I=1,MK LWORK=I+N+1 A(I,LWORK)=1.0 XJNAME(LWORK)=ASTA XINAME(I)=ASTA 18 CONTINUE IF(K.EQ.0) GO TO 23 DO 19 I=1,K LWORK=I+M+N+1 XJNAME(LWORK)=PLUS XINAME(M+I)=PLUS A(M+I,I+1)=1.0 19 CONTINUE
时间: 2024-02-10 08:11:16 浏览: 49
这是COBOL语言的代码片段。它包含了两个循环,第一个循环从1到MK,将LWORK设置为I+N+1,将A(I,LWORK)设置为1.0,将XJNAME(LWORK)设置为ASTA,将XINAME(I)设置为ASTA,然后进入下一次循环。第二个循环从1到K,将LWORK设置为I+M+N+1,将XJNAME(LWORK)设置为PLUS,将XINAME(M+I)设置为PLUS,将A(M+I,I+1)设置为1.0,然后进入下一次循环。如果K等于0,则跳转到标签号为23的代码行。
相关问题
COBOL的POOL-TR + 1什么意思
在COBOL中,`POOL-TR + 1` 是一个表达式,用于对 `POOL-TR` 变量进行加一操作。
假设 `POOL-TR` 是一个整数类型的变量,那么 `POOL-TR + 1` 表示将 `POOL-TR` 的值加一。
例如,如果 `POOL-TR` 的初始值为 5,那么执行 `POOL-TR + 1` 后,`POOL-TR` 的值将变为 6。
请注意,这只是一个简单的加一操作的示例,具体的含义和用法取决于上下文和程序的逻辑。在实际的COBOL代码中,可能会有其他操作和修饰符与这个表达式结合使用。
cobol 大于等于怎么写 >=
在 COBOL 语言中,大于等于可以使用关键字 `GREATER OR EQUAL TO` 来表示,其缩写为 `>=`。例如,可以使用以下语句来比较两个变量 A 和 B 的值是否相等:
```
IF A GREATER OR EQUAL TO B
DISPLAY 'A is greater than or equal to B'
END-IF
```
上述代码中,如果变量 A 的值大于或等于变量 B 的值,则会输出 `A is greater than or equal to B`。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)