怎样用VFP在表单中做一个解一元二次方程的程序aX^2+bX+C=0
<p>问题:怎样用VFP在表单中做一个解一元二次方程的程序aX^2+bX+C=0<p>答案:↓↓↓<p class="nav-title mt10" style="border-top:1px solid #ccc;padding-top: 10px;">赖胜的回答:<div class="content-b">网友采纳 一元二次方程的程序aX^2+bX+C=0的求根公式:x=(-b±√b^2-4ac)/2a 解方程条件:b^2-4ac>=0 VFP简单程序,在命令按钮(command)属性“Click”事件中加入以下语句: input"请输入a:"toa input"请输入b:"tob input"请输入c:"toc pd=b*b-4*a*c&&先计算b^2-4ac IFpd>=0&&判断方程是否有解(b^2-4ac>=0有解) x1=(-b+sqrt(pd))/2*a&&计算方程的第一个解"-b+√b^2-4ac)/2a" x2=(-b-sqrt(pd))/2*a&&计算方程的第二个解"-b-√b^2-4ac)/2a" "x1=:",x1&&显示方程的第一个解 "x2=:",x2&&显示方程的第二个解 ELSE messagebox("b^2-4ac
页:
[1]