打印出100-200之间的素数 每行打印五个 求原代码及程序结构图 最好有注释

CLEAR
n=0 &&用来计数换行
FOR i=100 TO 200
IF isprime(i)
IF n%5=0
?i
else
??i
ENDIF
n=n+1
endif
ENDFOR
FUNCTION isprime &&自定义函数
PARAMETERS Num
LOCAL i
FOR i=2 TO SQRT(Num)
IF Num%i=0
RETURN .f.
endif
ENDFOR
RETURN .t.

clear
decl o(100) &&定義一個數組o
r=0
m=0
for i = 100 to 200 &&定義循環從100到200
k=0
for j = 1 to i &&定義被除數從1到i
if i%j=0 THEN &&判斷餘數是否為零
k=k+1 &&統計餘數為零的個數
ENDIF
NEXT
if k=2 THEN &&餘數為零的個數為2時，即屬於質素數
m=m+1
o(m)=i &&將素數賦值到數組中
ENDIF
NEXT
DIMENSION o(m) &&重新定義數組
FOR n = 0 TO int(m/5)
FOR q =1 TO 5 &&每行5個數
r = n*5+q
IF r<=m THEN &&判斷r是否超出下標
??o(r) &&不換行輸出數組
ENDif
NEXT
? &&換行
NEXT
　✎﹏﹏
金秋舞葉带您背单词:
[六级]idiom/‘idiәm/n.习语，成语
　✎﹏﹏
金秋舞葉带您背单词:
[六级]contemplate/‘kɔntempleit/vt.注视,沉思,打算vi.冥思苦想