clear
set talk off
input "请输入A值:" to a
input "请输入B值:" to b
input "请输入C值:" to c
if b*b-4*a*c>=0
x1=alltrim(str((-b+(b*b-4*a*c)^(1/2))/(2*a)))
x2=alltrim(str((-b-(b*b-4*a*c)^(1/2))/(2*a)))
else
x1=alltrim(str(-b/(2*a),6,2))-"+"-alltrim(str((4*a*c-b*b)^(1/2)/(2*a),8,2))-"i"
x2=alltrim(str(-b/(2*a),6,2))-"-"-alltrim(str((4*a*c-b*b)^(1/2)/(2*a),8,2))-"i"
endif
?"x1=",x1
??" x2=",x2
set talk on
return
set talk off
input "请输入A值:" to a
input "请输入B值:" to b
input "请输入C值:" to c
if b*b-4*a*c>=0
x1=alltrim(str((-b+(b*b-4*a*c)^(1/2))/(2*a)))
x2=alltrim(str((-b-(b*b-4*a*c)^(1/2))/(2*a)))
else
x1=alltrim(str(-b/(2*a),6,2))-"+"-alltrim(str((4*a*c-b*b)^(1/2)/(2*a),8,2))-"i"
x2=alltrim(str(-b/(2*a),6,2))-"-"-alltrim(str((4*a*c-b*b)^(1/2)/(2*a),8,2))-"i"
endif
?"x1=",x1
??" x2=",x2
set talk on
return
知道了吗
用VF的表单解一元二次方程,其中的计算按钮里应输入什么代码
a=val(thisform.text1.value)b=val(thisform.text2.value)c=val(thisform.text3.value)thisform.Label7.caption=str(((-1*b)+(b**2-4*a*c)\/2\/2)*a)thisform.Label8.caption=str(((-1*b)-(b**2-4*a*c)\/2\/2)*a)
用VF解一元二次方程
set talk off input "请输入A值:" to a input "请输入B值:" to b input "请输入C值:" to c if b*b-4*a*c>=0 x1=alltrim(str((-b+(b*b-4*a*c)^(1\/2))\/(2*a)))x2=alltrim(str((-b-(b*b-4*a*c)^(1\/2))\/(2*a)))else x1=alltrim(str(-b\/(2*a),6,2)...
二次项系数为1,两根之和为3的一元二次方程
只要这个一元二次方程的二次项系数是1，一次项系数是-3，常数项c≤9\/4就可以。
动量守恒公式计算完全非弹性碰撞,速度怎么计算?
动量守恒公式为：m1v1i + m2v2i = (m1 + m2)vf 其中，m1和m2分别是碰撞物体1和物体2的质量，v1i和v2i是碰撞前两个物体的速度，vf是碰撞后两个物体的速度。在完全非弹性碰撞中，碰撞后两个物体会粘在一起，因此它们的速度相同。可以使用动量守恒公式来计算碰撞后物体的速度。例如，一个质量为m1...
在探究凸透镜成像规律的实验中 根据观察
∴(uv\/uvf)-(uf\/uvf)=vf\/uvf∴1\/f-1\/v=1\/u即:1\/u+1\/v=1\/f函数法【题】 如右图 ,用函数法证明1\/u+1\/v=1\/f。【解】一基础右图为凸透镜成像示意图。其中c为成像的物体长度,d为物体成的像的长度。u为物距,v为像距,f为焦距。步骤(一)为便于用函数法解决此问题,将凸透镜的主光轴与平面直角...
x^2+x+k=0的一根是另一根的3倍,求k值 谢
利用一元二次方程2根公式求解，http:\/\/baike.baidu.com\/link?url=FV1wMV9rsStc1AEWV9jNrRs7sKyf2Yn5wvf8HVgLEIjviTtsTfcIFuGXXIX-yrm9，大概K为3\/16
声波速度测井应用
当岩石骨架成分（岩性）和孔隙中流体性质已知时，Δtf和Δtma则为常量，所以（2-30）式为一直线方程：地球物理测井 这种关系在很多油田和地区为大量实际资料所证实。在不同地区，由于岩石成分、颗粒大小、胶结程度以及孔隙中流体性质不同，（2-31）式中的系数将不同。通过实验室岩心分析和时差之间建立...
凸透镜成像规律习题 下面是部分。
∴(uv\/uvf)-(uf\/uvf)=vf\/uvf ∴1\/f-1\/v=1\/u 即:1\/u+1\/v=1\/f函数法 【题】 如右图 ,用函数法证明1\/u+1\/v=1\/f。 【解】一基础 右图为凸透镜成像示意图。 其中c为成像的物体长度,d为物体成的像的长度。u为物距,v为像距,f为焦距。 步骤 (一)为便于用函数法解决此问题,将凸透镜的主光轴...
C语言到底能干什么 ??
else if(条件2) {分支2} else if(条件3) {分支3} …… else if(条件n) {分支n} else {分支n+1} 嵌套分支语句虽可解决多个入口和出口的问题,但超过3重嵌套后,语句结构变得非常复杂,对于程序的阅读和理解都极为不便,建议嵌套在3重以内,超过3重可以用下面的语句。 ④switch开关语句:该语句也是多分支选择...
气体分子平均自由程表达式为:kT\/(1.414πd^2*p) d的推导过程
另一方面，由理想气体状态方程pV=NkT，可得一个分子占据的平均体积V\/N=kT\/p 所以，一个分子在单位时间内的平均碰撞次数(平均碰撞频率f)，也就是这个分子有效碰撞体积内含有分子平均占据体积的个数f=2^0.5·πd^2·vm\/(V\/N)=2^0.5·πd^2·vm·p\/(kT)。那么，平均发生一次碰撞的时间t=1...
