c语言小程序100个

				    题目76：已知数据文件IN.DAT中存有200个四位数, 并已调用读函数readDat()把这些数存入数组a中,请考生编制一函数jsVal(),其功能是: 把千位数字和个位数字重新组成一个新的十位数(新十位数的十位数字是原四位数的千位数字,新十位数的个位数字是原四位数的个位数字), 以及把十位数字和百位数字组成另一个新的十位数 (新十位数的十位数字是原四位数的百位数字,新十位数的个位数字是原四位数的十位数字), 如果新组成的两个十位数必须一个是奇数另一个是偶数，并且两个十位数中至少有一个能被17整除,同时两个新数的十位数字均不为零,则将满足此条件的四位数按从大到小的顺序存入数组b中, 并要计算满足上述条件的四位数的个数cnt。最后main()函数调用写函数writeDat( )把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。
				    注意: 部分源程序存在文件PROG1.C文件中。
				    程序中已定义数组: a[200], b[200], 已定义变量: cnt
				    请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDat()和写函数writeDat()的内容。
				-------------------------
				void jsVal() /*标准答案*/
				{int I,thou,hun,ten,data,j;
				int ab,cd;
				for(I=0;I				 {thou=a[I]/1000;  hun=a[I]%1000/100;
				  ten=a[I]%100/10;  data=a[I]%10;
				  ab=10*data+thou;  cd=10*hun+ten;
				  if ((ab%2!=1&&cd%2==1)||(ab%2==1&&cd%2!=1)&&(ab%17==0||cd%17==0)&&ab!=0&&cd!=0)
				  {b[cnt]=a[I];cnt++;}
				 }
				for(I=0;I				  for(j=I+1;j				   if(b[I]				    {data=b[I];b[I]=b[j];b[j]=data;}
				}