Question

求用visual foxpro 程序设计所用语言编辑一下几个简单程序

1）显示3~200之间的所有素数，并求这些数的和。
2）编程求1！+2！+。。。+10！之和
3）从键盘输入10个数，然后找出其中的最大值和最小值。
4）输入任一职工姓名，显示其信息，如姓名输入错误，显示“查无此人”。
5）从键盘输入任一N值，求P=1*3+2*3+3*3+4*3+...+N*3.
6)编写程序，从键盘输入一个大于2的整数，判断其是否为素数。

Answer 1

1,
s=0
for i=3 to 5
lss=.t. &&是否为素数,默认是素数
for j=2 to i-1
if mod(i,j)=0
lss=.f. &&一旦能被1和自身外的数整除,就不是素数,退出判断
exit
endif
endfor

if lss
s=s+i
endif
endfor
?'结果是',s

2,
s=0
for i=1 to 10
cj=1
for j=1 to i
cj=cj*j
endfor
s=s+cj
endfor
?'结果是',s

3,
dimension n(10)
for i=1 to 10
input '请输入第'+alltrim(str(i))+'个数值:' to n(i)
endfor
asort(n) &&将数组按升序排序
?'最大值为:',n(10)
?'最小值为:',n(1)

4,
accept '请输入职工姓名:' to xm
use 职工表 in 0
select 职工表
locate for alltrim(姓名)=alltrim(xm)
if found()
display
else
?'查无此人'
endif

5,
input '请输入数值:' to n
s=0
for i=1 to n
s=s+i*3
endfor
?'结果是',s

6,
input '请输入一个大于2的整数:' to n
if n<=2 or int(n)<>n
?'输入不符合要求'
return
endif

lss=.t. &&是否为素数,默认是素数
for i=2 to n-1
if mod(n,i)=0
lss=.f. &&一旦能被1和自身外的数整除,就不是素数,退出判断
exit
endif
endfor

if lss
?n,'是素数'
else
?n,'不是素数'
endif