dbase/primes.prg · 328 字节 · 下载原文

* 打印 2..40 之间的素数 —— dBase（xBase）示例：函数 + 循环 + 逻辑返回
FOR n = 2 TO 40
  IF isprime(n)
    ?? STR(n) + " "
  ENDIF
NEXT
?
FUNCTION isprime(n)
  IF n < 2
    RETURN .F.
  ENDIF
  d = 2
  DO WHILE d * d <= n
    IF MOD(n, d) = 0
      RETURN .F.
    ENDIF
    d = d + 1
  ENDDO
  RETURN .T.