試題7：

機試時間：2006年9月23日，下午4：30
考號：116
題目：南開59題
題目59函數jsVal()，其功能是：把千位數字和十位數字重新組成一個新的十位數ab（新十位數的十位數字是原四位數的千位數字，新十位數的個位數字是原四位數的十位數字），以及把個位數字和百位數字組成另一個新的十位數cd（新十位數的十位數字是原四位數的個位數字，新十位數的個位數字是原四位數的百位數字），如果新組成的兩個十位數ab<cd，ab必須是奇數且不能被5整除，cd必須是偶數，同時兩個新數的十位數字均不為零，則將滿足此條件的四位數按從大到小的順序存入數組b中，并要計算滿足上述條件的四位數的個數cnt。
void jsVal()
{int i,thou,hun,ten,data,j;
int ab,cd;
for(i=0;i<MAX;i++)
  {thou=a/1000;  hun=a/100%10;
   ten=a%100/10; data=a%10;
   ab=10*thou+ten;  cd=10*data+hun;   if(((ab-cd)<0&&ab%2==1&&ab%5!=0)&&cd%2!=1&&ab>=10&&cd>=10)
     {b[cnt]=a;cnt++;}  }
for(i=0;i<cnt-1;i++)
   for(j=i+1;j<cnt;j++)
     if(b<b[j]) {data=b;b=b[j];b[j]=data;}}
（借用my0625的 ）

試題8：

機試時間：9月23日
機試試題：如下
　　已知數據文件 IN.DAT 中存有 200 個四位數，并已調用讀函數 readDat() 把這些數存入數組 a 中，請考生編制一函數 jsVal()，其功能是：把千位數字和十位數字重新組成一個新的含有兩位數字的數 ab（新數的十位數字是原四位數的千位數字，新數的個位數字是原四位數的十位數字），以及把個位數字和百位數字組成另一個新的兩位數字 cd（新數的十位數字是原四位數的個位數字，新數的個位數字是原四位數的百位數字），如果新組成的兩個數 ab-cd>=10 且 ab-cd<=20 且兩個數均是偶數，同時兩個數的十位數字均不能為零，則將滿足此條件的四位數按從大到小的順序存入數組 b 中，并要計算滿足上述條件的四位數的個數 cnt。最后 main() 函數調用寫函數 writeDat() 把結果 cnt 以及數組b中符合條件的四位數輸出到OUT.DAT文件中。
---------
網友填寫的jsVal()函數程序代碼如下：

void jsVal()
{ int i,j,maxnum,ab,cd,thou,hun,ten,data;
   for(i=0;i<MAX;i++)
    { thou=a/1000;
       hun=a%1000/100;
       ten=a%100/10;
       data=a%10;
       ab=thou*10+ten;
       cd=data*10+hun;
       if(ab-cd>=10&&ab-cd<=20&&ab%2==0&&cd%2==0&&thou!=0&&data!=0)
        { b[cnt]=a;cnt++;}
    }
for(i=0;i<cnt-1;i++)
  { for(j=i+1;j<cnt;j+=1)
      if(b<b[j])
        { maxnum=b[j];b[j]=b[ i ];b [ i ]=maxnum;}
  }
}

試題9：

機試時間：9月23日17:10
機試試題：南開

下列程序的功能是找出所有100以內（含100）滿足I，I+4，I+10都是素數的整數I（I+10也在100以內）的個數cnt以及這些I之和sum。請編寫函數countValue()實現程序要求的功能，最后調用函數writeDat()把結果cnt和sum輸出到文件out.dat中。

    部分源程序存在文件prog1.c中。

    請勿改動主函數main()和輸出數據函數writeDat()的內容。


答案內容:
void countValue()

{int i;

for(i=2;i<=90;i++)

   if(isPrime(i)&&isPrime(i+4)&&isPrime(i+10))

     {cnt++;sum+=i;}

}

isPrime函數已經給定~~~~~