从程序重新启动 [英] Cobol-Restart from the program

问题描述

我有一个小问题我用cobol写了一个计算器，但我不是那么熟练我在这里给您提供代码:

I have a little question I wrote a calculator in cobol, and I'm not so expert I give you here the code:

       DISPLAY "CALCOLATRICE".
       DISPLAY "ATTENZIONE, IL RISULTATO NON HA SEGNI!".
       DISPLAY "CHE VUOI FARE?".
       DISPLAY "1 ADDIZIONE".
       DISPLAY "2 SOTTRAZIONE".
       DISPLAY "3 MOLTIPLICAZIONE".
       DISPLAY "4 DIVISIONE". 
       DISPLAY "5 ESCI"
       ACCEPT INPUT1

       IF INPUT1 = 5
            DISPLAY "OK, BUON LAVORO :)"
            STOP RUN
        END-IF.

       IF INPUT1 = 1
       DISPLAY "PRIMO NUMERO"
       ACCEPT A
       DISPLAY "SECONDO NUMERO"
       ACCEPT B
       COMPUTE C= A + B
               DISPLAY "Computing"
               DISPLAY "Computing."
               DISPLAY "Computing.."
               DISPLAY "Computing..."
               DISPLAY "Computing...."
               DISPLAY "Computing....."
               DISPLAY "Computing......"
               DISPLAY A "+" B  " FA..."         
               DISPLAY C
       ELSE
           IF INPUT1 = 2
               DISPLAY "PRIMO NUMERO"
               ACCEPT A
               DISPLAY "SECONDO NUMERO"
               ACCEPT B
               DISPLAY "Computing"
               DISPLAY "Computing."
               DISPLAY "Computing.."
               DISPLAY "Computing..."
               DISPLAY "Computing...."
               DISPLAY "Computing....."
               DISPLAY "Computing......"
               DISPLAY A "-" B " FA..."
               COMPUTE C= A - B
               DISPLAY C
                   ELSE
                       IF INPUT1 = 3 
                   DISPLAY "PRIMO NUMERO"
                   ACCEPT A
                   DISPLAY "SECONDO NUMERO"
                   ACCEPT B
                   COMPUTE C= A * B
                          DISPLAY "Computing"
                          DISPLAY "Computing."
                          DISPLAY "Computing.."
                          DISPLAY "Computing..."
                          DISPLAY "Computing...."
                          DISPLAY "Computing....."
                          DISPLAY "Computing......"
                          DISPLAY A "x" B " FA..."
                          DISPLAY C
                       ELSE
                           IF INPUT1 = 4
                           DISPLAY "PRIMO NUMERO"
                           ACCEPT A
                           DISPLAY "SECONDO NUMERO"
                           ACCEPT B
                           COMPUTE C= A / B
                          DISPLAY "Computing."
               DISPLAY "Computing.."
               DISPLAY "Computing..."
               DISPLAY "Computing...."
               DISPLAY "Computing....."
               DISPLAY "Computing......"
               DISPLAY A ":" B " FA..."
                           DISPLAY C
            END-IF
           END-IF
         END-IF
       END-IF.
       STOP RUN.

现在，我要显示一条消息:您要执行其他操作吗?"如果答案为是"，则返回到开头；如果答案为否"，则返回到结尾.如果可以向我解释如何，但如果可以，则不提供任何段落.我可以输入正确的代码吗?

Now, I want to give a message saying "Do you want to do other operations?" and, if the answer is yes it returns to the beginning, and if you say no it goes to the end. If you can explain to me how, but not with paragraphs if you can. Can I have the code correct?

推荐答案

现在，我要显示一条消息:您要执行其他操作吗?"如果答案为是"，则返回到开头；如果答案为否"，则返回到结尾.如果可以向我解释如何，但如果可以，则不提供任何段落.我可以输入正确的代码吗?

Now, I want to give a message saying "Do you want to do other operations?" and, if the answer is yes it returns to the beginning, and if you say no it goes to the end. If you can explain to me how, but not with paragraphs if you can. Can I have the code correct?

   DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 INPUT1 PIC 9.
   01 A PIC 9(4).
   01 B PIC 9(4).
   01 C PIC 9(4).
   01 Q PIC X VALUE "N".
   PROCEDURE DIVISION.
       PERFORM WITH TEST AFTER UNTIL INPUT1 = 5 OR Q = "N" OR "n"
           DISPLAY "CALCOLATRICE"
           DISPLAY "ATTENZIONE, IL RISULTATO NON HA SEGNI!"
           DISPLAY "CHE VUOI FARE?"
           DISPLAY "1 ADDIZIONE"
           DISPLAY "2 SOTTRAZIONE"
           DISPLAY "3 MOLTIPLICAZIONE"
           DISPLAY "4 DIVISIONE"
           DISPLAY "5 ESCI"
           ACCEPT INPUT1

           EVALUATE INPUT1
           WHEN 1
               DISPLAY "PRIMO NUMERO"
               ACCEPT A
               DISPLAY "SECONDO NUMERO"
               ACCEPT B
               COMPUTE C= A + B
               DISPLAY "Computing"
               DISPLAY "Computing."
               DISPLAY "Computing.."
               DISPLAY "Computing..."
               DISPLAY "Computing...."
               DISPLAY "Computing....."
               DISPLAY "Computing......"
               DISPLAY A "+" B  " FA..."
               DISPLAY C
           WHEN 2
               DISPLAY "PRIMO NUMERO"
               ACCEPT A
               DISPLAY "SECONDO NUMERO"
               ACCEPT B
               DISPLAY "Computing"
               DISPLAY "Computing."
               DISPLAY "Computing.."
               DISPLAY "Computing..."
               DISPLAY "Computing...."
               DISPLAY "Computing....."
               DISPLAY "Computing......"
               DISPLAY A "-" B " FA..."
               COMPUTE C= A - B
               DISPLAY C
           WHEN 3
               DISPLAY "PRIMO NUMERO"
               ACCEPT A
               DISPLAY "SECONDO NUMERO"
               ACCEPT B
               COMPUTE C= A * B
               DISPLAY "Computing"
               DISPLAY "Computing."
               DISPLAY "Computing.."
               DISPLAY "Computing..."
               DISPLAY "Computing...."
               DISPLAY "Computing....."
               DISPLAY "Computing......"
               DISPLAY A "x" B " FA..."
               DISPLAY C
           WHEN 4
               DISPLAY "PRIMO NUMERO"
               ACCEPT A
               DISPLAY "SECONDO NUMERO"
               ACCEPT B
               COMPUTE C= A / B
               DISPLAY "Computing."
               DISPLAY "Computing.."
               DISPLAY "Computing..."
               DISPLAY "Computing...."
               DISPLAY "Computing....."
               DISPLAY "Computing......"
               DISPLAY A ":" B " FA..."
               DISPLAY C
           WHEN 5
               DISPLAY "OK, BUON LAVORO :)"
           END-EVALUATE
           IF INPUT1 NOT = 5
               DISPLAY "Do you want to do other operations?"
               ACCEPT Q
           END-IF
       END-PERFORM
       STOP RUN
       .

这篇关于从程序重新启动的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！