在程序框图的循环体中，如果判断框内容采用DoLoop语句编程，则判断框对应的语句为LoopWhile______

由框图知：框图为直到型循环结构的程序仿兆灶框图，

∴判断猜桐框对应的语句为：

LOOP  While  y＞2x-1．备扮

故答案为：y＞2x-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=2i<Ni++)

for(int j=2j<N/i+1j++)

if(N==i*j) printf("不是质数")flag=1break

...

if(flag==0) printf("是质数")

...

2.输入一个数N

flag=0

for(int i=2i<Ni++)

if(int(N/i)==N/i &&int(N/i)!=1) printf("不是质数")flag=1break

...

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语言程式

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

（1）程序框图历闷迹如下罩侍：

（2）程序如下：肢并

s=0

i=1

DO

s=s+i

i=i+2

LOOP UNTIL i＞131

PRINT s

END

---