Кобол Эксперт Калькулятор - PullRequest
Новая
       15

Кобол Эксперт Калькулятор

0 голосов
/ 21 октября 2019

Привет, ребята :) Мне очень жаль, что я плохо знаю английский. Я Яна и новичок здесь:) Я пытаюсь выучить Cobol, и мне нужна ваша помощь: - / Вот мой калькулятор. Работает нормально, но теперь я хочу привести пример 2 + 14 * 8 и получить результат. я не знаю как. У меня есть две идеи.

1) я даю 2 + 14 * 8 в строке и пытаюсь их разделить или 2) я использую вхождения (массив).

Не могли бы вы мне помочь или показать пример кода для ввода 2 + 14 * 8 и вычислить. Я немного блондин: D 

      PROGRAM-ID.  CALCULATOR.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01  NUM1      PIC 9(3) VALUE 0.
      01  NUM1-TXT  PIC X(3) VALUE SPACES.
      01  NUM2      PIC 9(3) VALUE 0.
      01  NUM2-TXT  PIC X(3) VALUE SPACES.
      01  RESULT    PIC S9(6)V9(2) VALUE 0.
      01  RESULT-EDIT   PIC -ZZZ,ZZ9.99.
      01  OPERATOR     PIC X VALUE SPACES.
      PROCEDURE DIVISION.
      CALCULATOR-ROUTINE.
          DISPLAY "COBOL CALCULATOR". 
          DISPLAY "Enter First Number : " .
          ACCEPT NUM1-TXT.
          MOVE NUM1-TXT TO NUM1.
          DISPLAY "Enter Operator (+,-,*,/): ".
          ACCEPT OPERATOR .
          DISPLAY "Enter Second Number: " .
          ACCEPT NUM2-TXT .
          MOVE NUM2-TXT TO NUM2 .
          IF OPERATOR = "+"
             ADD NUM1, NUM2 GIVING RESULT.
          IF OPERATOR = "-"
             SUBTRACT NUM2 FROM NUM1 GIVING RESULT.
          IF OPERATOR = "*"
             MULTIPLY NUM1 BY NUM2 GIVING RESULT.
          IF OPERATOR = "/"
             DIVIDE NUM1 BY NUM2 GIVING RESULT.
          MOVE RESULT TO RESULT-EDIT.
          DISPLAY NUM1-TXT.
          DISPLAY OPERATOR.
          DISPLAY NUM2-TXT.
          DISPLAY "=" .
          DISPLAY RESULT-EDIT.
          STOP RUN.
...