小明五次输入四位数的手机密码之编程解答.pdf

;有且仅有2 个相同数字且位置不同,是返回1，否返回0： function f1,as,bs n 0 for i 0,3 do begin ;只要存在相同位置数字相同的就绝对不是，筛选要逻辑未必需要工整， ;随心所欲的嵌入过滤条件也是实用的方法 if (as[i] eq bs[i])then begin return,0 endif p where (as eq bs[i],count) if (count eq 1 and p ne i)then begin n++ endif endfor if (n eq 2)then begin return,1 endif return,0 end ;判断一个四位数是否符合标准： function f2,as b [6087,5173,1358,3825,2531] check 0 for i 0,4 do begin ;提取出各位数字的老办法： b1 fix (b [i]/1000) b2 fix ((b [i]-b1*1000)/100) b3 fix ((b [i]-b1*1000-b2*100)/10) b4 b [i]-b1*1000-b2*100-b3*10 ;各位数字分别是b1,b2,b3,b4,放在数组里： bs [b1,b2,b3,b4] if (f1 (as,bs) eq 1)then begin check++ endif endfor ;5个数字都符合的话： if (check eq 5)then begin print,as endif end pro play tic ;观测5 组密码发现没有4和 9，那么含有4和 9 的四位数就过滤掉了--其实知道也没卵用 ;输出没有4和 9 的、各个位上没有重复数字的4位数 for a1 0,9 do begin for a2 0,9 do begin ;为保证4个位上没有重复数字，一遇到重复的就跳出来 if (a2 eq a1)then begin continue endif for a3 0,9 do begin ;为保证4个位上没有重复数字，一遇到重复的就跳出来 if (a3 eq a2 or a3 eq a1)then begin continue endif for a4 0,9 do begin ;为保证4个位上没有重复数字，一遇到重复的就跳出来 if (a4 eq a3 or a4 eq a2 or a4 eq a1)then begin continue endif as [a1,a2,a3,a4] ;具体算法单独放在子程序里便于检查，查bug 快 f2 f2 (as) endfor endfor endfor endfor toc end