basic语言判断是否是质数--高中数学3-32页练习1

2020年2月23日 17:50 by wst

高中数学编程

---

这里记录下高中数学3中的32页练习1的程序代码，以供参考，如果问题，欢迎留言。

为了便于运行，这里使用的环境参数为（后续博文中的环境同此）：

操作系统：Deepin15.11桌面版

编程工具：Gambas3

对于高中生而言，能写出主要逻辑即可，比如这里的5-16行。

' Gambas module file

Public Sub Main()
  Dim i, n, r As Integer
  Input n
  i = 2
  Do
    r = n Mod i
    i = i + 1

  Loop Until i > n - 1 Or r == 0
    If r == 0
    Print "n is not a prime number."
    Else
      Print "n is a prime number."
    Endif
End

附：

Basic语言基本使用方法

---