- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我是 COBOL 编程的新手,所以我试图制作一个示例计算器,但我无法让它工作。 calc 进入无限循环,我没有找到原因,我什至尝试复制类似的代码,但没有成功。那么,这是 OpenCobolIDE 问题还是代码问题?
代码:
IDENTIFICATION DIVISION.
PROGRAM-ID. Loops.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WSS-FIRSTOP PIC S9(05)V9(04).
77 WSS-SECONDOP PIC S9(05)V9(04).
77 WSS-RESULT PIC S9(10)V9(04).
77 WSS-OPERATOR PIC A(01).
77 WSS-CHOICE PIC X(01).
PROCEDURE DIVISION.
LOOP SECTION.
PERFORM 0001-STARTCALC UNTIL WSS-CHOICE = 2.
STOP RUN.
STARTING SECTION.
0001-STARTCALC.
DISPLAY "1.- CALCULATOR, 2.- EXIT".
DISPLAY "ENTER:", ACCEPT WSS-CHOICE.
IF WSS-CHOICE = 1
PERFORM 0002-DATAREQUEST
PERFORM 0003-OPERATIONS
ELSE IF WSS-CHOICE = 2
STOP RUN
ELSE
DISPLAY "ERROR. INVALID OPTION.".
0002-DATAREQUEST.
CHOICE SECTION.
DISPLAY "CALCULATOR 1.0".
DISPLAY "ENTER 1ST OPERATOR:".
ACCEPT WSS-FIRSTOP.
DISPLAY "ENTER 2ND OPERATOR".
ACCEPT WSS-SECONDOP.
DISPLAY "CHOOSE OPERATION TO PERFORM:".
DISPLAY "A: ADD, S: SUBTRACT, M: MULTIPLY, D: DIVISION".
ACCEPT WSS-OPERATOR.
0003-OPERATIONS.
OPERATIONS SECTION.
IF WSS-OPERATOR = "A"
ADD WSS-FIRSTOP TO WSS-SECONDOP GIVING WSS-RESULT
DISPLAY "ADDITION RESULT: ", WSS-RESULT
ELSE IF WSS-OPERATOR = "S"
SUBTRACT WSS-FIRSTOP FROM WSS-SECONDOP GIVING WSS-RESULT
DISPLAY "SUBTRACTING RESULT: ", WSS-RESULT
ELSE IF WSS-OPERATOR = "M"
MULTIPLY WSS-FIRSTOP BY WSS-SECONDOP GIVING WSS-RESULT
DISPLAY "MULTIPLYING RESULT: ", WSS-RESULT
ELSE IF WSS-OPERATOR = "D"
DIVIDE WSS-SECONDOP INTO WSS-FIRSTOP GIVING WSS-RESULT
DISPLAY "DIVIDING RESULT: ", WSS-RESULT
ELSE
DISPLAY "INVALID OPERATOR. CHECK".
最佳答案
The calc enter in an infinite loop [...], is it a OpenCobolIDE problem or it's the code?
我认为两者都是。没有任何显示可能发生无限循环的主要原因很可能是 OCIDE 没有合适的终端。在单独的终端上运行相同的程序应该至少导致在进入循环之前显示 + 接受。如果我没记错的话,OCIDE 的首选项中有一些选项可以调整终端的行为方式。
代码“看起来”像一个无限循环的原因是(正如@bruce-martin 提到的)段落和节的错误使用。如果要保留两者,则需要在段落结束时将节标题放在段落之前(如果定义了新段落或定义了节)。
注意:节和段落的使用通常是公司/团队定义的:如果不是(与任何编程语言一样)并且您编辑现有程序:使用无论旧代码做什么 - 对于新代码:随心所欲。 (我的个人偏好是只在我想GOTO
时使用段落并且总是使用EXIT SECTION
来离开一个部分而不是GOTO mysec-end
)
要解决可能的问题:使用文字 '1'
或数字 WSS-CHOICE PIC 9
[对于终端 i/o,我总是更喜欢字母数字 +文字]。正如您所提到的,您是第一次了解 COBOL:一定要查看 EVALUATE WSS-OPERATOR
。
关于cobol - 此 COBOL 代码中是否存在无限循环原因?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/61134532/
我对cassandra并使用1.2.10非常陌生。我有一个时间戳数据类型的主键列。现在,我正在尝试检索日期范围的数据。由于我们知道不能在cassandra中使用,因此我使用的是大于()来获取日期范围。
我正在尝试进行有条件的转场。但我得到: Terminating app due to uncaught exception 'NSInvalidArgumentException', reas
我有一个游戏项目,在调试和发布模式下在设备上运行得非常好。我有两个版本。旧版本和新版本具有更多(后来我添加了)功能,并且两者的 bundle ID、版本相同。当我构建旧版本时,之前没有安装“myGam
这个问题已经有答案了: 奥 git _a (2 个回答) 已关闭 5 年前。 我正在获取 ClassCastException 。这两个类来自不同的 jar,但是JettyContinuationPr
以下代码行抛出异常: HttpResponse response = client.execute(request); // actual HTTP request 我能够捕获它并打印: Log
就目前情况而言,这个问题不太适合我们的问答形式。我们希望答案得到事实、引用资料或专业知识的支持,但这个问题可能会引发辩论、争论、民意调查或扩展讨论。如果您觉得这个问题可以改进并可能重新开放,visit
public class TwoThreads { private static Object resource = new Object(); private static void
当我输入 6 (int) 作为值时,运行此命令会出现段错误 (gcc filename.c -lm)。请帮助我解决这个问题。预期的功能尚未实现,但我需要知道为什么我已经陷入段错误。 谢谢! #incl
所以,过去一周半我一直在研究这个 .OBJ/.MTL 网格解析器。在这段时间里,我一直在追踪/修复很多错误、清理代码、记录代码等等。 问题是,每修复一个错误,仍然会出现这个问题,而且一张图片胜过一千个
我正在运行一个代码,它基本上围绕 3 个维度旋转一个大数据数组(5000 万行)。但是,我遇到了一个奇怪的问题,我已将其缩小到如何评估旋转矩阵。基本上,对于除绕 x 轴以外的任何旋转,python 代
就在你说这是重复之前,我已经看到了其他问题,但我仍然想发布这个。 所以我正在阅读 Thinking in Java -Bruce Eckel 这篇文章是关于小写命名约定的: In Java 1.0 a
我想在我的应用程序中使用 REST API。它为我从这个应用程序发出的所有请求抛出 SocketTimeoutException。 Logcat 输出:(您也可以在此处看到带有漂亮格式的输出:http
我知道 raise ... from None 并已阅读 How can I more easily suppress previous exceptions when I raise my own
在未能找到各种Unix工具(例如xargs和whatnot)的最新独立二进制文件(this version很好,但需要外部DLL)后,我承担了自己进行编译的挑战。 ...这是痛苦的。 最终,尽管如此,
我有一个用PHP编写的流套接字服务器。 为了查看一次可以处理多少个连接,我用C语言编写了一个模拟器来创建1000个不同的客户端以连接到服务器。 stream_socket_accept几次返回fals
我的Android Studio昨天运行良好,但是今天当我启动Android Studio并想在移动设备上运行应用程序时,发生了以下错误, 我在互联网和stackoverflow上进行了搜索,但没有解
默认情况下,grails似乎为Java域对象的toString()返回:。那当然不是我想要的,所以我尝试@Override toString()返回我想要的。当我尝试grails generate-a
尝试通过LDAP通过LDAP对用户进行身份验证时,出现以下错误。 Reason: Cannot pass null or empty values to constructor. 谁能告诉我做错了什么
我正在尝试使用应用程序附带的 Houdini Python 模块,该模块是 Houdini 安装文件夹的一部分,位于标准 Python 路径之外。按照安装说明操作后,运行 Houdini Termin
简单地说,我正在为基本数据库编写单链表的原始实现。当用户请求打印索引下列出的元素高于数据库中当前记录数量时,我不断出现段错误,但仅当差值为 1 时。对于更高的数字,它只会触发我在那里编写的错误系统。
我是一名优秀的程序员,十分优秀!