小编bla*_*olf的帖子

如果用户在 COBOL 中输入,则输入文件中的十进制值

又是一个 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-INQX-IN因为DISPLAY第 45 列中将显示该行,所以程序现在在命令行中看起来应该是这样的:

    ENTER STUDENT NUMBER:         2019-00042
    ENTER STUDENT NAME:           Alexander Bell
    ENTER QUIZ …
Run Code Online (Sandbox Code Playgroud)

cobol

3
推荐指数
1
解决办法
86
查看次数

标签 统计

cobol ×1