if(b[I]>b[j])
{flag=b[I];b[I]=b[j];b[j]=flag;}
}
题目45:
已知数据文件IN.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中,请考生编制一函数jsVal(),其功能是:
依次从数组a中取出一个四位数,如果该数连续大于该四位数以前的5个数且该数是偶数,则统计出满足此条件的个数cnt,并把这些四位数按从大到小的顺序存入数组b中。
并要计算满足上述条件的四位数的个数cnt。
最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。
注意:
部分源程序存在文件PROG1.C文件中。
程序中已定义数组:
a[200],b[200],已定义变量:
cnt
请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDat()和写函数writeDat()的内容。
-------------------------
voidjsVal()/*标准答案*/
{intI,j,flag=0;
for(I=5;I{for(j=I-5;j
{if(a[I]>a[j])
flag=1;
elseflag=0;
if(a[I]%2!
=0)
flag=0;
if(flag==0)break;}
if(flag==1){b[cnt]=a[I];cnt++;}
}
for(I=0;Ifor(j=I+1;jif(b[I]
{flag=b[I];b[I]=b[j];b[j]=flag;}
}
题目46:
已知数据文件IN.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中,请考生编制一函数jsVal(),其功能是:
依次从数组a中取出一个四位数,如果该数连续大于该四位数以前的5个数且该数是奇数,但该数必须能被7整除。
则统计出满足此条件的个数cnt,并把这些四位数按从大到小的顺序存入数组b中。
并要计算满足上述条件的四位数的个数cnt。
最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。
注意:
部分源程序存在文件PROG1.C文件中。
程序中已定义数组:
a[200],b[200],已定义变量:
cnt
请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDat()和写函数writeDat()的内容。
-------------------------
voidjsVal()/*标准答案*/
{intI,j,flag=0;
for(I=5;I{for(j=I-5;j
{if(a[I]>a[j])
flag=1;
else{flag=0;break;}}
if(flag==1&&a[I]%2==1&&a[I]%7==0){b[cnt]=a[I];cnt++;}
}
for(I=0;Ifor(j=I+1;jif(b[I]
{flag=b[I];b[I]=b[j];b[j]=flag;}
}
题目51:
已知数据文件IN.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中,请考生编制一函数jsVal(),其功能是:
把千位数字和十位数字重新组成一个新的十位数(新十位数的十位数字是原四位数的千位数字,新十位数的个位数字是原四位数的十位数字),以及把个位数字和百位数字组成另一个新的十位数(新十位数的十位数字是原四位数的个位数字,新十位数的个位数字是原四位数的百位数字),如果新组成的两个十位数均是素数,同时两个新数的十位数字均不为零,则将满足此条件的四位数按从大到小的顺序存入数组b中,并要计算满足上述条件的四位数的个数cnt。
最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。
注意:
部分源程序存在文件PROG1.C文件中。
程序中已定义数组:
a[200],b[200],已定义变量:
cnt
请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDat()和写函数writeDat()的内容。
-------------------------
voidjsVal()/*标准答案*/
{intI,thou,hun,ten,data,j;
intab,cd;
for(I=0;I<200;I++)
{thou=a[I]/1000;hun=a[I]%1000/100;
ten=a[I]%100/10;data=a[I]%10;
ab=10*thou+ten;cd=10*data+hun;
if(isprime(ab)&&isprime(cd)&&ab!
=0&&cd!
=0)
{b[cnt]=a[I];cnt++;}
}
for(I=0;Ifor(j=I+1;jif(b[I]
{data=b[I];b[I]=b[j];b[j]=data;}
}
题目52:
已知数据文件IN.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中,请考生编制一函数jsVal(),其功能是:
把千位数字和个位数字重新组成一个新的十位数(新十位数的十位数字是原四位数的千位数字,新十位数的个位数字是原四位数的个位数字),以及把十位数字和百位数字组成另一个新的十位数(新十位数的十位数字是原四位数的百位数字,新十位数的个位数字是原四位数的十位数字),如果新组成的两个十位数均是奇数并且两个十位数中至少有一个能被5整除,同时两个新数的十位数字均不为零,则将满足此条件的四位数按从大到小的顺序存入数组b中,并要计算满足上述条件的四位数的个数cnt。
最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。
注意:
部分源程序存在文件PROG1.C文件中。
程序中已定义数组:
a[200],b[200],已定义变量:
cnt
请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDat()和写函数writeDat()的内容。
-------------------------
voidjsVal()/*标准答案*/
{intI,thou,hun,ten,data,j;
intab,cd;
for(I=0;I<200;I++)
{thou=a[I]/1000;
hun=a[I]%1000/100;
ten=a[I]%100/10;
data=a[I]%10;
ab=10*thou+data;
cd=10*hun+ten;
if(ab%2==1&&cd%2==1&&(ab%5==0||cd%5==0)&&ab!
=0&&cd!
=0)
{b[cnt]=a[I];cnt++;}
}
for(I=0;Ifor(j=I+1;jif(b[I]
{data=b[I];b[I]=b[j];b[j]=data;}
}
题目59:
已知数据文件IN.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中,请考生编制一函数jsVal(),其功能是:
把千位数字和十位数字重新组成一个新的十位数ab(新十位数的十位数字是原四位数的千位数字,新十位数的个位数字是原四位数的十位数字),以及把个位数字和百位数字组成另一个新的十位数cd(新十位数的十位数字是原四位数的个位数字,新十位数的个位数字是原四位数的百位数字),如果新组成的两个十位数ab最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。
注意:
部分源程序存在文件PROG1.C文件中。
程序中已定义数组:
a[200],b[200],已定义变量:
cnt
请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDat()和写函数writeDat()的内容。
-------------------------
voidjsVal()/*标准答案*/
{intI,thou,hun,ten,data,j;
intab,cd;
for(I=0;I<200;I++)
{thou=a[I]/1000;hun=a[I]%1000/100;
ten=a[I]%100/10;data=a[I]%10;
ab=10*thou+ten;cd=10*data+hun;
if(((ab-cd)<0&&ab%2==1&&ab%5!
=0)&&cd%2!
=1&&ab!
=0&&cd!
=0)
{b[cnt]=a[I];cnt++;}
}
for(I=0;Ifor(j=I+1;jif(b[I]
{data=b[I];b[I]=b[j];b[j]=data;}
}
题目68:
已知数据文件IN.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中,请考生编制一函数jsVal(),其功能是:
如果四位数各位上的数字均是奇数,则统计出满足此条件的个数cnt,并把这些四位数按从大到小的顺序存入数组b中。
最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。
注意:
部分源程序存在文件PROG1.C文件中。
程序中已定义数组:
a[200],b[200],已定义变量:
cnt
请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDat()和写函数writeDat()的内容。
-------------------------
voidjsVal()/*标准答案*/
voidjsVal()
{
intI,thou,hun,ten,data,j;
for(I=0;I<200;I++)
{thou=a[I]/1000;hun=a[I]%1000/100;
ten=a[I]%100/10;data=a[I]%10;
if(thou%2!
=0&&hun%2!
=0&&ten%2!
=0&&data%2!
=0)
{b[cnt]=a[I];cnt++;}
}
for(I=0;Ifor(j=I+1;jif(b[I]
{data=b[I];b[I]=b[j];b[j]=data;}
}
题目69:
已知数据文件IN.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中,请考生编制一函数jsVal(),其功能是:
若一个四位数的千位数字上的值减去百位数字上的值减去十位数字上的值再减去个位数字上的值,并且此四位数是奇数,则统计出满足此条件的个数cnt,并把这些四位数按从小到大的顺序存入数组b中。
最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。
注意:
部分源程序存在文件PROG1.C文件中。
程序中已定义数组:
a[200],b[200],已定义变量:
cnt
请勿改动主函数main()、读函数readDat()和写函数writeDat()的内容。
-------------------------
voidjsVal()/*标准答案*/
{intI,thou,hun,ten,data,j;
for(I=0;I{thou=a[I]/1000;hun=a[I]%1000/100;
ten=a[I]%100/10;data