a = a + x NEXT j PRINT a
RESTORE L1 READ x, y b = x + y PRINT b RESTORE READ x, y, z c = x + y + z PRINT c READ z PRINT z
DATA 1,1,1 L1: DATA 2,2,2 DATA 3,3,3
END
78．阅读下面程序并写出输出结果。s = 2 i = 1
DO WHILE i <= 4 IF i MOD 2 <> 0 THEN s = s + i END IF i = i + 1 PRINT s LOOP PRINT END
79．阅读下面程序并写出输出结果。DECLARE SUB mult (x!, y!) a = 2: b = 2 CALL mult((a), b) PRINT \A=\; a; \,B=\; b END
运行结果： 运行结果： 运行结果： X= Y= A= B=
SUB mult (x, y) x = 2 * x y = 3 * y
PRINT \X=\; x; \,Y=\; y END SUB
80．数组a中存有n个由小到大顺序排列的整数，下面程序功能是实现将键盘输入的x值插入到数组中，并
使插入后数组的排列依然有序。请在相应横线上填空完成程序。 DECLARE SUB getarr (a!(), n!) DECLARE SUB outarr (a!(), n!) DECLARE SUB insert (a!(), n!, x!) DECLARE SUB insmove (a!(), n!, p!, x!) DIM a(1 TO 50) n = 10
CALL getarr(a(), n) CALL outarr(a(), n) INPUT \需插入元素的值：\x WHILE x > 0
CALL insert(a(), n, x) CALL outarr(a(), n) INPUT \需插入元素的值：\x WEND END
DATA 11,22,33,44,55,66,77,88,99,110,121,132,143,155,166,177,188,199,210 REM 获取数组中的各元素 SUB getarr (a(), n) FOR i = 1 TO n READ a(i) NEXT i END SUB
REM 插入数据到数组中 SUB insert (a(), n, x) i = 1
WHILE i = WEND
CALL insmove(a(), n, i, x) END SUB
REM 移动数组中的元素 SUB insmove (a(), n, p, x) FOR i =
NEXT i n = n + 1 a(p) = x END SUB
REM 输出数组的各元素 SUB outarr (a(), n) FOR i = 1 TO n PRINT a(i); NEXT PRINT END SUB
五、编程题（本大题共2题，每题15分，共30分）
81．试编制出租车收费程序并画流程图。程序根据出租车收费办法求出（计算）出租费用并将乘车里程数和
出租费用保存在顺序文件fee.dat中，其记录格式如表所示。设出租车的收费办法：乘车里程在3千米以内（含3千米）按8元收费；超过3千米，在5千米以内（含5千米），按1.0元/千米加收；超过5千米，按1.5元/千米加收。以乘车里程数6千米为例，将分成3段收取，即前3千米按8元收取，3～5千米之间的2千米按1.0元/千米加收2.0元，超过5千米后的1千米按1.5元/千米加收1.5元，合计费用为8+2.0+1.5=11.5元。
表 出租车收费记录
乘车（行驶）里程 出租费用 2.0 3.0 6.0 ?
7.0 7.0 11.5 ?
解：根据题意，设乘车里程为x千米，出租费用为s元，则实现程序如下： OPEN INPUT x DO UNTIL x < 0 y = 0 z = 0 s = 0
IF x > 5 THEN END IF IF x > 3 THEN
程序流程图：
打开fee.dat INPUT x x<0 y=0:z=0:s=0 END IF
IF x <> 0 THEN END IF INPUT x LOOP END
82．编制程序实现：输入n值后，则输出n行如下形式的杨辉三角形。以n=6为例，输出的形式为：
1 5 10 10 5 1 1 4 6 4 1 1 3 3 1 1 2 1 1 1 1
解：根据题意，程序如下：
六、计算作图题（本大题共5题，每题12分，共60分） 83．试用戴维南（宁）定理求图83电路中的电流I。
解：
写x,s到fee.dat 关闭fee.dat
84．图84电路中，已知US1=3V，US2=12V，US3=24V，R1=3?，R2=6?，R3=2?，R4=4?，试用回路电流法求解回
路电流I11、I22，流经R3的电流I3，及电压Umn。
解：
85．分析图85电路中，若已知R=10K?，C=0.2?F，Ui为10KHz的方波，试计算时间常数
?，脉冲宽度tP，判断该电路的性质，并画出输出电压Uo的波形。 解：
86．图86时序逻辑电路中，设触发器的初始状态均为0，输入A波形，试画出Q1、Q2的输出波形。