画出下列图形

《画出下列图形》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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