2011年计算机等级三级数据库上机题及答案(13)

会计考友

　37.已知在文件IN.dat中存有100个产品销售记录，每个产品销售记录由产品代码code(字符型4位)、产品名称name(字符型10位)、单价uprice(整型)、数量amount(整型)、金额sum(长整型)5部分组成。其中：金额=单价×数量。函数RData()是读取这100个销售记录并存入结构数组sell中。请编写函数SortDat()，其功能是：按产品代码从小到大进行排列，若产品代码相同，则按金额从小到大进行排列，最终排列结果仍存入结构数组sell中。最后调用函数WData()，把结果输出到OUT.dat文件中。　　【答案】
　　void SortDat()
3 J# ]; G" M$ w& W3 C( M; F　　{ int i, j;
8 U) V; Z9 B) m7 {- L! M8 V' C　　PRO temp;
　　for (i=0; i sell[j].sum)
0 u; i, o3 j" _6 p. v3 B7 V　　{ temp = sell;
( G( l0 i( J! l& [4 l0 b9 X2 V' @$ T+ f　　sell = sell[j];
% y# q2 ~. S8 k. p5 i- @% E5 u　　sell[j] = temp;
: z3 l& P; r$ b0 j  a" H1 p; r! l　　}
' J5 L: [0 ^4 d3 y" k0 \( n　　}
! V3 @* D* S- L) h5 H  A* r　　}
' N# H! S+ z* d& Q　　38.已知在文件IN.dat中存有若干个(少于200个)四位数字的正整数，函数RData()读取若干个正整数并存入数组original中。请编写函数CalValue()，其功能要求是：①求出这个文件中共有多少个正整数totNum;②求这些数中的各位数字之和是偶数的数的个数totCnt，以及满足此条件的这些数的算术平均值totave。最后调用函数WData()把所求的结果输出到OUT.dat文件中。
( H! D5 A6 y+ J6 _3 A2 `　　【答案】
$ U3 W' u7 Q" v  P# A　　void CalValue(void)
　　{ int i, thou, hun, ten, data;
　　int ab;
　　long sum = 0;
　　for (i=0; i 0)
6 s6 I" A* q" T. t  }　　totNum++;
　　thou = original/1000;
7 v- i9 X  Y! M& I' r( @; {' U　　hun = original%1000/100;
% R* T+ k$ L* u  ]　　ten = original%100/10;
　　data = original%10;
6 p- H6 A% p, h  [7 o! d* c3 F　　ab = thou+hun+ten+data;
　　if (ab%2 == 0)
　　{ totCnt++;
　　sum = sum+original;
: [* _0 U3 A5 J" ?9 }2 n3 D　　}
　　}
# i8 m" f. m( F4 h3 D& f& b　　totave = (double)sum/totCnt;
8 c- |" P# c: i7 a5 Z) Z( _　　}
# }+ C- y& J9 }7 d; D! j& l  i2 J　　39.下列程序的功能是：计算出自然数SIX和NINE、它们满足的条件是SIX+SIX+SIX=NINE+NINE的个数cnt以及满足此条件所有的SIX与NINE的和sum，请编写函数countValue()实现程序的要求。最后调用函数WData()，把结果cnt和sum，输出到OUT.dat文件中。
　　其中的S、I、X、N、E各代表一个十进制数。
　　【答案】
　　void countValue()
　　{ int S, I, X, N, E;
　　int SIX, NINE;

( F' Z9 m+ _: [3 m% N0 q　　for (S=1; S