2009年全國計算機等級三級網絡技術上機練習習題(89)

第89套上機考試試題
    已知數據文件IN.dat中存有200個四位數，并已調用讀函數RData()把這些數存入數組a中，請編寫函數CalVal()，其功能是：若一個陰位數的千位數字上的值大于等于百位數字上的值，百位數字上的值大于等于十位數字上的值，以及十位數字上的值大于等于個位數字上二的值，并且原四位數是奇數，則統計出滿足此條件的個數count并把這些陰位數按從小到大的順序存入數組b中。最后調用寫函數WData()，把結果count以及數組b中符合條件的數輸出到0UT.dat文什中。
    注意：部分源程序已經給出。程序巾已定義數組a[200]、b[200]，已定義變量count。請勿改動數據文件IN.dat中的任何數據及主函數main()、讀函數RData()和寫函數WData()的內容。