更多"[说明]
本程序求3~100之间的所有素数(质数)并统计个数;同时"的相关试题:
[填空题][说明]
本程序求3~100之间的所有素数(质数)并统计个数;同时将这些素数从小到大依次写入顺序文件 E:/dataout.txt;素数的个数显示在窗体Form1上。
[Visual Basic 代码]
Private Sub Command1 Click ( )
Dim count as integer, flag as Boolean
Dim t1 as Integer, t2 as Integer
(1)
Count=0
For t1=3 to 100
(2)
For t2=2 to Int (Sqr (t1))
If (3) Then flag=False
Next t2
(4)
count=count +1
write #1, t1
End if
Next t1
(5)
Close #1
End Sub
[多项选择]【说明】
本程序将两个从小到大的有序链表合成一个新的从小到大的有序链表。链表的每一项由类 Node描述,而链表由List描述,类List的成员函数有以下几个:
creatList( ): 创建从小到大的有序链表。
multiplyList(List L1, Llst L2): 将链表L1和链表L2合并。
print( ): 打印链表。
【C++代码】
#include <iostream>
using namespace std;
class List;
class Node
friend class List;
public:
Node(int data)
(1) ;
private:
int data;
Node *next;
;
class List
public:
List( )list=NULL;
void multiplyList(List L1, List L2);
void creatList( );
void print( );
private:
Node *list;
;
void List::creatList( )
Node *p, *u, *pre;
int dara;
list=NULL;
wbile(1)
cout<<"输入链表的一项: (小于零,结束链表) "<<endl;
cin>>data;
if(dara<0)break;//小于零,结束输入
p=list;
while(p !=NULL && dara>p->data)//查找插入点
pre=p;
p=p->next;
u= (2
[简答题]【说明】本程序将两个从小到大的有序链表合成一个新的从小到大的有序链表。链表的每一项由类Node描述,而链表由类List描述。类List的成员函数有以下几个。
①createList( ):创建从小到大的有序链表。
②multiplyList(List L1,List L2):将链表L1和链表L2合并。
③print( );打印链表。
# include <iostream.h>
class List;
class Node
friend class List;
public:
Node(int data)
(1) ;
private:
int data;
Node *next;
;
class List
public:
List( ) list = NULL;
void multiplyList(List L1, List L2);
void createList( );
void print( );
private:
Node *list;
;
void List::createList( )
Node *p, *u, *pm;
int data;
list = NULL;
while (1)
cout<<"输入链表的一项: (小于零,结束链表)"<<end1;
cin >> data;
if(data<0)break; //小于零,结束输入
p = list;
while (p != NULL && data > p->data) //查找插入点
pre = p;
p = p->next;
u= (2) :
if(p==list)
lis
[简答题]求10~1000之间的所有素数之和,并输出。
[简答题]编制程序,输出10到30之间所有的素数。提示:素数是只能被1和它本身整除的自然数。
[填空题]以下程序的功能是在立即窗口中输出100~200之间所有的素数,并统计输出素数的个数。请在程序空白处填入适当的语句,使程序可以完成指定的功能。
Private Sub Command2_Click( )
Dim i%,j%,k%,t% ’t为统计素数的个数
Dim b AS Boolean
For i=100 T0 200
b=True
k=2
J=Int(Sqr(i))
Do While k<=j And b
If i Mod k=0 Then
b= (12)
End If
k= (13)
Loop
If b=True Then
t=t+1
Debug.Print i
End If
Next i
Debug.Print"t=";t
End Sub
[填空题]
以下程序的功能是在立即窗口中输出100到200之间所有的素数,并统计输出素数的个数。请在程序空白处填入适当的语句,使程序可以完成指定的功能。
PrivateSubCommand2_Click()
Dimi%,j%,k%,t%‘t为统计素数的个数
DimbAsBoolean
Fori=100To200
b=True
k=2
j=Int(Sqr(i))
DoWhilek<=jAndb
IfIModk=0Then
b=(?)
EndIf
k=(?)
Loop
Ifb=TrueThen
t=t+1
Debug.Printi
EndIf
Nexti
Debug.Print"t=";t
EndSub
[填空题]输出50~200之间的所有素数,一行显示5个,并求和。
set talk off
clear
n=50
j=0
S=0
______
i=2
do while i<n
if int(n/i)=n/i
exit
endif
______
enddo
ifi>=n
str(n,5)
S=S+N
j=j+l
______
endif
endif
n=n+1
enddo
"S=",S
return
[填空题]下列程序的功能是求出所有的1-100之间的孪生素数。孪生素数是指两个素数的差为 2,如3和5,11和13等,请填空。
Private Sub Form_Click( )
Dim i As Integer
For i = 3 To 97 Step 2
If 【9】 Then
Print i, i + 2
End If
Next i
End Sub
Public Funtion Prime (ByVal n As Integer) As Boolean
Dim i as Integer
For i = 2 To n - 1
If 【10】 Then
Exit For
End If
Next i
If i = n Then
Prime = True
Else
Prime = False
End If
End Function
[填空题]
下列程序的功能是:输出10到100之间的所有回文素数。所谓回文素数是指,如果一个数是素数,则该数反序后形成的数也是素数。例如,13是素数,13反序形成得到数为31,31也是素数,则称13为回文素数。请在程序的横线处填写适当的语句,使程序完成指定的功能。
Private Sub Command12_Click ( )
Dim k As Integer, m As Integer, n As Integer
For k = 10 T0 100
If prim (k) Then
m=()
n = O
Do While m>0
n = n * 10 + m mod 1O
m=m/10
Loop
If prim (n) Then
MsgBox k & "," & n
End If
End If
Next k
End Sub
Public Function prim (n As Integer) As Boolean
Dim j As Integer
For j = 2 TO n / 2
If n Mod j = 0 Then
prim =()
Exit Function
End If
Next j
prim = True
Exit Function
End Function
m=()
[填空题]下列程序的功能是求出所有的1~100之间的孪生素数。孪生素数是指两个素数的差为2,如3和5,11和13等,请填空。
Private Sub Form_Click( )
Dim i As Integer
For i=3 To 97 Step 2
If 【14】 Then
Print i,i+2
End If
Next i
End Sub
Public Function prime(ByVal n As Integer)As Boolean
Dim i As Integer
For i=2 To n-1
If 【15】 Then
Exit For
End If
Next i
If i=n Then
prime=True
Else
prime=False
End If