Re: Calculation gives wrong result

The results are correct.

If you had coded the first as:

Eval(R) x * (y / z) ;

You would have got the expected result of 4. But the actual result of the calc is 3.999999... and in the absence of rounding that gives 3.

In the second case you are actually doing ( x * y ) / z which gives 28 / 7 = 4.


Jon P.

On Aug 29, 2022, at 4:57 PM, Justin Taylor <jtaylor.0ab@xxxxxxxxx> wrote:

Both of these should give 4:
7 * (4 / 7)
7 * 4 / 7

RPG gives 3 and 4 as the result. I assume it has something to do with
intermediate result variables, but I can't see how. Can someone explain?

RPG sample:
Dcl-s result packed(7) ;

Dcl-s x packed(7) inz(7) ;
Dcl-s y uns(10) inz(4) ;
Dcl-s z packed(7) inz(7) ;

result = x * (y / z) ; // 3 but should be 4
result = x * y /z ; // 4

Return;


TIA
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com