欢迎来到天天文库
浏览记录
ID:44097053
大小:118.50 KB
页数:19页
时间:2019-10-18
《画出下列图形》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、子程序求:S=5!画出下列图形:****************************************求:S=4!+5!+6!主程序:1N=42GOSUB2003S1=S4N=55GOSUB2006S2=S7N=68GOSUB2009S3=S10PRINTS1+S2+S311END子程序:200S=1FORI=1TONS=S*INEXTIRETURN主程序(N=4,5,6)子程序(计算N!)返回计算结果调用并提供数据求:S=4!+5!+6!一、GOSUB/RETURN语句的一般结构GOSUB子程序第一行的行号或标号RETUR
2、N1、GOSUB写在主程序中;RETURN写在子程序中2、子程序的范转:从GOSUB语句指定的行号或标号开始,到RETURN语句结束。3、变量在整个程序(子程序和主程序)中有效。4、不能用GOTO或IF-—THEN转去子程序5、子程序返回只能用RETURN语句6、主程序最后必须加END子程序子程序是完成某一方面操作的独立程序段,是程序的一部分,它通过一特定的语句与主程序建立关系。*****************************************************作业1、求5!+3!-6!2、求二元一次方程解:(利
3、用子程序)3X2+2X+6=0X2+4X+1=0-5X2+16X-3=0递推问题:小猴子第一天摘下若干个桃子,当即吃掉一半,还不过瘾,又多吃了一个。第二天早上又将剩下的桃子吃掉一半,又多吃了一个。以后每天都吃前一天剩下的一半加一个。到第10天早上猴子再想吃时,见只剩下一个桃子了。问猴子第一天摘下多少个桃子?递推:先从最后一天的推出倒数第二天的桃子,再从倒数第二天的推出倒数第三天的桃子……设第N天的桃子数为XN,则它是前一天的桃子数XN-1的一半再减1XN=XN-1/2-1或XN-1=(XN+1)*2有一对兔子,从出生后三个月开始,每个
4、月都生一对小兔子。小兔子从出生后第三个月开始生下一代小兔子。假设兔子只生不死,问12个月后有几对兔子?分析:第1个月1对小兔子第2个月1对大兔子第3个月1对大兔子、1对小兔子第4个月2对大兔子、1对小兔子第5个月3对大兔子、2对小兔子……11235菲波那契数列递推公式:Xk=Xk-1+Xk-2X1=1,X2=1A=1:B=1FORI=1TO12X=A+BB=XA=BNEXTIPRINTX:END数组定义:数组就是将若干个具有某种共性的变量组合在一起,形成一张表。每个数组都有一个名字,称为数组名。组成数组的每个变量,称为该数组的元素。一
5、个数组的不同元素以下标来区别。I数组下标1231920说明1、数组不是代表一个变量,而是代表有内在联系的一组变量。2、数组元素的个数由其下标值的上界(最大值)与下界(最小值)来确定。3、下标是一组连续整数,QBASIC默认下界为0。如定义A$(10),则应包含A$(0),A$(1),……,A$(10)共11个元素。4、下标变量只有一个下标值时,称一维数组,如X(2);若有两个下标值,称二维数组,如Y(2,3)……数组的定义——DIM格式:DIM数组名1(下标上界),[数组名2(下标上界),]……例:DIMA(19)DIMYW(100)
6、,XM$(30),BH(100)注意:1、数组应先定义后使用;2、使用数组时,下标值不能超过DIM语句中的上界,否则会出错;3、同一数组在同一程序内不允许第二次定义。例1:输入学号1—8的学生的成绩,计算出总分,按学号逆序输出成绩与总分DIMMK(8)S=0FORI=1TO8READMK(I)S=S+MK(I)NEXTIFORI=8TO1STEP-1PRINT“No.”;I,MK(I)NEXTIPRINT“S=”;SDATA64,100,88,91,76,50,82,89END数组的输入数组的输出例2:输入学号1—8的学生的成绩,按成
7、绩从低到高的顺序输出DIMMK(8)S=0FORI=1TO8READMK(I)S=S+MK(I)NEXTIFORI=1TO7FORJ=I+1TO8IFMK(I)>MK(J)THENSWAP(MK(I),MK(J))NEXTJNEXTIFORI=1TO8PRINTMK(I),NEXTIDATA64,100,88,91,76,50,82,89END例3:输出菲波那契(Fibonacci)数列的前40项112358……分析:定义数组FB(40)用于存放数列的每一项,且FB(1)=1,FB(2)=1FB(I)=FB(I-1)+FB(I-2)D
8、IMFB(40)FB(1)=1:FB(2)=1FORI=1TO40FB(I)=FB(I-1)+FB(I-2)NEXTIFORI=1TO40PRINTFB(I),NEXTIEND
此文档下载收益归作者所有