вычислить округлено в коболе

Question

Меня смущает округленная в compute функция в cobol.

Декларация:

VAR-A      PIC  S9(9)V99 COMP-3.
VAR-B      PIC  S9(9)V9(6) COMP-3.

Процедура.

MOVE +12.08 TO VAR-A.
MOVE +6.181657 TO VAR-B.


COMPUTE VAR-A ROUNDED = VAR-A + VAR-B.

Будет ли результат VAR-A 18,27 или 18,26? Что Кобол будет делать после вычислений? Будет ли он округлять сначала VAR-B до десятичных разрядов, указанных в VAR-A, или кобол добавит 2 переменные, а затем округлит их до десятичных разрядов, указанных в VAR-A?

Любая помощь будет оценена.

@ NealB

Как насчет этого примера:

ДЕКЛАРАЦИЯ:

01  VAR-ARRAY  OCCURS 22 TIMES.
    03  VAR-A      PIC  S9(9)V9(6) COMP-3.


01  VAR-B      PIC  S9(9)V99 COMP-3.

Предположим, что VAR-A является массивом, и его значения следующие:

VAR-A(01) =  123.164612
VAR-A(02) =  12.07865
VAR-A(03) =  6.181657
VAR-A(04) =  1.744353
VAR-A(05) =  6.118182
VAR-A(06) =  1.744353
VAR-A(07) =  6.158715
VAR-A(08) =  1.744353
VAR-A(09) =  6.194759
VAR-A(10) =  1.744353
VAR-A(11) =  3.037896
VAR-A(12) =  1.743852
VAR-A(13) =  6.14653
VAR-A(14) =  1.744353
VAR-A(15) =  0.000377
VAR-A(16) =  1.743852
VAR-A(17) =  6.144363
VAR-A(18) =  1.743852
VAR-A(19) =  0.007649
VAR-A(20) =  1.744353
VAR-A(21) =  0.000377
VAR-A(22) =  1.744353

Значение VAR-B равно:

VAR-B = 405.25

ПРОЦЕДУРА:

PERFORM VAR-IDX FROM 1 BY 1 UNTIL VAR-IDX > 22
  COMPUTE VAR-B ROUNDED = VAR-B + VAR-A(VAR-IDX)
END-PERFORM.

Почему я получаю 597,87 для VAR-B в результате после вычисления?

Answer 1

Я считаю, что стандартное поведение при округлении COBOL: Ближайший от нуля.

COMPUTE VAR-A ROUNDED = VAR-A + VAR-B

должно привести к VAR-A, содержащему 18,26

Округление происходит после того, как выражение было оценено. Более интересный пример может быть:

01  VAR-A      PIC  S9(9)V99 COMP-3.               
01  VAR-B      PIC  S9(9)V9(6) COMP-3.             
01  VAR-C      PIC  S9(9)V9(6) COMP-3.             

 MOVE +12.08 TO VAR-A.                         
 MOVE +06.182000 TO VAR-B.                     
 MOVE +00.004000 TO VAR-C.                     
 COMPUTE VAR-A ROUNDED = VAR-A + VAR-B + VAR-C.

Результат - 18,27. Округление VAR-B и VAR-C до 2 десятичных знаков перед сложением дало бы 18,26, потому что VAR-B округляет до 6,18, а VAR-C округляет до 0,00. Результат на самом деле 18,27, поэтому округление происходит после вычисления выражения.

Ответ на отредактированный вопрос

Не очень приятный вывод, но вот как мои вычисления идут с использованием IBM Enterprise COBOL для z / OS

VAR-IDX = 01 VAR-B = +405.25 VAR-A = +123.164612 VAR-B + VAR-A = +528.41
VAR-IDX = 02 VAR-B = +528.41 VAR-A = +012.078650 VAR-B + VAR-A = +540.49
VAR-IDX = 03 VAR-B = +540.49 VAR-A = +006.181657 VAR-B + VAR-A = +546.67
VAR-IDX = 04 VAR-B = +546.67 VAR-A = +001.744353 VAR-B + VAR-A = +548.41
VAR-IDX = 05 VAR-B = +548.41 VAR-A = +006.118182 VAR-B + VAR-A = +554.53
VAR-IDX = 06 VAR-B = +554.53 VAR-A = +001.744353 VAR-B + VAR-A = +556.27
VAR-IDX = 07 VAR-B = +556.27 VAR-A = +006.158715 VAR-B + VAR-A = +562.43
VAR-IDX = 08 VAR-B = +562.43 VAR-A = +001.744353 VAR-B + VAR-A = +564.17
VAR-IDX = 09 VAR-B = +564.17 VAR-A = +006.194759 VAR-B + VAR-A = +570.36
VAR-IDX = 10 VAR-B = +570.36 VAR-A = +001.744353 VAR-B + VAR-A = +572.10
VAR-IDX = 11 VAR-B = +572.10 VAR-A = +003.037896 VAR-B + VAR-A = +575.14
VAR-IDX = 12 VAR-B = +575.14 VAR-A = +001.743852 VAR-B + VAR-A = +576.88
VAR-IDX = 13 VAR-B = +576.88 VAR-A = +006.146530 VAR-B + VAR-A = +583.03
VAR-IDX = 14 VAR-B = +583.03 VAR-A = +001.744353 VAR-B + VAR-A = +584.77
VAR-IDX = 15 VAR-B = +584.77 VAR-A = +000.000377 VAR-B + VAR-A = +584.77
VAR-IDX = 16 VAR-B = +584.77 VAR-A = +001.743852 VAR-B + VAR-A = +586.51
VAR-IDX = 17 VAR-B = +586.51 VAR-A = +006.144363 VAR-B + VAR-A = +592.65
VAR-IDX = 18 VAR-B = +592.65 VAR-A = +001.743852 VAR-B + VAR-A = +594.39
VAR-IDX = 19 VAR-B = +594.39 VAR-A = +000.007649 VAR-B + VAR-A = +594.40
VAR-IDX = 20 VAR-B = +594.40 VAR-A = +001.744353 VAR-B + VAR-A = +596.14
VAR-IDX = 21 VAR-B = +596.14 VAR-A = +000.000377 VAR-B + VAR-A = +596.14
VAR-IDX = 22 VAR-B = +596.14 VAR-A = +001.744353 VAR-B + VAR-A = +597.88
FINAL RESULT = +597.88                                               

Answer 2

Зависит от промежуточного и последнего набора округлений.

см. Это для получения дополнительной информации:

D.13a Округление

COBOL предоставляет возможность задания округления в арифметических выражениях и выражениях в различных точках процесса оценки и при подготовке значений для хранения при получении элементов данных.

Этот стандарт поддерживает восемь различных форм округления:

• AWAY-FROM-ZERO: округление до ближайшего значения большей величины.

• NEAREST-AWAY-FROM-ZERO: округление до ближайшего значения. Если два значения одинаково близки, выбирается значение с большей величиной. Этот режим исторически ассоциировался с предложением ROUNDED в предыдущих версиях стандартного COBOL.

• NEAREST-EVEN: округление до ближайшего значения. Если два значения одинаково близки, выбирается значение, крайняя правая цифра которого является четной. Этот режим иногда называют «округлением банкира».

• NEAREST-TOWARD-ZERO: округление до ближайшего значения. Если два значения одинаково близки, выбирается значение с меньшей величиной.

• ЗАПРЕЩЕНО: Поскольку значение не может быть точно представлено в нужном формате, условие EC-SIZE-TRUNCATION установлено, чтобы существовать, и результаты операции не определены.

• TOWARD-GREATER: округление до ближайшего значения, алгебраическое значение которого больше.

• TOWARD-LESSER: округление до ближайшего значения, алгебраическое значение которого меньше.

• TRUNCATION: округление до ближайшего значения, величина которого меньше. Этот режим исторически был связан с отсутствием предложения ROUNDED, а также для формирования промежуточных результатов в предыдущем стандарте COBOL.

Программист может указать, как отдельные промежуточные значения округляются, когда они сохраняются в принимающих элементах данных с помощью предложения ROUNDED; может выбрать режим округления по умолчанию, который будет использоваться, когда появляется предложение ROUNDED без дополнительной квалификации для элемента принимаемых данных через предложение DEFAULT ROUNDED MODE пункта OPTIONS в разделе IDENTIFICATION DIVISION; и может указывать, как арифметические операции и преобразования в промежуточные формы и из них округляются с помощью предложения INTERMEDIATE ROUNDING.

D.13a.1 Промежуточное округление

Промежуточное округление применяется, когда элементы данных извлекаются для включения в арифметическую операцию или арифметическое выражение и во время выполнения арифметических операторов для получения промежуточного результата.

В предыдущем стандарте для умножения и деления в стандартной арифметике стандартным режимом округления для неточных результатов было усечение до 32 значащих цифр. Это значение по умолчанию не изменяется в этом стандарте, а также является значением по умолчанию для стандартной двоичной и стандартной десятичной арифметики.

Когда промежуточное значение может быть точно представлено в соответствующем промежуточном формате, используется точное значение.

В случае, если значение не может быть точно представлено, пользователь теперь может также указать другие режимы округления для арифметических операций и для преобразований в промежуточные формы и из промежуточных форм, используемых в арифметических операциях, посредством необязательного предложения INTERMEDIATE ROUNDING параграфа OPTIONS ИДЕНТИФИКАЦИОННОГО ОТДЕЛЕНИЯ.

В частности, доступны следующие опции:

• ПРОМЕЖУТОЧНЫЙ КРУГЛЫЙ БЛИЖАЙШИЙ-БЛИЖАЙШИЙ-ОТ-НОЛЬ • ПРОМЕЖУТОЧНЫЙ КРУГЛЫЙ БЛИЖАЙШИЙ • ПРОМЕЖУТОЧНЫЙ КОНКУРС ЗАПРЕЩЕН • ПРОМЕЖУТОЧНЫЙ РАУНДИНГ - ТРУНКАЦИЯ

, для которых описания подпунктов находятся в D.13a, Округление.

Если условие INTERMEDIATE ROUNDING не указано, предполагается, что INTERMEDIATE ROUNDING IS TRUNCATION. Это не отличается от предыдущих стандартов.

D.13a.2 Финальное округление(КРУГЛОЕ предложение)

Окончательное округление применяется к формированию окончательного результата выражения или оператора, по завершении оценки оператора или выражения, непосредственно перед тем, как результат помещается в место назначения. Эта форма округления связана с предложением ROUNDED.

В предыдущих стандартах COBOL были предусмотрены только два метода «окончательного» округления: округление в меньшую сторону (усечение, сигнализируемое отсутствием предложения ROUNDED); и округление до ближайших значений, и если два значения были одинаково близки, выберите значение с большей величиной (сигнализируемое наличием предложения ROUNDED).

Предложение ROUNDED было расширено, чтобы разрешить явный выбор любого из восьми режимов округления (включая два ранее доступных):

• КРУГЛЫЙ РЕЖИМ ОТКЛОНЕН • ОКРУГЛЕННЫЙ РЕЖИМ • КРУГЛЫЙ РЕЖИМ БЛИЖАЙШЕГО ДАЖЕ • КРУГЛЫЙ РЕЖИМ - БЛИЖАЙШИЙ-НУЛЬ • КРУГЛЫЙ РЕЖИМ ЗАПРЕЩЕН • КРУГЛЫЙ РЕЖИМ НАВЕРХ-БОЛЬШОЙ • КРУГЛЫЙ РЕЖИМ ВПЕРЕД • КРУГЛЫЙ РЕЖИМ - ТРАНСЦИЯ

Если предложение ROUNDED отсутствует для данного результата, применяются правила для ROUNDED MODE IS TRUNCATION.

Необязательное условие DEFAULT ROUNDED MODE в параграфе OPTIONS IDENTIFICATION DIVISION позволяет пользователю указать режим округления для любой операции, для которой предложение ROUNDED появляется без подпункта MODE IS.
Предложение DEFAULT ROUNDED MODE может принимать любую из следующих форм:

• Режим округления по умолчанию находится вдали от нуля • Режим округления по умолчанию - ближайший, вдали от нуля • Режим округления по умолчанию - самый близкий • Режим округления по умолчанию - ближайший к нулю • Режим округления по умолчанию запрещен • Режим округления по умолчанию - к лучшему • Режим округления по умолчанию - ниже • Режим округления по умолчанию - TRUNCATION

, для которого подразделы DEFAULT ROUNDED MODE являются разделом, описаны в D.13a, Округление.

Если предложение DEFAULT ROUNDED MODE не отображается в программе, действие предложения ROUNDED без подпункта MODE IS будет таким, как если бы был определен режим ROUNDED MODE, ближайший вдали от нуля. Это обеспечивает те же функциональные возможности, что и в предыдущих стандартах COBOL.

Если появляется предложение DEFAULT ROUNDED MODE, предложения ROUNDED без подпункта MODE IS обрабатываются так, как если бы они были указаны в режиме округления, указанном в предложении DEFAULT ROUNDED MODE.

Answer 3

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.

01  VAR_NUM PIC  9(3)V9(02).
01  VAR_RESULT PIC 9(3).


PROCEDURE DIVISION.
    MOVE 256.50 TO VAR_NUM.
    COMPUTE VAR_NUM ROUNDED = VAR_NUM / 100. 
    MULTIPLY 100 BY VAR_NUM
    MOVE VAR_NUM TO VAR_RESULT.
   DISPLAY "Result : " VAR_RESULT.

STOP RUN.