图形计算器编程初探.doc

《图形计算器编程初探.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、图形计算器编程初探班级：高2010级1班姓名：王力博指导教师：郑宏宝研究背景图形计算器在研究函数，统计方面具有强大功能和很大的利用价值。但经过我几天的探索，我觉得，最吸引我的还是它所独有的编程功能。因此，我对这一功能进行了详细的探究，自己尝试编辑了一些程序，报告如下。目的意义通过简单的学习，我们就能够应用最基础的命令去创新；一方面锻炼自己的思维能力，使自己在做事时更加细致，另一方面可以编辑出一些更加复杂的，有实际应用意义的程序，为生活服务。成果展示一、学习简单命令如：输入变量：Input变量；“标题”；“变量名”；“注释”；0（初始值）：　　分支命令：1、Case　　　　　　　　　I

2、f...then...end　　　　　　　　　...　　　　　　　　　If...then...end　　　　　　　　　End:（连续判断一组）　　　　　　　　　2、If...Then...Else...End:　　3、Choose变量；“标题”；“选项1”；“选项2”；...“选项n”：（选择）　　循环命令：1、While...Repeat...Until...End:　　2、Do...Until...End:　　显示命令：1、Msgbox“文本”：（框显示）　　2、Disp2（行数）；“文本”：（直接显示，覆盖原内容）　　绘图命令：1、Pixon（Pixoff）x；y:（打开关闭某

3、个特定坐标的像素）　　2、Arcx；y；半径；起始角；终止角：（画弧）3、Erase：(清屏)　　　　　　　　　4、Freeze:（暂停程序，用以固定图形使之不消失）这些都是基本命令，可能在后面的程序中会用到。二、实践操作第一个设计的是一个简单程序。如下：　　　　　　Arc-2;1;1;0;2pi:　　　　　　Arc0;1;1;0;2pi:　　　　　　Arc2;1;1;0;2pi:　　　　　　Arc1;0;1;0;2pi:　　　　　　Arc-1;0;1;0;2pi:　　　　　　Freeze:这个程序可以画出奥运五环并且使它停留，按任意键退出。三、组合简单命令进行稍复杂的编程（包括设计

4、程序，写入，调试）　　我进行的是一个一元二次方程（ax^2+bx+c=0）求解器的编辑。　　命令为：　　INPUTA;””;”A”;””;O:　　INPUTB;””;”B”;””;O:　　INPUTC;””;”C”;””;O:　　B^2-4AC→Q　　IFA==0ANDB==0ANDC≠0THENMSGBOX“NOREALROOTS”:　　End:　　IFA==0ANDB==0ANDC==0THENMSGBOX“INFINITEREALROOTS”:　　END:　　IFA==0ANDB≠0THENMSGBOX“X=”-C/B（注：引号外的变量显示的是变量的值）:　　END:　　IFA

5、≠0ANDQ>0THENMSGBOX“X1=”(-B-√Q)/2A:MSGBOX“X2=”(-B+√Q)/2A:　　END:　　IFA≠0ANDQ<0THENMSGBOX“NOREALROOTS”:　　END:　　IFA≠0ANDQ==0THENMSGBOX“X1=X2=”-B/2A:　　END:　　　　灰色字部分是判断，红色是文本。程序框图如下：四、对程序进行反思与后续加工　　我在设计好并且试运行后，提出了几个问题：1、能否在输入完系数a,b,c以后预览方程？2、能否直接显示系数取代预览功能？3、能否再发现错误时倒回去重新输入，而不重启程序？4、怎样能在程序运行以后让它回到开头重新

6、计算？5、怎样能使程序运行完以后自动清除a,b,c？6、怎样能随时退出程序？7、怎样能让使用者一目了然，知道如何使用？　　本着这样的想法，我进行了很多实验最终确定了比较成熟的程序版本：　　MSGBOX“AX^2+BX+C=0EQUATIONSOLVER”　　1→R:　　1→S:　　DO　　　ERASE:CHOOSES;”MENU”;”CHANGEA(A=”A”)”;”CHANGEB(B=”B”)”;”CHANGEC(C=”C”)”;”SOLVE”;”QUIT”:CASEIFS==1THENINPUTA;”INPUTA”;”A”;”PLEASESETTHEVALUEOFA”;O:2→S

7、ENDIFS==2THENINPUTB;”INPUTB”;”B”;”PLEASESETTHEVALUEOFB”;O:3→SIFS==3THENINPUTC;”INPUTC”;”C”;”PLEASESETTHEVALUEOFC”;O:4→SENDIFS==4THENB^2-4AC→QIFA==0ANDB==0ANDC≠0THEN　MSGBOX“NOREALROOTS”:End:IFA==0ANDB==0ANDC==0THEN　MSGBOX“INFINITER