AS400 CL 스크립트 산술 내가 알고리즘 부문의 나머지를 계산하기 위해 노력하고있어 0

Question

제공합니다.

예 : 15/6

1. (15/6) = 2 
2. (2) * 6 = 12 
3. 15 - 12 = 3 

의 나머지 6분의 15의 나머지 부분은 참으로

받기 3.

는 내 CL 스크립트에서이 알고리즘을 사용하고 내 문제는 단순히 모든 0을 반환

시간. 왜 그런가요?

crtclpgm pgm(test) srcfile(test) srcmbr(test) 

실행 :

pgm 
dcl var(&dividend) type(*int) value(15) 
dcl var(&divisor) type(*int) value(6) 
dcl var(&remainder) type(*int) 

dcl var(&msg) type(*char) 

/* Calculate remainder. [ed: 29Sep2016] "* &remainder" is now: "* &divisor" */ 
chgvar var(&remainder) value(&dividend - (&dividend/&divisor) * &divisor) 

/* Prior to 29-Sep-2016 redaction, the above was coded as the incorrect expression: + 
chgvar var(&remainder) value(&dividend - (&dividend/&divisor) * &remainder)  + 
    and remains, commented-out, to preserve relevance of user-comments about the OP */ 

/* Cast remainder and display. */ 
chgvar var(&msg) value(&remainder) 
sndpgmmsg msg(&msg) 

endpgm 

함께 컴파일

call test 

출력 :

0 

Answer 1

이것은 매우 흥미로운 시스템 동작입니다. 엔진은 곱하기 전에 대괄호 안의 값에 정수 트렁킹을 적용하지 않는 것으로 보입니다. 환언에서 일어나는 다음

&dividend - (&dividend/&divisor) * &divisor 
= 15 - (15/6) * 6 
= 15 - 2.5 * 6 
= 15 - 15 
= 0 

가 I 한 다음 그것을 해결하기 :

chgvar  var(&remainder) value(&dividend/&divisor) 
chgvar  var(&remainder) value(&dividend - &remainder * &divisor) 

Answer 2

설명 된 결과를 상기 분할 연산자로 부호화 된 /의 부작용. / 연산자는 정수 부 연산자가 아닙니다. 일부 언어는 //을 해당 효과의 추가 나누기 연산자로 제공하거나 DIV과 같은 스칼라 함수로 제공 할 수 있습니다. 그러나 언어가 그러한 추가 산술 기능을 제공하는 경우에는 MOD 또는 REM과 같은 관련 스칼라를 제공하여 나머지를 직접 얻을 수도 있습니다.

IRP 목록은 명시 적으로 코드화 된 것처럼 작동하는 CL이 0이 아닌 스케일을 갖는 중간 값을 갖는 것으로 나타났습니다. 효과적으로 TYPE(*DEC) LEN(24 9)하지만, CL은 정밀도 15 자리 수, 그래서 나머지 표현식 수행하기 전에 분리 용 중간 결과의 생성을 모방하는 프로그램이 예에서 TYPE(*DEC) LEN(15 5)을 사용

pgm 
dcl var(&dividend) type(*int) value(15) 
dcl var(&divisor) type(*int) value(6) 
dcl var(&remainder) type(*int) 
dcl var(&intermedP) type(*dec) len(15 5) 
/* Calculate remainder. *two-step process -- mimics IRP listing; yields 0 */ 
chgvar var(&intermedP) value(&dividend/&divisor) /* P15,5 intermed result */ 
chgvar var(&remainder) value(&dividend - &intermedP    * &divisor ) 

을 적절한 결과는 (&dividend/&divisor) [표현식 &dividend - (&dividend/&divisor) * &divisor의 일부로] 정수 결과를 산출해야하기 때문에 해당 나누기 연산의 중간 결과가 * INT 유형 또는 제로 스케일이있는 다른 숫자 유형으로 강제 지정되어야 함을 의미합니다.
그리고 이미 허용 대답 쇼로, 다음과 같은 개정은 중간 결과에 대한 정수를 사용하는 문제 해결 : 나는 OP에 24Sep 주석에 언급 무엇 달리

pgm 
dcl var(&dividend) type(*int) value(15) 
dcl var(&divisor) type(*int) value(6) 
dcl var(&remainder) type(*int) 
dcl var(&intermedI) type(*int) 
/* Calculate remainder. *two-step process; per change, correctly yields 3 */ 
chgvar var(&intermedI) value(&dividend/&divisor) /* *INT intermed result */ 
chgvar var(&remainder) value(&dividend - &intermedI    * &divisor ) 

을 은 더 능력이 없다 단 하나의 CHGVAR 문에서 원하는 결과를 얻으려면 다음 표현식을 코딩하십시오. 첫 번째 표현식은 msg를 사용한 구문 검사에 실패합니다. CPD0058 "내장 함수 % INT는 1 개의 인수를 허용합니다." 두 x 째는 msg CPD0181 "내장 함수 % INT의 인수가 유효하지 않습니다."와 함 2 실패합니다. 그리고 나는 같은 효과를 기대할 것이다. (그러나 나는 확인하지 않았다.) % DEC 내장 함수를 코딩하지 않았다. 즉 제로는 진수 - 장소 인수]에 지정된 :

(&dividend - %int(&dividend/&divisor) * &divisor) 

(&dividend - %int((&dividend/&divisor)) * &divisor)