Question

请教几道visual foxpro编程问题

1.已知一元一次方程的系数，求它的根
2.编写一个循环结构程序计算1~n的偶数和
3.通过键盘输入10个数，求它们的平均值
4编程:求s=1-1/2+1/3-1/4+1/5+...+1/100
小妹不胜感激呀 请各位帅哥 美女帮帮我吧!!

Answer 1

1
clear
set talk off
s=0
input "请输入一个数:" to n
for i=1 to n
if i%2=0
s=s+i
endif
endfor
?s
set talk on

2.
CLEAR
?"请输入数据A"
INPUT TO A
?"请输入数据B"
INPUT TO B
?"请输入数据C"
INPUT TO C
DELTA=B*B-4*A*C
DO CASE
CASE DELTA>0
?"方程有两个不相等的实数根:"
??(-B+SQRT(DELTA))/(2*A)
??(-B-SQRT(DELTA))/(2*A)
CASE DELTA=0
?"方程有两个相等的实数根:"
??-B/(2*A)
CASE DELTA<0
?"方程有两个复根:"
REAL=-B/(2*A)
IMG=SQRT(-DELTA)/(2*A)
?ALLTRIM(TRIM(REAL))+"+"+ALLTRIM(STR(IMG))+"I"
?ALLTRIM(TRIM(REAL))+"-"+ALLTRIM(STR(IMG))+"I"
ENDCASE

3.
dime a(10)
s=0
for i=1 to 10
input "请输入数据:" to a(i)
s=s+a(i)
endfor
?"这10个数据的平均值是:",s/10

4.
clear
set talk off
s=0
for i=1 to 100
s=s+(-1)^(i+1)*(1/i)
endfor
?"1-1/2+1/3-1/4+...+1/100=",s
set talk on