365文库
登录
注册
福利来袭，限时免费在线编辑
转Pdf
下载我编辑的
下载原始文档
收藏
安琪拉屎姜子牙疼
上传于：2024-07-14
2012甘肃专升本计算机程序设计
1、求解AX+BX+C=0的根、其中A、B、C三个参数由键盘输入。一元二次方程的求根公式是：X=-b±√b²-4ac/2a
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
2、编写程序将1-100之间所有能被7和3整除的整数输出
clear
for i=1 to 100
if i%3=0 and i%7=0
??i
endif
endfor
3、编写程序计算e，e的近似值计算公式为：
e=1+1/1!+1/2!+1/3!+...+1/n!，直到1/n!<0.000001为止
clear
e=1
n=1
do while .t