专升本 编程总结版.doc

求求 N N 的阶乘 的阶乘 N N 的值的值 由键盘输入 应小于由键盘输入 应小于 2020 INPUTINPUT 输入输入 N N 的值的值 TOTO N N P 1P 1 FORFOR I 1I 1 TOTO N N P P IP P I ENDFORENDFOR N P N P 求和类 求和类 1 1 计算计算 S 1S 1 2 2 3 3 4 4 N N S 0S 0 K 1K 1 INPUTINPUT N N TOTO N N FORFOR i 1i 1 TOTO N N K K iK K i S S KS S K EndforEndfor S S 2 2 求求 33333 217531 SUM 0SUM 0 FORFOR I 1I 1 TOTO 2121 STEPSTEP 2 2 SUM SUM I 3SUM SUM I 3 ENDFORENDFOR SUM SUM SUM SUM 3 3 有一分数序列 求前有一分数序列 求前 2020 项之和项之和 8 13 5 8 3 5 2 3 1 2 M 1M 1 N 2N 2 SUM 0SUM 0 FORFOR I 1I 1 TOTO 2020 TERM N MTERM N M SUM SUM TERMSUM SUM TERM X NX N N M NN M N M XM X TERM N MTERM N M ENDFORENDFOR SUM SUM SUM SUM 4 4 求求 S Sn a aa aaa aaaa n a aa aaa aaaa 其中 其中 a a 是一个数字 是一个数字 a a 的个数为的个数为 n n a a 和和 n n 由键盘输入由键盘输入 INPUTINPUT 输入输入 a a 的值的值 TOTO A A INPUTINPUT 输入项数输入项数 n n TOTO N N SN 0SN 0 B AB A FORFOR I 1I 1 TOTO N N SN SN ASN SN A A A 10 BA A 10 B ENDFORENDFOR 数列之和为数列之和为 SN SN 5 5 求求e ex x的台劳级数展开式的前的台劳级数展开式的前 n n 项之和项之和 运行时输入运行时输入 x 2 0 n 4 x 2 0 n 4 1 3 2 1 132 n xxx xe n x INPUTINPUT X X TOTO X X INPUTINPUT N N TOTO N N SUM 1SUM 1 P 1P 1 FORFOR I 1I 1 TOTO N 1N 1 P P IP P I T X I PT X I P SUM SUM TSUM SUM T ENDFORENDFOR SUM SUM SUM SUM 6 6 求求 1 2 3 4 5 6 21 221 2 3 4 5 6 21 22 SUM 0SUM 0 FORFOR I 1I 1 TOTO 2121 STEPSTEP 2 2 SUM SUM I I 1 SUM SUM I I 1 ENDFORENDFOR 和为和为 SUM SUM 1892 1892 7 7 通过键盘输入通过键盘输入n n 求下列级数的 求下列级数的 和和 1 1 2 1 3 1 4 1 n 1 1 2 1 3 1 4 1 n INPUTINPUT TOTO N N S 0S 0 F 1F 1 FORFOR I 1I 1 TOTO N N S S F 1 I 1 IS S F 1 I 1 I ENDFORENDFOR S S 8 8 计算连续自然数之和 并且显示和刚大于计算连续自然数之和 并且显示和刚大于 10001000 的最后一个自然数的最后一个自然数 Sn 1 2 3 4 NSn 1 2 3 4 N STORESTORE 0 0 TOTO S NS N DODO WHILEWHILE S 1000S 1000 N N 1N N 1 S S NS S N ENDDOENDDO N N 9 9 求求 1 2 4 2 7 2 1 2 4 2 7 2 一直加到超过一直加到超过 10001000 为止 输出和数与项数 为止 输出和数与项数 I 1I 1 S 0S 0 N 0N 0 DODO WHILEWHILE S 1000S0X 0 Y X XY X X ELSEELSE IFIF X 0X 0 Y 0Y 0 ELSEELSE Y X X Y X X ENDIFENDIF ENDIFENDIF Y Y 2 2 现有一元现有一元 2 2 次方程次方程 AX 2 BX C 0AX 2 BX C 0 其中其中 A A B B C C 是整数且是整数且 A A 不等于不等于 0 0 若存在实根 则输出若存在实根 则输出 在实在实 数范围内有解数范围内有解 若不存在实根若不存在实根 则输出则输出 在实数范围内无解在实数范围内无解 求解求解 INPUTINPUT TOTO A A INPUTINPUT TOTO B B INPUTINPUT TOTO C C D B B 4 A CD B B 4 A C IFIF D 0D 0 在实数范围内有解在实数范围内有解 ELSEELSE 在实数范围内无解在实数范围内无解 ENDIFENDIF INPUTINPUT TOTO A A INPUTINPUT TOTO B B INPUTINPUT TOTO C C D B B 4 A CD B B 4 A C IFIF D 0D 0 X1 B SQRT D 2 A X1 B SQRT D 2 A X2 B SQRT D 2 A X2 B SQRT D 2 A X1 X1 X2 X2 ELSEELSE IFIF D 0D 0 X B 2 A X B 2 A X1 X2 X X1 X2 X ELSEELSE 无解无解 ENDIFENDIF ENDIFENDIF 3 3 输入一个输入一个 X X 的值 求的值 求 Y Y 的值 的值 Y Y 10113 10112 1 XifX XifX XifX INPUTINPUT TOTO X X DODO CASECASE CASECASE X 1X 1 Y XY X CASECASE X 10X 10X 10 Y 3 X 11Y 3 X 11 ENDCASEENDCASE Y Y 数组类数组类 1 1 输入输入 1010 个数 输出其中小于平均值个数 输出其中小于平均值 S S 的数 的数 DIMEDIME A 10 A 10 S 0S 0 FORFOR I 1I 1 TOTO 1010 INPUTINPUT TOTO A I A I S S A I S S A I ENDFORENDFOR S S 10S S 10 FORFOR I 1I 1 TOTO 1010 IFIF A I SA I BIGA I BIG BIG A I BIG A I ENDIFENDIF IFIF A I SMALLA I BIGA I BIG BIG A I BIG A I BP IBP I ENDIFENDIF IFIF A I SMALLA I 10I 10 NO NO ENDIFENDIF 5 5 已有按从小到大的顺序排列的已有按从小到大的顺序排列的 1010 个数 现输入一个数 要求插入到数列中 插入后数列仍然按个数 现输入一个数 要求插入到数列中 插入后数列仍然按 从小到大顺序排列 从小到大顺序排列 DIMENSIONDIMENSION A 11 A 11 FORFOR I 1I 1 TOTO 1010 INPUTINPUT 递增输入递增输入 1010 个整数个整数 TOTO A I A I ENDFORENDFOR INPUTINPUT 任意输入一个整数任意输入一个整数 TOTO X X FORFOR I 10I 10 TOTO 1 1 STEPSTEP 1 1 IFIF X A I X A I IFIF I 1I 1 A I 1 A I A I 1 A I A I XA I X ELSEELSE A I 1 A I A I 1 A I ENDIFENDIF ELSEELSE A I 1 XA I 1 X EXITEXIT ENDIFENDIF ENDFORENDFOR FORFOR I 1I 1 TOTO 1111 A I A I ENDFORENDFOR 6 6 数组数组 A A 中已存放了中已存放了 1010 个由小到大排列的数 现从键盘输入一个数个由小到大排列的数 现从键盘输入一个数 X X 要求删除数组中与其相 要求删除数组中与其相 同的数 并将后续的数依次前移 最后输出剩余的数 同的数 并将后续的数依次前移 最后输出剩余的数 7 7 分 分 考虑到有重复数的程序如下 考虑到有重复数的程序如下 DIMEDIME A 10 A 10 FORFOR I 1I 1 TOTO 1010 INPUTINPUT 按递增输入按递增输入 1010 个数个数 TOTO A I A I ENDFORENDFOR INPUTINPUT 输入待删除的数输入待删除的数 TOTO X X I 1I 1 J 1J 1 N 0N 0 DODO WHILEWHILE I 10I 10 IFIF A I XA I A J A I A J TEMP A I TEMP A I A I A J A I A J A J TEMPA J TEMP ENDIFENDIF ENDFORENDFOR ENDFORENDFOR FORFOR I 1I 1 TOTO 1010 A I A I ENDFORENDFOR 以上是一维数组 数组中只有一个下标 以上是一维数组 数组中只有一个下标 程序举例 在程序举例 在 VFPVFP 中 还可以建立二维数组 定义方法是 中 还可以建立二维数组 定义方法是 DIMEDIME A 2 3 A 2 3 第一维代表行 第二维代表列 这样就在内存中开辟了第一维代表行 第二维代表列 这样就在内存中开辟了 6 6 个连续的存储单元 数组元素的名个连续的存储单元 数组元素的名 称分别为 称分别为 A 1 1 A 1 1 A 1 2 A 1 2 A 1 3 A 1 3 A 2 1 A 2 1 A 2 2 A 2 2 A 2 3 A 2 3 二维数组的元素赋初值及其处理通常要用二重循环 外循环代二维数组的元素赋初值及其处理通常要用二重循环 外循环代 表行 内循环代表列 如 表行 内循环代表列 如 FORFOR I 1I 1 TOTO 2 2 FORFOR J 1J 1 TOTO 3 3 INPUTINPUT TOTO A I J A I J ENDFORENDFOR ENDFORENDFOR 二维数组特别适合用来解决矩阵问题 矩阵中有如下几个术语要掌握 行列相等的矩阵叫方二维数组特别适合用来解决矩阵问题 矩阵中有如下几个术语要掌握 行列相等的矩阵叫方 阵 方阵中有主对角线 辅对角线 下三角元素 外围元素等阵 方阵中有主对角线 辅对角线 下三角元素 外围元素等 1 1 建立一个六行六列的方阵 求出两条对角线上所有元素之和 建立一个六行六列的方阵 求出两条对角线上所有元素之和 DIMEDIME A 6 6 A 6 6 FORFOR I 1I 1 TOTO 6 6 FORFOR J 1J 1 TOTO 6 6 INPUTINPUT TOTO A I J A I J ENDFORENDFOR ENDFORENDFOR SUM 0SUM 0 FORFOR I 1I 1 TOTO 6 6 SUM A I I A I 7 I SUM A I I A I 7 I ENDFORENDFOR 两条对角线上所有元素之和为两条对角线上所有元素之和为 SUM SUM DIME A 6 6 FOR I 1 TO 6 FOR J 1 TO 6 A I J I J ENDFOR ENDFOR SUM 0 FOR I 1 TO 6 SUM A I I A I 7 I ENDFOR 两条对角线上所有元素之和为 SUM ZF 0ZF 0 SF 0SF 0 FORFOR I 1I 1 TOTO 6 6 FORFOR J 1J 1 TOTO 6 6 IFIF I JI J SZ SZ A I J SZ SZ A I J ENDIFENDIF IFIF I J 7I J 7 SF SF A I J SF SF A I J ENDIFENDIF ENDFORENDFOR ENDFORENDFOR 两条对角线上所有元素之和为两条对角线上所有元素之和为 SZ SF SZ SF 2 2 一个四行五列的矩阵 求出其中最大元素的值 以及所在的行号与列号 一个四行五列的矩阵 求出其中最大元素的值 以及所在的行号与列号 DIMEDIME A 4 5 A 4 5 FORFOR I 1I 1 TOTO 4 4 FORFOR J 1J 1 TOTO 5 5 INPUTINPUT TOTO A I J A I J ENDFORENDFOR ENDFORENDFOR BIG A 1 1 BIG A 1 1 ROW 1ROW 1 COL 1COL 1 FORFOR I 1I 1 TOTO 4 4 FORFOR J 1J 1 TOTO 5 5 IFIF A I J BIGA I J BIG BIG A I J BIG A I J ROW IROW I COL JCOL J ENDIFENDIF ENDFORENDFOR ENDFORENDFOR BIG BIG ROW ROW COLCOL 3 3 求两个矩阵之和 即求两个矩阵之和 即 C 3 4 A 3 4 B 3 4 C 3 4 A 3 4 B 3 4 DIMEDIME A 3 4 B 3 4 C 3 4 A 3 4 B 3 4 C 3 4 FORFOR I 1I 1 TOTO 3 3 FORFOR J 1J 1 TOTO 4 4 INPUTINPUT TOTO A I J A I J ENDFORENDFOR ENDFORENDFOR FORFOR I 1I 1 TOTO 3 3 FORFOR J 1J 1 TOTO 4 4 INPUTINPUT TOTO B I J B I J ENDFORENDFOR ENDFORENDFOR FORFOR I 1I 1 TOTO 3 3 FORFOR J 1J 1 TOTO 4 4 C I J A I J B I J C I J A I J B I J ENDFORENDFOR ENDFORENDFOR DIME A 3 4 B 3 4 C 3 4 FOR I 1 TO 3 FOR J 1 TO 4 INPUT TO A I J INPUT TO B I J C I J A I J B I J ENDFOR ENDFOR FOR I 1 TO 3 FOR J 1 TO 4 STR C I J 6 ENDFOR ENDFOR FORFOR I 1I 1 TOTO 3 3 FORFOR J 1J 1 TOTO 4 4 STR C I J 6 STR C I J 6 ENDFORENDFOR ENDFORENDFOR 判断类判断类 1 1 键盘输入一个年份 判断是平年还是闰年 键盘输入一个年份 判断是平年还是闰年 INPUTINPUT Enter Enter a a yearyear TOTO Y Y IFIF MOD Y 100 0MOD Y 100 0 ANDAND MOD Y 4 0MOD Y 4 0 OROR MOD Y 400 0MOD Y 400 0 Y is Y is a a leapleap year year ELSEELSE Y is Y is a a commoncommon year year ENDIFENDIF 2 2 从键盘输入一个整数 判断是偶数还是奇数 从键盘输入一个整数 判断是偶数还是奇数 INPUTINPUT 整数整数 TOTO X X IFIF MOD X 2 0MOD X 2 0 这是个偶数这是个偶数 ELSEELSE 这是个奇数这是个奇数 ENDIFENDIF 3 3 输入一个字符 判断是否为英文字母 输入一个字符 判断是否为英文字母 ACCEPTACCEPT 请输入一个字符 请输入一个字符 TOTO CHCH IFIF ASC CH 65ASC CH 65 ANDAND ASC CH 90ASC CH 97ASC CH 97 ANDAND ASC CH 122ASC CH 65ASC CH 65 ANDAND ASC CH 90ASC CH 48ASC CH 48 ANDAND ASC CH 57ASC CH 97ASC CH 97 ANDAND ASC CH 122ASC CH 0N 0 R MOD N 8 R MOD N 8 OCT OCT STR R 1 OCTSTR R 1 OCT N INT N 8 N INT N 8 ENDDOENDDO OCT OCT SETSET TALKTALK ONON CANCELCANCEL 4 4 从键盘输入一个二进制数 将其转换成等值的十进制数 从键盘输入一个二进制数 将其转换成等值的十进制数 S 0S 0 ACCEPTACCEPT ENTER ENTER A A BINARYBINARY NUMBER NUMBER TOTO N N L LEN N L LEN N FORFOR I 1I 1 TOTO L L S S VAL SUBSTR N I 1 2 L I S S VAL SUBSTR N I 1 2 L I ENDFORENDFOR 等值的十进制数等值的十进制数为为 S S 从键盘输入一个十进制数 将其转换成等值的二进制数 从键盘输入一个十进制数 将其转换成等值的二进制数 INPUTINPUT ENTER ENTER A A DECIMALDECIMAL NUMBER NUMBER TOTO N N BIN BIN IFIF N 0N 0 BIN 0 BIN 0 ENDIFENDIF DODO WHILEWHILE N 0N 0 R MOD N 2 R MOD N 2 BIN BIN STR R 1 BINSTR R 1 BIN N INT N 2 N INT N 2 ENDDOENDDO 等值的二进制数为等值的二进制数为 BIN BIN 真实情况类真实情况类 1 1 输入乘车的公里数 输出乘车费 计费标准 输入乘车的公里数 输出乘车费 计费标准 2 52 5 公里之内是公里之内是 6 6 元 元 2 52 5 公里以外 每超过公里以外 每超过 1 1 公里增加公里增加 1 1 元元 2 2 角 角 INPUTINPUT 输入公里数输入公里数 TOTO X X IFIF X 2 5X 2 5 PAY X 2 5 1 2 6PAY X 2 5 1 2 6 ELSEELSE PAY 6PAY 6 ENDIFENDIF 应付费应付费 PAY PAY 元元 2 2 6 6 设交纳所得税的规定如下 设交纳所得税的规定如下 DODO CASECASE 语句语句 收入收入 1500 1500 元元 免交所得税免交所得税 15001500 元元 收入收入 3000 3000 元元 所得税为所得税为 5 5 30003000 元元 收入收入 6000 6000 元所得税为元所得税为 8 8 60006000 元元 收入收入 10000 10000 元所得税为元所得税为 10 10 1000010000 元元 收入收入 5000050000 50000 元所得税为元所得税为 20 20 请编程 从键盘输入一个数 计算应交纳的所得税 请编程 从键盘输入一个数 计算应交纳的所得税 INPUTINPUT INCOME INCOME TOTO X X DODO CASECASE CASECASE X 1500 X 1500 TAX 0TAX 0 CASECASE X 3000X 3000 TAX X 1500 0 05TAX X 1500 0 05 CASECASE X 6000X 6000 TAX X 3000 0 08 3000 1500 0 05TAX X 3000 0 08 3000 1500 0 05 CASECASE X 10000X 10000 TAX X 6000 0 1 6000 3000 0 08 3000 1500 0 05TAX X 6000 0 1 6000 3000 0 08 3000 1500 0 05 CASECASE X 50000X 95FS 95 优秀优秀 CASECASE FS 85FS 85 很好很好 CASECASE FS 70FS 70 好好 CASECASE FS 60FS 60 一般一般 OTHERWISEOTHERWISE 不及格不及格 ENDCASEENDCASE 4 4 编写学生成绩统计程序 设有三位同学 考数学 物理 化学三门课 统计每个同学的总分和编写学生成绩统计程序 设有三位同学 考数学 物理 化学三门课 统计每个同学的总分和 平均分平均分 SETSET TALKTALK OFFOFF CLEARCLEAR DIMEDIME S 3 6 S 3 6 FORFOR I 1I 1 TOTO 3 3 FORFOR J 1J 1 TOTO 4 4 INPUTINPUT INPUT INPUT STUDENT NOSTUDENT NO ANDAND SCORE SCORE TOTO S I J S I J ENDFORENDFOR ENDFORENDFOR FORFOR I 1I 1 TOTO 3 3 S I 5 S I 2 S I 3 S I 4 S I 5 S I 2 S I 3 S I 4 S I 6 ROUND S I 5 3 1 S I 6 ROUND S I 5 3 1 ENDFORENDFOR SPACE 5 STUNO SPACE 4 MATH SPACE 4 PHY SPACE 5 CHE SPACE 4 SPACE 5 STUNO SPACE 4 MATH SPACE 4 PHY SPACE 5 CHE SPACE 4 TOTAL SPACE 5 AVER TOTAL SPACE 5 AVER FORFOR I 1I 1 TOTO 3 3 FORFOR J 1J 1 TOTO 6 6 S I J S I J ENDFORENDFOR ENDFORENDFOR SETSET TALKTALK ONON CANCELCANCEL 5 5 某班有某班有 4545 名参加考试的同学 现在要求从键盘输入全班一门课的成绩 输出该课程的平均分 名参加考试的同学 现在要求从键盘输入全班一门课的成绩 输出该课程的平均分 以及及格人数和半分比 以及及格人数和半分比 SUM 0SUM 0 N 1N 1 FORFOR I I 1 1 TOTO 4545 INPUT INPUT 全班一门课的成绩全班一门课的成绩 TOTO X X SUM SUM XSUM SUM X IFIF X 60X 60 N N 1N N 1 ENDIFENDIF ENDFORENDFOR 平均分平均分 SUM 45 SUM 45 几个人数几个人数 N N 合格率合格率 N 45 100 N 45 100 矩阵类矩阵类 1 1 建立一个五行五列的矩阵 求出外围所有元素之和 建立一个五行五列的矩阵 求出外围所有元素之和 DIMENSIONDIMENSION A 5 5 A 5 5 S 0S 0 S1 0S1 0 FORFOR I 1I 1 TOTO 5 5 FORFOR J 1J 1 TOTO 5 5 INPUTINPUT TOTO A I J A I J S S A I J S S A I J ENDFORENDFOR ENDFORENDFOR FORFOR I 2I 2 TOTO 4 4 FORFOR J 2J 2 TOTO 4 4 S1 S1 A I J S1 S1 A I J ENDFORENDFOR ENDFORENDFOR S S1 S S1 打印图形类打印图形类 1 1 打印如下图形打印如下图形 CLEARCLEAR FORFOR I 1I 1 TOTO 5 5 SPACE I SPACE I FORFOR J 1J 1 TOTO 5 5 ENDFORENDFOR ENDFORENDFOR 附 打印如下图形附 打印如下图形 FORFOR I 5I 5 TOTO 1 1 STEPSTEP 1 1 SPACE 5 I SPACE 5 I FORFOR J 1J 1 TOTO I I ENDFORENDFOR ENDFORENDFOR FORFOR I 2I 2 TOTO 5 5 SPACE 5 I SPACE 5 I FORFOR J 1J 1 TOTO I I ENDFORENDFOR ENDFORENDFOR 2 2 打印如下所示的九九乘法表打印如下所示的九九乘法表 clear clear forfor N 1N 1 TOTO 9 9 forfor M 1M 1 TOTO N N alltrim str N alltrim str M alltrim str N alltrim str M alltrim str N M space 5 alltrim str N M space 5 endforendfor EndforEndfor clear clear N 1N 1 DODO WHILEWHILE N 9N 9 M 1M 1 DODO WHILEWHILE M NM N alltrim str N alltrim str M alltrim str N alltrim str M alltrim str N M space 5 alltrim str N M space 5 M M 1M M 1 ENDDOENDDO N N 1N N 1 ENDDOENDDO 其他类其他类 1 1 输入两个数和一个运算符输入两个数和一个运算符 加 减 乘 除加 减 乘 除 求其值 例如 求其值 例如 输入输入 3 3 和和 5 5 以及以及 则输出则输出 1515 INPUTINPUT 输入一个数输入一个数 TOTO A A INPUTINPUT 输入另一个数输入另一个数 TOTO B B ACCEPTACCEPT 输入运算符输入运算符 TOTO CHCH DODO CASECASE CASECASE CH CH 两数之和为两数之和为 A B A B CASECASE CH CH 两数之差为两数之差为 A B A B CASECASE CH CH 两数之积为两数之积为 A B A B CASECASE CH CH 两数之商为两数之商为 A B A B OTHERWISEOTHERWISE 运算符有错运算符有错 ENDCASEENDCASE 2 2 输入一个正整数 分解出所有因子 如输入一个正整数 分解出所有因子 如 18 1 2 3 318 1 2 3 3 23 1 2323 1 23 INPUTINPUT 输入一个正整数输入一个正整数 TOTO N N N 1 N 1 I 2I 2 DODO WHILEWHILE I NI N IFIF MOD N I 0M