三级网络技术南开上机100题答案

1、题目1:下列程序的功能是：将大于整数nfi紧靠mB勺k个素数存入数组xx。请编写函数num(intm,intk,intxx)实现函数的要求，最后调用函数readwriteDAT()把结果输出到文件out.dat中。标准答案*/intdata=m+1;inthalf,n=0,I;while(1)half=data/2;for(I=2;I<=half;I+)if(data%I=0)break;if(I>half)xxn=data;n+;if(n>=k)break;data+;题目2:已知数据文件IN.DAT中存有200个四位数，并已调用读函数readDat()把这些数存入数组a中

2、,请考生编制一函数jsVal(),其功能是:如果四位数各位上的数字均是0或2或4或6或8,则统计出满足此条件的个数cnt,并把这些四位数按从大到小的顺序存入数组b中。最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DA戊件中。voidjsVal()/*标准答案*/intbb4;intI,j,k,flag;for(I=0;I<200;I+)bb0=aI/1000;bb1=aI%1000/100;bb2=aI%100/10;bb3=aI%10;for(j=0;j<4;j+)if(bbj%2=0)flag=1;elseflag=0;

3、break;if(flag=1)bcnt=aI;cnt+;for(I=0;Ifor(j=I+1;jif(bIk=bI;bI=bj;bj=k;题目3:函数READDAT()实现从文件IN.DAT中读取一篇英文文章存入到字符串数组XX中；请编制函数STROR(),其函数功能是：以行为单位把字符串中的所有小写字母值边的字符串内容移到该串的右边存放，然后并把小写字母删除，余下的字符串内容移到已处理字符串的左边存放.最后把已处理的字符串仍按行重新存入字符串数组XX中,最后调用函数WRITEDAT()把结果XX输出到文件OUT.DA伸.voidStrOR(void)/*标准答案*/intI,j,k,ind

4、ex,strl;charch;for(I=0;Istrl=strlen(xxI);index=strl;for(j=0;jif(xxIj='o')for(k=j;kxxIk=xxIk+1;xxIstrl-1=''index=j;for(j=strl-1;j>=index;j-)ch=xxIstrl-1;for(k=strl-1;k>0;k-)xxIk=xxIk-1;xxI0=ch;题目4:函数ReadDat()实现从文件IN.DAT中读取一篇英文文章存入到字符串数组xx中；请编制函数StrOL(),其函数的功能是:以行为单位对行中以空格或标点符号为分

5、隔的所有单词进行倒排，同时去除标点符号，之后把已处理的字符串(应不含标点符号)仍按行重新存入字符串数组xx中。最后main()函数调用函数WriteDat()把结果xx输出到文件OUT6.DA种。voidStrOL(void)/*标准答案*/intI,j,k,strl,l;charc;for(I=0;Ifor(j=0;jc=xxIj;if(c>='A'&&c<='Z')|(c>='a'&&c<='z')|c='');elsexxIj=''for

6、(l=0;lcharch80=0;charpp80=0;strl=strlen(xxl);I=strl-1;k=1;while(1)while(xxlI>='a'&&xxlI<='z')|(xxlI>='A'&&xxlI<='z')&&I>=0)for(j=k;j>=0;j-)ppj+1=ppj;pp0=xxlI;k+;I-;strcat(ch,pp);strcpy(pp,"""");k=1;if(I=-1)

7、break;while(xxlI<'A'|xxlI>'z')&&I>=0)for(j=k;j>=0;j-)ppj+1=ppj;pp0=xxlI;k+;I-;strcat(ch,pp);strcpy(pp,"""");k=0;if(I=-1)break;strcpy(xxl,ch);题目5：在文件in.dat中有200个正整数，且每个数均在1000至9999之间。函数ReadDat()读取这200个数存放到数组aa中。请编制函数jsSort()，其函数的功能是：要求按每个数的后三位的大

8、小进行升序排列，然后取出满足此条件的前10个数依次存入数组b中，如果后三位的数值相等，则按原先的数值进行降序排列。最后调用函数WriteDat()把结果bb输出到文件out.dat中。voidjsSort()/*标准答案*/intI,j,data;for(I=0;I<199;I+)for(j=I+1;j<200;j+)if(aaI%1000>aaj%1000)data=aaI;aaI=aaj;aaj=data;elseif(aaI%1000=aaj%1000)if(aaIdata=aaI;aaI=aaj;aaj=data;for(I=0;I<10;I+)bbI=aaI;

9、题目6：在文件in.dat中有200个正整数，且每个数均在1000至9999之间。函数ReadDat()读取这200个数存放到数组aa中。请编制函数jsSort()，其函数的功能是：要求按每个数的后三位的大小进行降序排列，然后取出满足此条件的前10个数依次存入数组b中，如果后三位的数值相等，则按原先的数值进行升序排列。最后调用函数WriteDat()把结果bb输出到文件out.dat中。voidjsSort()/*标准答案*/intI,j,data;for(I=0;I<199;I+)for(j=I+1;j<200;j+)if(aaI%1000data=aaI;aaI=aaj;aaj

10、=data;elseif(aaI%1000=aaj%1000)if(aaI>aaj)data=aaI;aaI=aaj;aaj=data;for(I=0;I<10;I+)bbI=aaI;题目7:已知在文件IN.DAT中存有100个产品销售记录，每个产品销售记录由产品代码dm(字符型4位)，产品名称mc(字符型10位)，单价dj(整型)，数量sl(整型)，金额je(长整型)四部分组成。其中：金额=单价*数量计算得出。函数ReadDat()是读取这100个销售记录并存入结构数组sell中。请编制函数SortDat()，其功能要求：按产品代码从大到小进行排列，若产品代码相同，则按金额从大到

11、小进行排列，最终排列结果仍存入结构数组sell中，最后调用函数WriteDat()把结果输出到文件OUT10.DATKvoidSortDat()/*标准答案*/intI,j;PROxy;for(I=0;I<99;I+)for(j=I+1;j<100;j+)if(strcmp(sellI.dm,sellj.dm)<0)xy=sellI;sellI=sellj;sellj=xy;elseif(strcmp(sellI.dm,sellj.dm)=0)if(sellI.jexy=sellI;sellI=sellj;sellj=xy;题目8:函数ReadDat()实现从文件ENG.IN

12、中读取一篇英文文章，存入到字符串数组xx中；请编制函数encryptChar()，按给定的替代关系对数组xx中的所有字符进行替代，仍存入数组xx的对应的位置上，最后调用函数WriteDat()把结果xx输出到文件PS1.DA神。替代关系：f(p)=p*11mod256(p是数组中某一个字符的ASCII值，f(p)是计算后新字符的ASCII值)，如果计算后f(p)值小于等于32或大于130，则该字符不变，否则将f(p)所对应的字符进行替代。voidencryptChar()/*标准答案*/intI;char*pf;for(I=0;Ipf=xxI;while(*pf!=0)if(*pf*11%25

13、6>130|*pf*11%256<=32);else*pf=*pf*11%256;pf+;9题目：题目9:函数ReadDat()实现从文件IN.DAT中读取一篇英文文章存入到字符串数组xx中；请编制函数SortCharD(),其函数的功能是:以行为单位对字符按从大到小的顺序进行排序,排序后的结果仍按行重新存入字符串数组xx中。最后main()函数调用函数WriteDat()把结果xx输出到文件OUT2.DATKvoidSortCharD(void)/*标准答案*/intI,j,k,strl;charch;for(I=0;Istrl=strlen(xxI);for(j=0;jfor(

14、k=j+1;kif(xxIjch=xxIj;xxIj=xxIk;xxIk=ch;题目10：请编制函数ConvertCharA(),其函数的功能是:以行为单位把字符串中的所有小写字母改写成该字母的下一个字母，如果是字母z,则改写成字母a,大写字母和其它字符保持不变。把已处理的字符串仍按行重新存入字符串数组xx中。最后main()函数调用函数WriteDat()把结果xx输出至ij文件OUT3.DATKvoidConvertCharA(void)/*标准答案*/intI,j,str;for(I=0;Istr=strlen(xxI);for(j=0;jif(xxIj='z')xxIj

15、='a'elseif(xxIj>='a'&&xxIj<='y')xxIj+=1;题目11:下列程序的功能是：把s字符串中的所有字母改写成该字母的下一个字符，字母z改写成字母a。要求大写字母仍为大写字母，小写字母仍为小写字母，其他字符不做改变。请编写函数chg(char*s)实现程序的要求，最后调用函数readwriteDat()把结果输出到文件out.dat中。voidchg(char*s)/*标准答案*/while(*s)if(*s='z'|*s='Z')*s-=25;s+;elsei

16、f(*s>='a'&&*s<='y')*s+=1;s+;elseif(*s>='A'&&*s<='Y')*s+=1;s+;elses+;或者：voidchg(char*s)inti,k;k=strlen(s);for(i=0;iif(si='z'|si='Z')si-=25;elseif(isalpha(si)si+;题目12:已知在文件IN.DAT中存有100个产品销售记录，每个产品销售记录由产品代码dm(字符型4位)，产品名称mc(字符型1

17、0位)，单价dj(整型)，数量sl(整型)，金额je(长整型)四部分组成。其中：金额=单价*数量计算得出。函数ReadDat()是读取这100个销售记录并存入结构数组sell中。请编制函数SortDat()，其功能要求：按产品名称从小到大进行排列,若产品名称相同,则按金额从小到大进行排列.最终排列结果仍存入结构数组sell中，最后调用函数WriteDat()把结果输出到文件OUT5.DATKvoidSortDat()/*标准答案*/intI,j;PROxy;for(I=0;I<99;I+)for(j=I+1;j<100;j+)if(strcmp(sellI.dm,sellj.dm)

18、<0)xy=sellI;sellI=sellj;sellj=xy;elseif(strcmp(sellI.dm,sellj.dm)=0)if(sellI.jexy=sellI;sellI=sellj;sellj=xy;题目13:已知在文件IN.DAT中存有100个产品销售记录，每个产品销售记录由产品代码dm(字符型4位)，产品名称mc(字符型10位)，单价dj(整型)，数量sl(整型)，金额je(长整型)四部分组成。其中：金额=单价*数量计算得出。函数ReadDat()是读取这100个销售记录并存入结构数组sell中。请编制函数SortDat()，其功能要求：按产品代码从小到大进行排列，

19、若产品代码相同，则按金额从大到小进行排列，最终排列结果仍存入结构数组sell中，最后调用函数WriteDat()把结果输出到文件OUT6.DATKvoidSortDat()/*标准答案*/intI,j;PROxy;for(I=0;I<99;I+)for(j=I+1;j<100;j+)if(strcmp(sellI.mc,sellj.mc)>0)xy=sellI;sellI=sellj;sellj=xy;elseif(strcmp(sellI.mc,sellj.mc)=0)if(sellI.jexy=sellI;sellI=sellj;sellj=xy;题目14：已知数据文件I

20、N.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中，请考生编制一函数jsVal(),其功能是：依次从数组a中取出一个四位数，如果该数连续大于该四位数以后的5个数且该数是奇数，则统计出满足此条件的个数cnt,并把这些四位数按从小到大的顺序存入数组b中。并要计算满足上述条件的四位数的个数cnto最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DA戊件中。voidjsVal()/*标准答案*/intI,j,flag=0;intk;for(I=0;Ifor(j=I+1;j<=I+5;j+)if(aI>

21、aj)flag=1;elseflag=0;break;if(aI%2=0)flag=0;if(flag=1)bcnt=aI;cnt+;for(I=0;Ifor(j=I+1;jif(bI>bj)k=bI;bI=bj;bj=k;题目15：已知数据文件IN.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中,请考生编制一函数jsVal(),其功能是:若一个四位数的千位数字上的值小于等于百位数字上的值，百位数字上的值小于等于十位数字上的值，十位数字上的值小于等于个位数字上的值，并且此四位数是偶数，则统计出满足此条件的个数cnt,并把这些四位数按从大到小的顺序存入数组

22、b中。最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DA攻件中。voidjsVal()/*标准答案*/intI,j;inta1,a2,a3,a4,k;for(I=0;Ia1=aI/1000;a2=aI%1000/100;a3=aI%100/10;a4=aI%10;if(a1<=a2)&&(a2<=a3)&&(a3<=a4)&&(aI%2=0)bcnt=aI;cnt+;for(I=0;Ifor(j=I+1;jif(bI>bj)k=bI;bI=bj;bj=k;1题目：题

23、目16：函数ReadDat()实现从文件IN.DAT中读取一篇英文文章存入到字符串数组xx中，请编制函数StrCharJR()，其函数的功能是：以行为单位把字符串中所有字符的ASCII值右移4位，然后把右移后的字符ASCII值再加上原字符的ASCII值，得到新的字符仍存入原字符串对应的位置上。最后把已处理的字符串仍按行重新存入字符串数组xx中，最后调用函数writeDat()把结果xx输出到文件OUT8.DATK原始数据文件存放的格式是：每行的宽度均小于80个字符，含标点符号和空格。voidStrCharJR(void)/*标准答案*/intI,j,strl;for(I=0;Istrl=str

24、len(xxI);for(j=0;jxxIj+=xxIj>>4;题目17:函数READDAT()实现从文件IN.DAT中读取一篇英文文章存入到字符串数组XX中；请编制函数CHA(),其函数功能是:以行为单位把字符串中的第一个字符的ASCII值加第二个字符的ASCII值，得到第一个亲朋字符，第二个字符的ASCII值加第三个字符的ASCII值，得到第二个新字符，依此类推一直处理到最后第二个字符，最后一个字符的ASCII值加原第一个字符的ASCII值，得到最后一个新的字符，得到的新字符分别存放在原字符串对应的位置上。最后把已处理的字符串逆转后按行重新存入字符串数组XX中，最后调用函数WR

25、ITEDAT()把结果XXB出到文件OUT9.DA件.原始数据文件存放的格式是:每行的宽度均小于80个字符,含标点符号和空格.voidChA(void)/*标准答案*/intI,j,k,str;charch;for(I=0;Istr=strlen(xxI);ch=xxI0;for(j=0;jxxIj+=xxIj+1;xxIstr-1+=ch;for(j=0,k=str-1;jch=xxIj;xxIj=xxIk;xxIk=ch;voidChA(void)inti,j;charp,c;for(i=0;ip=xxi0;c=xxistrlen(xxi)-1;for(j=0;jxxij+=xxij+1;

26、xxistrlen(xxi)-1=p+c;strrev(xxi);题目18:函数ReadDat()实现从文件ENG.IN中读取一篇英文文章，存入到字符串数组xx中；请编制函数encryptChar()，按给定的替代关系对数组xx中的所有字符进行替代，仍存入数组xx的对应的位置上，最后调用函数WriteDat()把结果xx输出到文件PS10.DAT中。替代关系：f(p)=p*11mod256(p是数组中某一个字符的ASCII值，f(p)是计算后新字符的ASCII值)，如果原字符的ASCII值是偶数或计算后f(p)值小于等于32，则该字符不变，否则将f(p)所对应的字符进行替代。voidencry

27、ptChar()/*标准答案*/intI;char*pf;for(I=0;Ipf=xxI;while(*pf!=0)if(*pf%2=0|*pf*11%256<=32);else*pf=*pf*11%256;pf+;题目19：编写一个函数findstr(),该函数统计一个长度为2的子字符串在另一个字符串中出现的次数。例如：假定输入的字符串为"asdasasdfgasdaszx67asdmklo",子字符串为"as"，函数返回值为6。函数readwriteDat()的功能是实现从文件in.dat中读取两个字符穿4，并调用函数findstr()，最后把

28、结果输出到文件out.dat中。/*标准答案*/intfindStr(char*str,char*substr)intn;char*p,*r;n=0;while(*str)p=str;r=substr;while(*r)if(*r=*p)r+;p+;elsebreak;if(*r='0')n+;str+;returnn;题目20：编写函数jsvalue，它的功能是：求Fibonacci数列中大于t的最小的一个数，结果由函数返回。其中Fibonacci数列F(n)的定义为：F(0)=0,F(1)=1F(n)=F(n-1)+F(n-2)最后调用函数writeDat()读取10个数据

29、t，分别得出结果且把结果输出到文件out.dat中。intjsValue(intt)/*标准答案*/intf1=0,f2=1,fn;fn=f1+f2;while(fn<=t)f1=f2;f2=fn;fn=f1+f2;returnfn;题目21：下列程序的功能是：利用发下所示的简单迭代方法求方程：cos(x)-x=0的一个实根。xn+1=cos(xn)floatcountValue()/*标准答案*/floatx0,x1=0.0;while(1)x0=x1;x1=cos(x0);if(fabs(x0-x1)<1e-6)break;returnx1;题目22:请编写函数countval

30、ue(),它的功能是：求n以内(不包括n)同时能被3和7整数的所有自然数之和的平方根s，并作为函数值返回，最后结果s输出到文件out.dat中。doublecountValue(intn)/*标准答案*/doublexy=0.0;intI;for(I=1;Iif(I%3=0&&I%7=0)xy+=I;xy=sqrt(double)xy);returnxy;doublecountvalue(intn)inti,j=0;doublek;for(i=0;iif(i%3=0&&i%7=0)j+=i;k=sqrt(j);returnk;题目23:已知在文件in.dat中存

31、有N个(个数<200)四位数字的正整数，函数readdat()读取这心正整数并存入数组xx中。请编制函数calvalue(),其功能要求：1、求出这Nl实数的平均值aver；2、分别求出这Nl实数的整数部分之和sumint以及小数部分之和sumdec,最后调用函数writedat()把所求的结果输出到文件out.dat中。voidCalValue(void)/*标准答案*/intI;doublex,sum=0;for(I=0;Isumint=sumint+(int)xxI;x=xxI-(int)xxI;sumdec=sumdec+x;sum=sum+xxI;aver=sum/MAXNUM

32、;题目24：在三位整数(100至999)中寻找符合条件的整数并依次从小到大存入数组中；它既是完全平方数，又是两位数字相同，例如144、676等。请编制函数实现此功能，满足该条件的整数的个数通过所编制的函数返回。最后调用函数writeDat()把结果输出到文件out.dat中。jsValue(inta109)/*标准答案*/intI,j,k=0;inthun,ten,data;for(I=100;I<=999;I+)j=10;while(j*j<=I)if(I=j*j)hun=I/100;data=I-hun*100;ten=data/10;data=data-ten*10;if(h

33、un=ten|hun=data|ten=data)bbk=I;k+;j+;returnk;题目25:下列程序的功能是：寻找并输出11至999之间的数m,它?足m,m环口m3匀为回文数。所谓回文数是指其各位数字左右对称的整数，例如121，676，94249等。满足上述条件的数如m=11,m2=121,m3=1331皆为回文数。请编制函数intsvalue(longm)实现此功能，如果是回文数，则函数返回1，反之则返回0。最后把结果输出到文件out.dat中。intjsValue(longn)/*标准答案*/intI,strl,half;charxy20;ltoa(n,xy,10);strl=st

34、rlen(xy);half=strl/2;for(I=0;Iif(xyI!=xy-strl)break;if(I>=half)return1;elsereturn0;题目26:已知在文件in.dat中存有若干个(个数<200)四位数字的正整数，函数readdat()读取这若干个正整数并存入数组xx中。请编制函数calvalue(),其功能要求：1、求出这文件C.P有多少个正整数totnum；2、求这些数右移1位后，产生的新数是偶数的数的个数totcnt，以及满足此条件的这些数(右移前的值)的算术平均值totpjz，最后调用函数writedat()把所求的结果输出到文件out.dat

35、中。voidCalValue(void)/*标准答案*/intI,data;for(I=0;Iif(!xxI)break;if(xxI>0)totNum+;data=xxI>>1;if(data%2=0)totCnt+;totPjz+=xxI;totPjz/=totCnt;题目27：已知数据文件IN.DAT中存有300个四位数，并已调用读函数ReadDat()把这些数存入数组a中，请编制一函数jsvalue()，其功能是：求出千位数上的数减百位数减十位数上的数减个位数上的数大于零的个数cnt，再求出所有满足此条件的四位数平均值pjz1，以及不满足此条件的四位数平均值pjz2,

36、最后调用写函数writeDat()把结果输出到OUT.DA戊件。例如：9123,9-1-2-3>0,则该数满足条件计算平均值pjz1，且个数cnt=cnt+1。9812,9-8-1-2<0,则该数不满足条件计算平均值pjz2.voidjsValue()/*标准答案*/intI,thou,hun,ten,data,j;for(I=0;I<300;I+)thou=aI/1000;hun=aI%1000/100;ten=aI%100/10;data=aI%10;if(thou-hun-ten-data>0)bcnt=aI;cnt+;for(I=0;Ifor(j=I+1;jif

37、(bI>bj)data=bI;bI=bj;bj=data;题目28：已知数据文件IN.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中，请考生编制一函数jsVal(),其功能是：把千位数字和十位数字重新组成一个新的十位数ab(新十位数的十位数字是原四位数的千位数字,新十位数的个位数字是原四位数的十位数字),以及把个位数字和百位数字组成另一个新的十位数cd(新十位数的十位数字是原四位数的个位数字,新十位数的个位数字是原四位数的百位数字),如果新组成的两个十位数ab-cd>=0且ab-cd<=10且两个数均是奇数,同时两个新数的十位数字均不为零,则

38、将满足此条件的四位数按从大到小的顺序存入数组b中,并要计算满足上述条件的四位数的个数cnt。最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DA戊件中。voidjsVal()/*标准答案*/intI,thou,hun,ten,data,j;intab,cd;for(I=0;I<200;I+)thou=aI/1000;hun=aI%1000/100;ten=aI%100/10;data=aI%10;ab=10*thou+ten;cd=10*data+hun;if(ab-cd)>=0&&(ab-cd)<=10

39、&&ab%2=1&&cd%2=1&&ab!=0&&cd!=0)bcnt=aI;cnt+;for(I=0;Ifor(j=I+1;jif(bIdata=bI;bI=bj;bj=data;题目29：已知数据文件IN.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中，请考生编制一函数jsVal(),其功能是：把千位数字和十位数字重新组成一个新的十位数ab(新十位数的十位数字是原四位数的千位数字,新十位数的个位数字是原四位数的十位数字),以及把个位数字和百位数字组成另一个新的十位数cd(新十位数的十位数字是原

40、四位数的个位数字,新十位数的个位数字是原四位数的百位数字),如果新组成的两个十位数ab-cd>=10且ab-cd<=20且两个数均是偶数,同时两个新数的十位数字均不为零,则将满足此条件的四位数按从大到小的顺序存入数组b中,并要计算满足上述条件的四位数的个数cnt。最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DA戊件中。voidjsVal()/*标准答案*/intI,thou,hun,ten,data,j;intab,cd;for(I=0;I<200;I+)thou=aI/1000;hun=aI%1000/100;te

41、n=aI%100/10;data=aI%10;ab=10*thou+ten;cd=10*data+hun;if(ab-cd)>=0&&(ab-cd)<=10&&ab%2=1&&cd%2=1&&ab!=0&&cd!=0)bcnt=aI;cnt+;for(I=0;Ifor(j=I+1;jif(bIdata=bI;bI=bj;bj=data;题目30：已知数据文件IN.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中，请考生编制一函数jsVal(),其功能是：依次从数组a中取出

42、一个四位数，如果该数连续小于该四位数以后的5个数且该数是偶数，则统计出满足此条件的个数cnt,并把这些四位数按从小到大的顺序存入数组b中。并要计算满足上述条件的四位数的个数cnto最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DA戊件中。voidjsVal()/*标准答案*/intI,j,flag=0;for(I=0;Ifor(j=I+1;j<=I+5;j+)if(aIflag=1;elseflag=0;if(aI%2!=0)flag=0;if(flag=0)break;if(flag=1)bcnt=aI;cnt+;for(I=0

43、;Ifor(j=I+1;jif(bI>bj)flag=bI;bI=bj;bj=flag;题目31:已知在文件IN.DAT中存有100个产品销售记录，每个产品销售记录由产品代码dm(字符型4位)，产品名称mc(字符型10位)，单价dj(整型)，数量sl(整型)，金额je(长整型)四部分组成。其中：金额=单价*数量计算得出。函数ReadDat()是读取这100个销售记录并存入结构数组sell中。请编制函数SortDat()，其功能要求：按产品代码从大到小进行排列，若产品代码相同，则按金额从大到小进行排列，最终排列结果仍存入结构数组sell中，最后调用函数WriteDat()把结果输出到文件O

44、UT6.DATKvoidSortDat()/*标准答案*/intI,j;PROxy;for(I=0;I<99;I+)for(j=I+1;j<100;j+)if(sellI.jexy=sellI;sellI=sellj;sellj=xy;elseif(sellI.je=sellj.je)if(strcmp(sellI.dm,sellj.dm)<0)xy=sellI;sellI=sellj;sellj=xy;题目32:已知在文件IN.DAT中存有100个产品销售记录，每个产品销售记录由产品代码dm(字符型4位)，产品名称mc(字符型10位)，单价dj(整型)，数量sl(整型)，金

45、额je(长整型)四部分组成。其中：金额=单价*数量计算得出。函数ReadDat()是读取这100个销售记录并存入结构数组sell中。请编制函数SortDat()，其功能要求：按产品名称从大到小进行排列,若产品名称相同,则按金额从小到大进行排列.最终排列结果仍存入结构数组sell中，最后调用函数WriteDat()把结果输出到文件OUT7.DATKvoidSortDat()/*标准答案*/intI,j;PROxy;for(I=0;Ifor(j=I+1;jif(strcmp(sellI.mc,sellj.mc)<0)xy=sellI;sellI=sellj;sellj=xy;elseif(s

46、trcmp(sellI.mc,sellj.mc)=0)if(sellI.je>sellj.je)xy=sellI;sellI=sellj;sellj=xy;题目33:请编制函数ReadDat()实现从文件IN.DAT中读取1000个十进制整数到数组xx中；请编制函数Compute。分别计算出xx中奇数的个数odd,奇数的平均值avel,偶数的平均值ave2以及所有奇数的方差totfc的值，最后调用函数WriteDat()把结果输出到OUT.DA戊件中。计算方差的公式如下：totfc=1/NE(xxi-ave1)2intReadDat(void)/*标准答案*/FILE*fp;intI,j

47、;if(fp=fopen(""IN.DAT"",""r"")=NULL)return1;for(I=0;I<100;I+)for(j=0;j<10;j+)fscanf(fp,""%d,"",&xxI*10+j);fscanf(fp,""'n"");if(feof(fp)break;fclose(fp);return0;voidCompute(void)intI,yyMAX;for(I=0;I<1000;

48、I+)if(xxI%2)odd+;ave1+=xxI;elseeven+;ave2+=xxI;yyeven-1=xxI;ave1/=odd;ave2/=even;for(I=0;Itotfc+=(yyI-ave2)*(yyI-ave2)/even;题目34：下列程序的功能是：选取出100以上1000以内所有个位数字与十位数字之和被10除所得余数恰是百位数字的素数(如293)。计算并输出上述这些素数的个数CNTX及这些素数值的和SUM请编写函数COUNTvalue()实现程序要求，最后调用函数WRITEDAT)把结果CN而SUM!出到文件OUT.DAT中.voidcountValue()/*标准

49、答案*/intI,j,half,hun,ten,data;for(I=101;I<1000;I+)hun=I/100;ten=I%100/10;data=I%10;if(hun=(ten+data)%10)half=I/2;for(j=2;jif(I%j=0)break;if(j>=half)cnt+;sum+=I;题目35：某级数的前两项A1=1,A2=1，以后各项具有如下关系：An=An-2+2An-1.下列程序的功能是：要求依次对于整数M=100,1000和10000求出对应的n值，使其满足：Sn=M,这里Sn=A1+A2+.+An，并依次把n值存入数组单元b0,b1和b2中

50、，请编制jsvalue()函数来实现此功能，最后调用函数writeDat()把数组b口中的值输出到out.dat文件中。voidjsvalue()/*标准答案*/inta1=1,a2=1,n=1,an;intsum0,sum;sum0=a1+a2;while(1)an=a1+a2*2;sum=sum0+an;a1=a2;a2=an;n+;if(sum0<100&&sum>100)b0=n;if(sum0<1000&&sum>1000)b1=n;if(sum0<10000&&sum>10000)b2=n;brea

51、k;sum0=sum;jsvalue()inta1=1,a2=1,a12,sn,k=2;sn=a1+a2;while(1)a12=a1+2*a2;if(sn<100&&sn+a12>=100)b0=k;if(sn<1000&&sn+a12>=1000)b1=k;if(sn<10000&&sn+a12>=10000)b2=k;break;sn=sn+a12;a1=a2;a2=a12;k+;题目36:函数ReadDat()实现从文件ENG.IN中读取一篇英文文章，存入到字符串数组xx中；请编制函数encryptCh

52、ar()，按给定的替代关系对数组xx中的所有字符进行替代，仍存入数组xx的对应的位置上，最后调用函数WriteDat()把结果xx输出到文件PS6.DAT中。替代关系：f(p)=p*11mod256(p是数组中某一个字符的ASCII值，f(p)是计算后新字符的ASCII值)，如果计算后f(p)值小于等于32或f(p)对应的字符是数字0至9,则该字符不变，否则将f(p)所对应的字符进行替代。voidencryptChar()/*标准答案*/intI;char*pf;for(I=0;Ipf=xxI;while(*pf!=0)if(*pf*11%256>='0'&&am

53、p;*pf*11%256<='9')|*pf*11%256<=32)pf+;continue;*pf=*pf*11%256;pf+;题目37:函数ReadDat()实现从文件ENG.IN中读取一篇英文文章，存入到字符串数组xx中；请编制函数encryptChar()，按给定的替代关系对数组xx中的所有字符进行替代，仍存入数组xx的对应的位置上，最后调用函数WriteDat()把结果xx输出到文件PS6.DAT中。替代关系：f(p)=p*11mod256(p是数组中某一个字符的ASCII值，f(p)是计算后新字符的ASCII值)，如果原字符是大写字母或计算后f(p)值

54、小于等于32，则该字符不变，否则将f(p)所对应的字符进行替代。voidencryptChar()/*标准答案*/intI;char*pf;for(I=0;Ipf=xxI;while(*pf!=0)if(*pf>='A'&&*pf<='Z')|*pf*11%256<=32)pf+;continue;*pf=*pf*11%256;pf+;题目38:已知在文件IN.DAT中存有100个产品销售记录，每个产品销售记录由产品代码dm(字符型4位)，产品名称mc(字符型10位)，单价dj(整型)，数量sl(整型)，金额je(长整型)四部分

55、组成。其中：金额=单价*数量计算得出。函数ReadDat()是读取这100个销售记录并存入结构数组sell中。请编制函数SortDat()，其功能要求：按产品代码从小到大进行排列,若产品代码相同,则按金额从小到大进行排列.最终排列结果仍存入结构数组sell中，最后调用函数WriteDat()把结果输出到文件OUT9.DATK注意：部分源程序存放在PROG1.CK请勿改动主函数main()、读数据函数ReadDat()和输出数据函数WriteDat()的内容。voidSortDat()/*标准答案*/intI,j;PROxy;for(I=0;Ifor(j=I+1;jif(strcmp(sellI.dm,sellj.dm)>0)xy=sellI;sellI=sellj;sellj=xy;elseif(strcmp(sellI.dm,sellj.dm)=0)if(sellI.je>sellj.je)xy=sellI;sellI=sellj;sellj=xy;FILE*fp;inti;fp=fopen("OUT9.DAT","w");for(i=0;i<100;i+)