又是一个 COBOL 问题。我一直在玩 COBOL,问题是,我必须在输入文件中输入一个十进制值。所以输入文件中的输出应该是这样的:
2019-00042Alexander Bell 1.501.752.25
...
Run Code Online (Sandbox Code Playgroud)
数字是测验中的成绩。1.00 到 5.00。所以我假设在INF-PRINT-LINE我的代码中命名的打印行中,我必须将其声明为:
01 INF-PRINT-LINE.
02 SNO-IN PIC X(10).
02 SNAME-IN PIC X(25).
02 Q1-IN PIC 9.9(2).
02 Q2-IN PIC 9.9(2).
02 Q3-IN PIC 9.9(2).
Run Code Online (Sandbox Code Playgroud)
现在,WORKING-STORAGE SECTION我已经声明了三个单独的变量 ( STUD-QX-IN),以便稍后将其移至INF-PRINT-LINE变量 ( QX-IN) 中,可以在此处看到:
01 STUD-Q1-IN PIC 999.
01 STUD-Q2-IN PIC 999.
01 STUD-Q3-IN PIC 999.
Run Code Online (Sandbox Code Playgroud)
现在,当这个程序被执行时,我有机会看到它的值是什么STUD-QX-IN,QX-IN因为DISPLAY第 45 列中将显示该行,所以程序现在在命令行中看起来应该是这样的:
ENTER STUDENT NUMBER: 2019-00042
ENTER STUDENT NAME: Alexander Bell
ENTER QUIZ …Run Code Online (Sandbox Code Playgroud) cobol ×1