Отображение вычислений в COBOL
DISPLAY — наиболее распространенная форма представления внутренних данных. DISPLAY сохраняет в десятичной форме. Каждый символ данных будет представлять один байт памяти. Если для элементов данных нет пункта об использовании, то по умолчанию он попадает в категорию DISPLAY.
DISPLAY может использоваться для всех типов, а именно числовых типов данных, буквенно-цифровых типов данных и буквенно-цифровых типов данных.
Синтаксис:
DISPLAY NUMERIC/ALPHABETIC
- Числовой: представляет все типы числовых переменных и программных значений или результатов/выходных данных.
- Алфавитный : представляет строку/текст и специальные символы для объяснения или упрощения программы, чтобы сделать ее понятной для всех.
Пример алфавитного представления:
DISPLAY "ADDITION RESULTS: "
Пример числового представления:
DISPLAY WS-VARIABLE1
Пример буквенно-цифрового представления:
DISPLAY "RESULTS OF " WS-VAR1 "AND" WS-VAR2 "IS" WS-RESULT
Пример:
Cobol
Cobol program for Display Computation.IDENTIFICATION DIVISION.PROGRAM-ID. Displays-Example.DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-NUM01 PIC S9(4)V99. 01 WS-NUM02 PIC S9(4)V99. 01 WS-VAR01 PIC 9(4)V99. 01 WS-VAR02 PIC 9(4)V99. 01 WS-RESULT PIC S9(5)V99 COMP. 01 WS-RES01 PIC -ZZZ9.99. 01 WS-RES02 PIC -ZZZ9.99. 01 WS-RES03 PIC -ZZZ9.99. 01 WS-RES04 PIC -ZZZ9.99. 01 WS-VAR05 PIC -ZZZ9.99. 01 WS-VAR06 PIC -ZZZ9.99.PROCEDURE DIVISION. SET WS-NUM01 TO 30. SET WS-NUM02 TO 25.MAIN-PARA. DISPLAY "VALUE 1 : " WS-NUM01. DISPLAY "VALUE 2 : " WS-NUM02. MOVE WS-NUM01 TO WS-VAR01. MOVE WS-NUM02 TO WS-VAR02. MOVE WS-NUM01 TO WS-VAR05. MOVE WS-NUM02 TO WS-VAR06. PERFORM ADDITION-PARA. STOP RUN.ADDITION-PARA. ADD WS-VAR01 WS-VAR02 GIVING WS-RESULT. MOVE WS-RESULT TO WS-RES01. PERFORM SUBTRACTION-PARA.SUBTRACTION-PARA. SUBTRACT WS-VAR02 FROM WS-VAR01 GIVING WS-RESULT. MOVE WS-RESULT TO WS-RES02 PERFORM MULTIPLICATION-PARA.MULTIPLICATION-PARA. MULTIPLY WS-VAR01 BY WS-VAR02 GIVING WS-RESULT. MOVE WS-RESULT TO WS-RES03. PERFORM DIVISION-PARA.DIVISION-PARA. DIVIDE WS-VAR01 BY WS-VAR02 GIVING WS-RESULT. MOVE WS-RESULT TO WS-RES04. PERFORM RESULT-PARA.RESULT-PARA. DISPLAY "ADDITION RESULT OF : ". DISPLAY WS-VAR05 " +" WS-VAR06 " = "WS-RES01. DISPLAY "SUBTRACTION RESULT OF : ". DISPLAY WS-VAR05 " -" WS-VAR06 " = "WS-RES02. DISPLAY "MULTIPLICATION RESULT OF: ". DISPLAY WS-VAR05 " *" WS-VAR06 " = "WS-RES03. DISPLAY "DIVISION RESULT OF : ". DISPLAY WS-VAR05 " /" WS-VAR06 " = "WS-RES04. |
Выход:
Объяснение:
В этой программе мы используем две переменные для всех операций, таких как сложение, вычитание, умножение и деление. Затем мы отображаем правильный заголовок, используя ключевое слово DISPLAY, а также отображаем числовые результаты операции. Мы также пытались поддерживать правильное форматирование кода, используя DISPLAY, который помогает предоставлять вывод в понятном формате.