山东省临沂一中

山东省临沂第一中学基本算法语句

主要内容一、知识结构二、BASIC语言的发展三、QBASIC上机指导四、QBASIC语言的基本字符五、QBASIC的算术表达式六、QBASIC的标准函数七、质数判断八、二分法九、闰年问题一、知识结构输入语句输出语句赋值语句条件语句循环语句算法语句二、BASIC语言的发展初期BASIC（1964～70年代初）小型机上使用多用户分时系统编译方式微机BASIC(1975～80年代中期)

在ROM中解释方式VisualBASIC（1991，MS）forWindows用于开发Windows应用软件结构化BASIC（80年代中期）三种基本结构模块化TrueBASIC、QuickBASIC、QBASICQBASIC的组成MS-DOS5.0以上版本提供QBASIC.EXE、QBASIC.HLP启动QBASIC“basic/qbasic”程序窗口:用来编辑和运行程序窗口的标题为源程序名命令窗口:用来执行单个程序窗口的标题为Immediate活动窗口:当前正在使用的窗口三、QBASIC上机指导英文字母:大写A～Z,小写a～z数字字符:0～9专用符号(28个)算术运算符(+、-、*、／、\

、^

)关系运算符(>、

<

、=

)标点符号(_、,、.、;、:、?

、’

、”空格、(、)、[、])类型说明符(!、@、#、$、%

、&)四、QBASIC语言的基本字符集四、QBASIC语言的三种运算符运算符功能举例数学表达式算术运算符+加3+2=53+2=5-减10-4=610-4=6*乘12*5=6012×5=60/除35/7=535÷7=5\取整44\7=644\7=6MOD求余45MOD7=345÷7=6…3^乘方2^3=823=8

在QBASIC语言中,包括三种运算符:算术运算符、关系运算符和逻辑运算符.四、QBASIC语言的三种运算符运算符功能举例数学表达式关系运算符<小于a<ba<b<=小于或等于a<=bb>大于a>ba>b>=大于或等于a>=bb=等于a=ba=b<>不等于a<>bb逻辑运算符AND且x<5ANDx>11<x<5OR或x<0ORx>3x<0或x>3NOT非NOTx>aX≤a

五、QBASIC的算术表达式(1)BASIC语言的算术表达式由算术运算符、常数、变量、函数和圆括号组成,其基本形式与数学上的算术表达式类似.表达式中的运算符号常用的有：加+,减-,乘*

,除/,乘方^开平方SQR(X),取绝对值ABS(X)取商\,取余aMODb取整INT(X)等.(2)算术表达式的注意事项用算术运算符将常数、数值变量及数学函数连接起来的有意义的式子乘号不能用“×”或“.”不要漏写乘号“*”要用合法的变量名所有字符写在一行上只能使用圆括号六、QBASIC的标准函数常用数学函数见下表不能随意造函数自变量部分必须用圆括号括起来自变量可以是常量、变量或表达式三角函数的自变量应为弧度标准函数功能SIN(X)求X的正弦值X单位为弧度CON(X)求X的余弦值X单位为弧度SQR(X)求X的平方根ABS(X)求X的绝对值LOG(X)求X的自然对数EXP(X)求e的X次幂标准函数功能INT(X)求不大于X的最大整数FIX(X)取X的整数部分SGN(X)符号函数RND(X)产生(0,1)区间的一个随机数SGN(X)=1当x>00当x=0-1当x<0任意给定一个大于1的整数n,判断流程图是否为质数,画出它的流程图,并编写程序.课本P.5,P.22(七)探究开始输入nn>2?d=2d整除n?n不是质数结束d<=n-1?是否是d=d+1否是否n是质数开始输入nn>2?d=2d整除n?n不是质数结束d<=n-1?是否是d=d+1否是否n是质数质数判断开始输入nflag=1n>2?d=2flag=0d整除n?n是质数n不是质数结束d<=n-1且flag=1?flag=1?否是是否是d=d+1否是否INPUT“n=”;ni=2WHILEi<=n-1

IFnMODi=0THENPRINT“No”:ENDENDIFi=i+1WENDPRINT“Yes”ENDINPUT“n=”;ni=2WHILEi<=n-1

IFnMODi=0THENflag=1ENDIFi=i+1WENDIFflag=1THENPRINT“No”ELSEPRINT“Yes”ENDIFENDINPUT“n=”;nflag=1IFn>2THENd=2

WHILEd<=n-1ANDflag=1IFnMODd=0THENflag=0ELSEd=d+1ENDIFWENDENDIFIFflag=1THENPRINT“Yes”ELSEPRINT“No”ENDIFEND 画出用二分法求方程x2-2=0的近似根(精确度为0.005)的程序框图,并把它转化为程序语句.P.3P.10P.23练习3(八)探究

f(m)=0?输出m结束m=(x1+x2)/2f(X1)=x12-2f(m)f(x1)<0?|x1-x2|<c?X1=mX2=m否否是否是是1输出mf(m)=m2-2开始x1=1C=0.005x2=21DOm=(x1+x2)/2f=m^2-2IFf=0THENX1=mX2=mENDIFg=x1^2-2IFg*f>0THENX1=mELSEX2=mENDIFLOOPUNTILABS(x1-x2)<cPRINTmENDX1=1X2=2C=0.005解法一X1=1X2=2C=0.005DOm=(x1+x2)/2f=m^2-2IFf=0THENX1=mX2=mENDIFg=x1^2-2IFg*f>0THENX1=mELSEX2=mENDIFLOOPUNTILABS(x1-x2)<cPRINTmEND解法一X1=1X2=2C=0.005DOm=(x1+x2)/2f=m^2-2IFf=0THENPRINTm:ENDELSEIFf<0THENX1=mELSEX2=mENDIFENDIFLOOPUNTILABS(x1-x2)<cPRINTmEND解法二X1=1X2=2C=0.005DOm=(x1+x2)/2f=m^2-2IFf=0THENPRINTm:ENDELSEIFf<0THENX1=mELSEX2=mENDIFENDIFLOOPUNTILABS(x1-x2)<cPRINTmEND解法二X1=1X2=2C=0.005DOm=(x1+x2)/2f=m^2-2IFf=0THENflag=1ENDIFg=x1^2-2IFg*f>0THENX1=mELSEX2=mENDIFLOOPUNTILABS(x1-x2)<cORflag=1PRINTmEND解法三教参P.20X1=1X2=2C=0.005DOm=(x1+x2)/2f=m^2-2IFf=0THENflag=1ELSEIFf<0THENX1=mELSEX2=mENDIF

ENDIFLOOPUNTILABS(x1-x2)<cORflag=1PRINTmEND解法四X1=1X2=2C=0.005DOm=(x1+x2)/2f=m^2-2IFf=0THENflag=1ELSEIFf<0THENX1=mELSEX2=mENDIF

ENDIFLOOPUNTILABS(x1-x2)<cORflag=1PRINTmEND解法四教参P.20三、闰年是指年份能被4整除但不能被100整除,或者能被400整除的年份.编写一个程序,判断输入的年份是否为闰年.课本P.20(4)(九)探究开始结束年份n否是是否闰年不是闰年闰年11INPUT“年份n=”;nb=nMOD4c=nMOD100d=nMOD400IFb=0ANDc<>0ORd=0THENPRINT“runnian”ELSEPRINT“bushi”ENDIFEND教参P.19INPUT“年份n=”;nIFINT(n/400)=n/40