프로젝트 요구사항으로 인해 소문자 숫자를 대문자 숫자로 변환해야 합니다. 변환 방법은 다음과 같습니다.
함수 int2chn(n)
희미한 i,j,k,strlen,retval,x,y,z,str
z=배열(제로, 하나, 둘, 셋, 넷, 다섯, 여섯, 일곱, 여덟, 아홉)
y=배열(,十,百,千)
x=배열(,백만,십억,조)
strlen=len(n)
str1=n
i= 1에서 strlen으로
j=중간(str1,i,1)
retval=복귀&z(j)
j>0이면 retval=retval&y((strlen-i) mod 4)'0보다 크면 소수 문자를 추가합니다.
retval=replace(retval,z(0)&z(0),z(0))' 0이 두 개 있고 하나만 남습니다.
if ((strlen-i) mod 4)=0 and right(retval,1)=z(0) then retval=left(retval,len(retval)-1)' 앞으로 4자리마다 추가
if ((strlen-i) mod 4)=0 then retval=retval&x(int((strlen-i)/4))'마지막 0을 제거합니다.
다음
int2chn=복구
함수 종료