VB计算机二级.doc

PAGE  PAGE 31 题目1：下列程序的功能是：将大于整数m且紧靠m的k个素数存入数组xx。请编写函数num(int m,int k,int xx[])实现函数的要求 ，最后调用函数readwriteDAT()把结果输出到文件out.dat中。 例如：若输入17，5，则应输出：19，23，29，31，37。 类型：素数。 void num(int m,int k,int xx[]) /*标准答案*/ { int data=m+1; int half,n=0,I; while(1) { half=data/2; for(I=2;I=half;I++) if(data%I==0) break; if(Ihalf) {xx[n]=data;n++;} if(n=k) break; data++; } } 题目2：已知数据文件IN.DAT中存有200个四位数, 并已调用读函数readDat()把这些数存入数组a中,请考生编制一函数jsVal(),其功能是: 如果四位数各位上的数字均是0或2或4或6或8, 则统计出满足此条件的个数cnt, 并把这些四位数按从大到小的顺序存入数组b中。最后main()函数调用写函数writeDat( )把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。 注意: 程序中已定义数组: a[200], b[200], 已定义变量: cnt void jsVal() /*标准答案*/ { int bb[4]; int I,j,k,flag; for (I=0;I200;I++) {bb[0]=a[I]/1000; bb[1]=a[I]%1000/100; bb[2]=a[I]%100/10; bb[3]=a[I]%10; for (j=0;j4;j++) {if (bb[j]%2==0) flag=1; else {flag=0;break;} } if (flag==1) { b[cnt]=a[I];cnt++;} } for(I=0;Icnt-1;I++) for(j=I+1;jcnt;j++) if (b[I]b[j]) {k=b[I];b[I]=b[j];b[j]=k;} } 题目3：函数READDAT（）实现从文件IN.DAT中读取一篇英文文章存入到字符串数组XX中;请编制函数STROR(),其函数功能是:以行为单位把字符串中的所有小写字母O左边的字符串内容移到该串的右边存放,然后并把小写字母O删除,余下的字符串内容移到已处理字符串的左边存放.最后把已处理的字符串仍按行重新存入字符串数组XX中,最后调用函数WRITEDAT()把结果XX输出到文件OUT.DAT中. 例如 :原文:You can create an index on any field. you have the correct record. 结果: n any field.You can create an index rd.yu have the crrect rec 原始数据文件存放的格式是:每行的宽度均小于80个字符,含标点符号和空格. 类型：字符串（单词）的倒置和删除。 void StrOR(void) /*标准答案*/ {int I,j,k,index,strl; char ch; for(I=0;Imaxline;I++) {strl=strlen(xx[I]); index=strl; for(j=0;jstrl;j++) if(xx[I][j]==o) {for(k=j;kstrl-1;k++) xx[I][k]=xx[I][k+1]; xx[I][strl-1]= ; index=j;} for(j=strl-1;j=index;j--) {ch=xx[I][strl-1]; for(k=strl-1;k0;k--) xx[I][k]=xx[I][k-1]; xx[I][0]=ch;} }} 题目4：函数ReadDat( )实现从文件IN.DAT中读取一篇英文文章存入到字符串数组xx中; 请编制函数StrOL( ), 其函数的功能是: 以行为单位对行中以空格或标点符号为分隔的所有单词进行倒排，同时去除标点符号，之后把已处理的字符串(应不含标点符号)仍按行重新存入字符串数组xx中。最后main()函数调用函数WriteDat()把结果xx输出到文件OUT6.D