【急】判断一个数是否为素数的流程图

Question

如题所述

Answer 1

【急】判断一个数是否为素数的流程图

以下为程式码
S1 输入x
S2 y=2
S3 判断y是否整除x,如为真跳至S6，否则 跳至S4
S4 y=y+1
S5 判断y是否大于等于x，如为真跳至S7，否则 重复S3
S6 输出X为合数 跳至S8
S7 输出X为质数
S8 结束

画一个判断素数的流程图

for i=3 to sqr(s)if int(s/i)*i=s then goto shinext iprint s;"不是素数";endshi:print s;"是素数";

怎么判断一个正整数是否为素数 流程图

质数（prime number）又称素数，有无限个。除了1和它本身以外不再有其他的因数；否则称为合数。
根据算术基本定理，每一个比1大的整数，要么本身是一个质数，要么可以写成一系列质数的乘积；而且如果不考虑这些质数在乘积中的顺序，那么写出来的形式是唯一的。最小的质数是2。
目前为止，人们未找到一个公式可求出所有质数。
质数的个数是无穷的。欧几里得的《几何原本》中有一个经典的证明。它使用了证明常用的方法：反证法。具体证明如下：假设质数只有有限的n个，从小到大依次排列为p1，p2，……，pn，设N=p1×p2×……×pn，那么，N+1是素数或者不是素数。
如果N+1为素数，则N+1要大于p1，p2，……，pn，所以它不在那些假设的素数集合中。
如果N+1为合数，因为任何一个合数都可以分解为几个素数的积；而N和N+1的最大公约数是1，所以N+1不可能被p1，p2，……，pn整除，所以该合数分解得到的素因数肯定不在假设的素数集合中。
因此无论该数是素数还是合数，都意味着在假设的有限个素数之外还存在着其他素数。所以原先的假设不成立。也就是说，素数有无穷多个。
其他数学家给出了一些不同的证明。尤拉利用黎曼函式证明了全部素数的倒数之和是发散的，恩斯特·库默的证明更为简洁，HillelFurstenberg则用拓扑学加以证明。
对于一定范围内的素数数目的计算
尽管整个素数是无穷的，仍然有人会问“100，000以下有多少个素数？”，“一个随机的100位数多大可能是素数？”。素数定理可以回答此问题。

判断一个数是否是素数 要求用传统流程图和N-S流程图表示演算法

与力量 不可能再出现，但对于
一个铃响了，一扇门在颤抖，
这声音不会像死鸟一样消亡
深深地爱上这寥廓的空间。
你迷人美貌的遗产并没有
弥漫的整个馨香的夏季哈哈

判断一个数字是否为素数 画出演算法的流程图

写段虚拟码...
S1 输入x
S2 y=2
S3 判断y是否整除x,如为真跳至S6，否则 跳至S4
S4 y=y+1
S5 判断y是否大于等于x，如为真跳至S7，否则 重复S3
S6 输出X为合数 跳至S8
S7 输出X为质数
S8 结束

用do loop描述判断一个数是否为素数的演算法。

Private Sub Form_Click()
Dim a As Integer
Dim b As Boolean
Dim n As Integer
a = InputBox("输入数字：")
n = 2
b = True
Do While n <= Sqr(a)
If (a Mod n = 0) Then
b = False
Exit Do
End If
n = n + 1
Loop
MsgBox a & IIf(b, "是", "不是") & "素数"
End Sub

判断一个数是不是质数的演算法,流程图

两个演算法：
1。输入一个数N
flag=0;
for(int i=2;i<N;i++)
for(int j=2;j<N/i+1;j++)
if(N==i*j) printf("不是质数");flag=1;break;
...
if(flag==0) printf("是质数");
...
2.输入一个数N
flag=0;
for(int i=2;i<N;i++)
if(int(N/i)==N/i && int(N/i)!=1) printf("不是质数");flag=1;break;
...
if(flag==0); printf(...);
...
第一个用双回圈举出2到N-1中所有数的乘积，等于N则不是质数；
第二个用除法，N除以2到N-1中所有的数，结果为整数则不是质数（N/2=1的情况除外）；

判断一个数是否为素数的vb程式程式码是什么？

Option Explicit
Dim A As Boolean, i As Long
Dim n As Long
Dim St As String
Private Sub Form_Load()
Form1.AutoRedraw = True
St = InputBox("一个任意数（若<2将退出）", "输入", "100")
If St = "" Then Exit Sub
n = Int(Val(St))
If n < 2 Then Exit Sub
For i = 2 To n - 1
If n Mod i = 0 Then
A = False
Exit For
Else
A = True
End If
Next
If A Then
Print n; "是素数"
Else
Print n; "不是素数"
End If
End Sub
我已经 辛苦 执行过。

如何判断一个数是否为素数的演算法(VB) 谢谢啊!

Function ss(Tmp As Long) As Boolean '素数判断
ss = True
For i = 2 To Tmp / 2
If Tmp Mod i = 0 Then
ss = False
Exit Function
End If
Next
End Function
Private Sub Command1_Click()
Dim a As Long
For a = 10 To 100 '小一点 从10到 100吧！
If ss((a))Then
Print a
End If
Next
End Sub

递回法判断一个数是否为素数的C语言程式

不用递回法判断一个数是否为素数,好点,因为递回法判断一个数是否为素数,会产生很多副本,判断大数有可能溢位