VFP数据库作业,谁帮忙作答下,thanks,表单的题1,输出今天是星期几?2,求1!+2!+、、、、、+10?3,求100~200的偶数和4,π（数学中的派）/4=1-1/3+1/5-1/7+.直到最后一项绝对值10负6次方

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、
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) 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