编程题资料(附答案).doc

1 已知已知 ABC 的两条边和夹角 的两条边和夹角 A 3 0 B 4 0 C 600 求三角形的面积 求三角形的面积 A 3 B 4 C PI 3 AREA A B SIN C 2 AREA AREA 2 键盘输入一个大写字母 要求输出它的键盘输入一个大写字母 要求输出它的 ASCII 码及其对应的小写字母码及其对应的小写字母 INPUT 输入一个大写字母 TO CH CH 的 ASCII 码为 ASC CH CH 对应的小写字母为 CHR ASC CH 32 3 求两个电阻求两个电阻 R1 3 R2 6 的串联值和并联值的串联值和并联值 R1 3 R2 6 RS R1 R2 RP 1 1 R1 1 R2 串联等效电阻为 RS 欧姆 并联等效电阻为 RP 欧姆 4 设某工厂设某工厂 20042004 年的产量为年的产量为 100100 若年增长率为 若年增长率为 5 5 则到 则到 20102010 年的产量是多少 年的产量是多少 到 2010 年的年产量为 100 1 0 05 2010 2006 5 5 输入两个数和一个运算符输入两个数和一个运算符 加 减 乘 除加 减 乘 除 求其值 例如 求其值 例如 输入输入 3 3 和和 5 5 以及以及 则输出则输出 1515 INPUT 输入一个数 TO A INPUT 输入另一个数 TO B INPUT 输入运算符 TO CH DO CASE CASE CH 两数之和为 A B CASE CH 两数之差为 A B CASE CH 两数之积为 A B CASE CH 两数之商为 A B OTHERWISE 运算符有错 ENDCASE 6 设交纳所得税的规定如下 设交纳所得税的规定如下 收入收入 1500 1500 元元 免交所得税免交所得税 15001500 元元 收入收入 3000 3000 元元 所得税为所得税为 5 5 30003000 元元 收入收入 6000 6000 元所得税为元所得税为 8 8 60006000 元元 收入收入 10000 10000 元所得税为元所得税为 10 10 1000010000 元元 收入收入 5000050000 50000 元所得税为元所得税为 20 20 请编程 从键盘输入一个数 计算应交纳的所得税 请编程 从键盘输入一个数 计算应交纳的所得税 INPUT INCOME TO X DO CASE CASE X 1500 TAX 0 CASE X 3000 TAX X 1500 0 05 CASE X 6000 TAX X 3000 0 08 3000 1500 0 05 CASE X 10000 TAX X 6000 0 1 6000 3000 0 08 3000 1500 0 05 CASE X0 Y X X ELSE IF X 0 Y 0 ELSE Y X X ENDIF ENDIF Y 8 8 求求 33333 217531 SUM 0 FOR I 1 TO 21 STEP 2 SUM SUM I 3 ENDFOR SUM SUM 9 通过键盘输入一串字符 统计并输出其中英文字母的个数 通过键盘输入一串字符 统计并输出其中英文字母的个数 INPUT 输入一个字符串 TO S L LEN S N 0 FOR I 1 TO L CH SUBSTR S I 1 IF CH A AND CH a AND CH0 R MOD N 8 OCT STR R 1 OCT N INT N 8 ENDDO OCT SET TALK ON 16 16 打印如下图形打印如下图形 CLEAR FOR I 1 TO 5 SPACE I FOR J 1 TO 5 ENDFOR ENDFOR 附 打印如下图形附 打印如下图形 FOR I 5 TO 1 STEP 1 SPACE 5 I FOR J 1 TO I ENDFOR ENDFOR FOR I 2 TO 5 SPACE 5 I FOR J 1 TO I ENDFOR ENDFOR 17 从键盘输入从键盘输入 10 个数 将其按输入的反序输出 并求出它们的平均值个数 将其按输入的反序输出 并求出它们的平均值 DIMENSION A 10 S 0 FOR I 1 TO 10 INPUT TO A I S S A I ENDFOR FOR I 10 TO 1 STEP 1 A I ENDFOR 平均值为 S 10 18 编写学生成绩统计程序 设有三位同学 考数学 物理 化学三门课 统计每个同学的总分和平均分编写学生成绩统计程序 设有三位同学 考数学 物理 化学三门课 统计每个同学的总分和平均分 CLEAR SET TALK OFF DIME S 3 6 FOR I 1 TO 3 FOR J 1 TO 4 INPUT INPUT STUDENT NO AND SCORE TO S I J ENDFOR ENDFOR FOR I 1 TO 3 S I 5 S I 2 S I 3 S I 4 S I 6 ROUND S I 5 3 1 ENDFOR SPACE 5 STUNO SPACE 4 MATH SPACE 4 PHY SPACE 5 CHE SPACE 4 TOTAL SPACE 5 AVER FOR I 1 TO 3 FOR J 1 TO 6 S I J ENDFOR ENDFOR SET TALK ON 19 求求 ex的台劳级数展开式的前的台劳级数展开式的前 n 项之和项之和 运行时输入运行时输入 x 2 0 n 4 1 3 2 1 132 n xxx xe n x INPUT X TO X INPUT N TO N SUM 1 P 1 FOR I 1 TO N 1 P P I T X I P SUM SUM T ENDFOR SUM SUM 20 已有按从小到大的顺序排列的已有按从小到大的顺序排列的 10 个数 现输入一个数 要求插入到数列中 插入后数列仍然按从小到大个数 现输入一个数 要求插入到数列中 插入后数列仍然按从小到大 顺序排列 顺序排列 方法一 DIMENSION A 11 FOR I 1 TO 10 INPUT 递增输入 10 个整数 TO A I ENDFOR INPUT 任意输入一个整数 TO X FOR I 10 TO 1 STEP 1 IF XA J T A I A I A J A J T ENDIF ENDFOR ENDFOR FOR I 1 TO 11 A I ENDFOR RETURN 方法三 DIME A 11 FOR I 1 TO 10 INPUT TO A I ENDFOR INPUT TO