주민등록번호 검사 프로그램입니다. 소스자료실에 있는 것과 다릅니다! 명령어를 줄여 봤습니다. 그런데 일부 주민등록번호에서 오류가 나네요 왜 그런거죠?
검사 버튼 눌렀을때
실수:수1,수2,최종값; 수1:=(문을수(에디트1.문자,0)*2)+(문을수(에디트2.문자,0)*3)+(문을수(에디트3.문자,0)*4)+(문을수(에디트4.문자,0)*5)+(문을수(에디트5.문자,0)*6)+(문을수(에디트6.문자,0)*7)+(문을수(에디트7.문자,0)*8)+(문을수(에디트8.문자,0)*9)+(문을수(에디트9.문자,0)*2)+(문을수(에디트10.문자,0)*3)+(문을수(에디트11.문자,0)*4)+(문을수(에디트12.문자,0)*5); 수2:=수1%11; 최종값:=11-수2; 만일(에디트13.문자=최종값) 문자창보여("올바른 주민등록번호입니다."); 아니면 문자창보여("잘못된 주민등록번호입니다."); |
|