Question

VFP数据库作业，谁帮忙作答下，thanks，表单的题

1，输出今天是星期几？
2，求1！+2！+、、、、、+10？
3，求100~200的偶数和
4，π（数学中的派）/4=1-1/3+1/5-1/7+......直到最后一项绝对值10负6次方

Answer 1

1.
n=date()-{^2011-1-2}
m=n%7
? "今天是："
do case
case m=1
?? "星期一"
case m=2
?? "星期二"
case m=3
?? "星期三"
case m=4
?? "星期四"
case m=5
?? "星期五"
case m=6
?? "星期六"
case m=0
?? "星期日"
endcase
2.
sum=0
jc=1
for i=1 to 10
jc=jc*i
sum=sum+jc
endfor
? sum

3.
sum=0
for i=100 to 200 step 2
sum=sum+i
endfor
? sum

4.
pi=0
flag=1
ei=1
n=1
do while abs(ei)>0.000001
pi=pi+flag*ei
n=n+2
ei=1/n
flag=-flag
enddo
? pi*4

Answer 2

1、
clear
dime a(3)
for i=1 to 3
input "请输入一个数：" to a(i)
endfor
?"降序排列为："
for i=1 to 2
for j=i+1 to 3
if a(i)<a(j)
k=a(i)
a(i)=a(j)
a(j)=k
endif
endfor
??alltrim(str(a(i)))+" "
endfor
??alltrim(str(a(i)))

2、
clear
input "请输入一个整数：" to x
if x/2=int(x/2)
?"是偶数"
else
?"是奇数"
endif

3、
clear
text
一元二次方程求解
ax^2+bx+c=0
endtext
input "请输入a的值：" to a
input "请输入b的值：" to b
input "请输入c的值：" to c
m=b*b-4*a*c
if m>=0
x1=(-b+sqrt(m))/(2*a)
x2=(-b-sqrt(m))/(2*a)
?"x1=",x1,"x2=",x2
else
?"此方程无实根"
endif