5、求2~1000之間完數的個數。

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

　　程序代碼：

　　SET TALK OFF

　　CLEAR

　　SN=0

　　?"2~1000之間的完數為:"

　　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

　　?" 完數的個數為:",SN

　　SET TALK ON

　　6、本程序首先對矩陣按行讀入數據，并將它轉置。

　　程序代碼：

　　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