計算機等級考試二級VFP上機試題及解題思路(7)

　　5、求2~1000之間完數(shù)的個數(shù)。

　　(完數(shù)：一個數(shù)如果恰好等于它的因子之和，因子不包括本身且不能重復(fù)。如：6=1+2+3，8<>1+2+4，所以6是完數(shù)，8不是完數(shù))

　　程序代碼：

　　SET TALK OFF

　　CLEAR

　　SN=0

　　?"2~1000之間的完數(shù)為:"

　　FOR N=2 TO 1000

　　M=N

　　I=1

　　S=0

　　DO WHILE I

　　IF INT(M/I)=M/I

　　S=S+I

　　ENDIF

　　I=I+1

　　ENDDO

　　IF N=S

　　SN=SN+1

　　??N

　　ENDIF

　　ENDFOR

　　?" 完數(shù)的個數(shù)為:",SN

　　SET TALK ON

　　6、本程序首先對矩陣按行讀入數(shù)據(jù)，并將它轉(zhuǎn)置。

　　程序代碼：

　　SET TALK OFF

　　INPUT 'N=' TO N

　　DIME A(N,N)

　　FOR I=1 TO N

　　FOR J=1 TO N

　　INPUT 'A('+STR(I,1)+','+STR(J,1)+')=' TO AI,J)

　　ENDFOR

　　ENDFOR

　　FOR I=1 TO N

　　FOR J=1 TO I

　　T=A(I,J)

　　A(I,J)=A(J,I)

　　A(J,I)=T

　　ENDFOR

　　ENDFOR

　　SET TALK ON