BASIC语言教案.doc

BASIC语言（一）BASIC简介教学目标：1、了解计算机语言与BASIC语言的特点；2、了解QBASIC系统的功能；重点：QBASIC系统的功能难点：QBASIC系统的功能教学过程：一、BASIC语言简介1. 计算机的语言人类之间的思想交流要通过语言来完成，而与计算机打交道则通过使用计算机的语言。我们用计算机语言来描述让计算机依次做的事情，所以我们这些语言也叫做程序设计语言。我们现在使用的各种软件，都是人们通过计算机的语言制作出来适应人们应用的一种程序。语言有多种：BASIC、PASCAL、C、C等。学生查阅网络，举例具体的计算机语言。2. BASIC语言 BASIC语言非常适合我们青少年学习，它有着简单易学、数据类型丰富、适用面广等特点。很多学校和计算机爱好者都把它作为学习计算机的入门语言。 我们主要通过学习QBASIC语言来了解计算机语言，让计算机为我们解决实际问题。二、QBASIC系统1. 启动QBASIC系统QBASIC（回车）2. 输入QBASIC程序（程序略）3. 运行QBASIC程序Shift +F54. 退出QBASIC系统Alt + F激活菜单，选择Exit选项退出。附：（上机实习趣味BASIC程序）程序一：CLSINPUT NFOR I=1 TO N PRINT TAB(I); PRINT “*”NEXT IEND程序二：SCREEN 8FOR I=1 TO 15 COLOR I CIRCLE (320,100), I*10NEXT IEND程序三：S$ = CDEFGABPLAY L16FOR I = 0 TO 6 PLAY O + STR$(I%) PLAY X + VARPTR$(S$)NEXT IEND三、总结回顾：BASIC系统的功能BASIC语言（二）数值计算一、算术表达式 BASIC语言的主要功能之一就是计算。要解决计算问题，首先要明确在BASIC中怎样表示一个计算式。1BASIC常量 常量（也叫常数）指的是在程序运行过程中数值保持不变的量。常量有数值常量和字符串常量两种。(1) 数值常量数值常量的写法与普通数学中的十进制一样。如：5 0.2 -4 3.6 .93 -15.43其中：正数前的“”号可以省略；小数点前只有0时，0既可以保留也可以省略；小数点后面最末尾的0可以保留也可以省略。(2) 字符常量字符常量就是一串用引号括起来的字符串。如：”China” “BASIC” “Xiao Ming”2表达式 在BASIC语言中，常量和一些运算符号组成的算式就叫做表达式。常用的运算符号有：、*、/、() 其它还有： 、MOD 运算顺序：与数学中的一样，先算乘方、再算乘除、最后算加减；同级运算由左向右依次计算；要改变运算顺序，可以使用括号。说明：1. BASIC语言中乘法用*表示，而不是数学中的；2. BASIC语言中只有小括号，不能使用中括号和大括号。但允许使用多层小括号。例如：将下列的数学算式改写成BASIC语言表达式。15（2834）2505 (15*(28+34)-250)/5 2*(5+8)/4+3+1/2+4/5练习：1. 将下列数学算式改写成BASIC语言表达式。6015331132324215300-50(6015)2. 计算下列BASIC表达式的值。1/2+1/4+1/5 (107-27)/(3+2)/(75/3) 空格部分应如何处理？如果是*号，那么1/5有没有括号其计算结果是不是有区别？(4*(5+8)+3*4)/(5*10/25) (42/2-5)*3二、用途广泛的PRINT语句1打印语句 要让计算机显示BASIC表达式的结果，必须使用PRINT语句。 格式：PRINT 打印内容 功能：计算出表达式的值并将结果打印到屏幕上。 例如： PRINT 1332 PRINT 5*62BASIC语言的程序 下面我们来介绍BASIC语言的程序。程序是由一些命令组成的。 例如：编写一个打印100205的程序。 PRINT 100+20*5 END 程序的末尾有一个END命令，表示一个程序结束。 例如：编写一个计算（26）4与5810的程序。 PRINT (2+6)/4 PRINT 5*8-10 END 练习：编写程序，打印下列算式的值。20+43-191/2+1/4+1/864*20/842+52+62例7 编程计算一元二次方程的根。 分析：一元二次方程的通式为AX2+BX+C=0。 (1)如果方程的系数A、B都为0，则方程不是一元二次方程，应予以排除。 (2)如果A=0且B0，则方程为一元一次方程，只有一个根。 (3)如果判别式B2-4AC0，则方程有两个不相等的实根。 其中，用SQR(B*B-4*A*C)表示。 REM求解方程 CLS INPUT “请输入A,B,C值:”;A,B,C IF A=0 AND B=0 THEN PRINT “输入错误”:END IF A=0 THEN PRINT “X=”; -C/B: END D=B*B-4*A*C IF D0 THEN PRINT “无实根”:END