求vf高手,求一元二次方程的代码,制作表单里要用。速度!

如题所述

第1个回答  2011-12-29
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

求vf高手,求一元二次方程的代码,制作表单里要用。速度!
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 ?"此方...

用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解一元二次方程
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),...

vf求一个一元二次方程的虚根
求一元二次方程:x^2+x+1=0的虚根 解:△=1^2-4×1×1=-3 由求根公式x=[-1±√(-△)i]\/2=[-1±√3i]\/2

二次项系数为1,两根之和为3的一元二次方程
有很多这样的方程:比如x²-3x+2=0 只要这个一元二次方程的二次项系数是1,一次项系数是-3,常数项c≤9\/4就可以。

用matlab怎么求二元线性方程的系数,还有一般常用函数有哪些
lsqcurvefit 函数可以用来球二元线性方程的系数。如:x=0:0.5:10;x=x';y=x.^2;x1=x*sin(pi\/4)+y*cos(pi\/4)+2+rand(1,length(x))';y1=x*cos(pi\/4)+y*sin(pi\/4)+2+rand(1,length(x))';xdata=[x y;x y];%ydata=y;ydata=zeros(2*length(x),1);ydata(1:length(x))=y1;ydata...

《多媒体技术与应用》期末考试
(一) 计算机数学 学时:4学时\/周,开设两学期,总计132学时内容提要:本课程包括微积分、线性代数、概率论和计算方法四大部分。微积分包括一元微积分、常微分方程、多元微积分初步、无穷级数、数值计算初步等内容;线性代数包括行列式、矩阵、线性方程组的基本概念、基本理论及其应用;概率论部分包括随机事件与概率、随机变量...

线性代数,求这个矩阵的A^(-1)和A*
进行初等行变换:(A丨E)→(E丨A^(-1))。计算A*要求所有元素的代数余子式:a11=1*(12-(-2)),a12=(-1)*(0-2)。按照长方阵列排列的复数或实数集合,最早来自于方程组的系数及常数所构成的方阵。这一概念由19世纪英国数学家凯利首先提出。概念 线性关系意即数学对象之间的关系是以一次...

大学计算机专业都学那些课程
计算机专业课程设置:计算机应用基础、应用文写作、数学、英语、德育、电工与电子技术、计算机网络技术、C语言、计算机组装与维修、企业网安全高级技术、企业网综合管理、windows server 2008操作系统。局域网组建、Linux服务器操作系统、网络设备与网络技术(主要学习思科、华为公司设备的配置、管理、调试)、SQL ...

10道编程题、、VF高手进啊、、急急急!!!高分!!!
1、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 els...

相似回答