VF程序判断十个整数是否素数
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/08 21:31:29
VF程序判断十个整数是否素数
CLOSE ALL
CLEAR ALL
CLEAR
nEndNo = 10
FOR nLoop_01 = 1 TO nEndNo
cLoop_01 = PADL(ALLTRIM(STR(nLoop_01)),2," ")
DO WHILE .T.
INPUT "请输入第&cLoop_01.个数据:" TO nGetNo
IF NOT TYPE([nGetNo]) = "N"
"数据无效!"
ELSE
IF nGetNo > 0 AND INT(nGetNo) = nGetNo
cPrimeChkFlag = "Prime"
IF nGetNo > 3
FOR nLoop_02 = 2 TO nGetNo - 1
IF INT(nGetNo / nLoop_02) = nGetNo / nLoop_02
cPrimeChkFlag = "Composite"
EXIT
ENDIF
NEXT
ENDIF
IF cPrimeChkFlag = "Prime"
nGetNo,"是个素数."
ELSE
nGetNo,"是个复数."
ENDIF
EXIT
ENDIF
ENDIF
ENDDO
NEXT
CLEAR ALL
CLEAR
nEndNo = 10
FOR nLoop_01 = 1 TO nEndNo
cLoop_01 = PADL(ALLTRIM(STR(nLoop_01)),2," ")
DO WHILE .T.
INPUT "请输入第&cLoop_01.个数据:" TO nGetNo
IF NOT TYPE([nGetNo]) = "N"
"数据无效!"
ELSE
IF nGetNo > 0 AND INT(nGetNo) = nGetNo
cPrimeChkFlag = "Prime"
IF nGetNo > 3
FOR nLoop_02 = 2 TO nGetNo - 1
IF INT(nGetNo / nLoop_02) = nGetNo / nLoop_02
cPrimeChkFlag = "Composite"
EXIT
ENDIF
NEXT
ENDIF
IF cPrimeChkFlag = "Prime"
nGetNo,"是个素数."
ELSE
nGetNo,"是个复数."
ENDIF
EXIT
ENDIF
ENDIF
ENDDO
NEXT
VF程序判断十个整数是否素数
用vf判断10个整数是否素数
编写程序,判断一个整数是否为素数
“从键盘上输入一个大于1的自然数,判断是否为素数” 用VF写程序.
急问:编写程序,从键盘输入一个整数n,如何判断此数是否是素数?
编写程序完成判断一个整数是否是素数的功能.写一个判素数的函数prime要求在主函数输入一个整数,输出是否
判断一个整数m是否是素数
设计一个程序,判断一个十二位的整数是否为素数,也就是说判断一个很大的数是否为素数.
设计一个程序,求出200~1000之间的所有素数,要求每行输出5个素数.判断一个整数是否为素数用一个函数来实
设计一程序,求出5到100之间的所有素数,要求每行输出五个素数.判断一个整数是否是为素数用一个函数来实
编写一个程序,其功能是判断某个整数是否为素数,且程序中能够调用该函数,以实现求1000内的所有素数和.
C语言,写一个判断是否是素数的函数,在主函数输入一个整数,程序输出该数是否为素数的信息.