辰桦网络_爱迪网免费个人主页


		首页 \| ☆个人相册☆ \| ☆心情日记☆ \| ☆个人收藏☆ \| ☆给我留言☆ \| ☆学术探讨☆ \| ☆娱乐搞笑☆ \| ☆校园新闻☆ \| ☆学生天地☆ \| ☆资源下载☆ \| ☆程序代码☆ \|

			站长祝大家天天快乐！本站由攸风小殿改名为辰桦网络！本站正在改版!请多多支持!

★欢迎光临★

设为首页

收藏本站

★公告★

站长：半杯水

本站从07年4月25日起改版，若给大家带来不便，请谅解！

本站站点名称由“★攸风小殿★”更名为“辰桦网络” 2007年04月25日

本站内容部分来自网络，若有侵犯他人权利的，请及时通知站长，站长一定马上做出处理。
邮箱：[email protected]
2006年09月21日

★常用软件★

★管理登陆★

※历史上的今天※

§请你欣赏§

当前位置：首页 >>> ☆程序代码☆

『vfp』一元二次方程的根

2007-4-29 [8]

1.首先建立一个名为x的表单
建立modi comm x

2.在表单中输入以下语句：
SET TALK OFF CLEA INPUT"A="TO A INPUT"B="TO B INPUT"C="TO C ?"此一元二次方程为：",ALLTRIM(STR(A)),"X*X","+",ALLTRIM(STR(B)),"X","+",ALLTRIM(STR(C)),"=",0 D=B*B-4*A*C ?D P=-B/(2*A) ?P IF D<0 ?"复根！" ELSE IF D=0 ?"具有相同的根：","X1=X2=",ALLTRIM(STR(P)) ELSE D1=SQRT(D) ?D1 ?"第一个根为：","X1=",(-B+D1)/(2*A) ?"第二个根为：","X2=",(-B-D1)/(2*A) ENDIF ENDIF SET TALK ON

3.运行do x

站点导航

爱迪网我爱我家

首页链接（推荐链接）更多链接>>>

辰桦网络碧水蓝天新生一代经典娱乐音乐网

建站时间:2006年4月4日 QQ:503947274 邮箱：[email protected]