2016年計算機網絡三級上機試題
已知在文件IN.DAT中存有100個產品銷售記錄，每個產品銷售記錄由產品代碼dm(字符型4位)，產品名稱mc(字符型10位)，單價dj(整型)，數量sl(整型)，金額je(長整型)四部分組成。其中：金額=單價*數量計算得出。函數ReadDat()是讀取這100個銷售記錄并存入結構數組sell中。請編制函數SortDat()，其功能要求：按產品代碼從小到大進行排列，若產品代碼相同，則按金額從大到小進行排列，最終排列結果仍存入結構數組sell中，最后調用函數WriteDat()把結果輸出到文件OUT6.DAT中。
注意: 部分源程序存放在PROG1.C中。
請勿改動主函數main( )、讀數據函數ReadDat()和輸出數據函數WriteDat()的內容。
----------------------------------
#include
#include
#include
#include
#include
#define MAX 100
typedef struct{
char dm[5]; /*產品代碼*/
char mc[11]; /*產品名稱*/
int dj; /*單價*/
int sl; /*數量*/
long je; /*金額*/
}PRO;
PRO sell[MAX];
void ReadDat();
void WriteDat();
void SortDat()
{int I,j;
PRO xy;
for(I=0;I<99;I++)
for(j=I+1;j<100;j++)
if(strcmp(sell[I].mc,sell[j].mc)>0)
{xy=sell[I]; sell [I]=sell[j]; sell[j]=xy;}
else if(strcmp(sell[I].mc,sell[j].mc)==0)
if(sell[I].je
{xy=sell[I]; sell[I]=sell[j]; sell[j]=xy;}
}
void main()
{ memset(sell,0,sizeof(sell));
ReadDat();
SortDat();
WriteDat(); }
void ReadDat()
{FILE *fp;
char str[80],ch[11];
int i;
fp=fopen("IN.DAT","r");
for(i=0;i<100;i++){
fgets(str,80,fp);
memcpy(sell[i].dm,str,4);
memcpy(sell[i].mc,str+4,10);
memcpy(ch,str+14,4);ch[4]=0;
sell[i].dj=atoi(ch);
memcpy(ch,str+18,5);ch[5]=0;
sell[i].sl=atoi(ch);
sell[i].je=(long)sell[i].dj*sell[i].sl;}
fclose(fp);}
void WriteDat(void)
{FILE *fp;
int i;
fp=fopen("OUT6.DAT","w");
for(i=0;i<100;i++){
fprintf(fp,"%s %s %4d %5d %101d\n", sell[i].dm,sell[i].mc,sell[i].dj,sell[i].sl,sell[i].je);}
fclose(fp);}
IN.DAT
1001軟件世界 5 100
1002計算機用戶 6 120
1003網上生活 27 1
1004網絡互連 45 10
1005威寶3.5 5 1000
10063M3.5 3 150
1007辦公自動化 90 100
1008JAVA 48 15
1009中文WORD97 68 10
1010EXCLE97 98 103
1011OFFICE97 108 18
1012ACCESS 64 78
1013二級BASIC 65 66
1014二級PASCAL 66 89
1015二級C 67 99
1016二級FOR 66 12
1017二級FOX 66 100
1018AUTO CAD 98 871
1019PhotoShop 68 64
1020一級 78 101
1021一級B類 98 1000
1022三級A類 78 765
1023三級B類 78 888
1024四級 88 666
1025INTERNET 58 1858
1001軟件世界 5 101
1002計算機用戶 6 120
1003網上生活 27 31
1004網絡互連 45 1000
1005威寶3.5 5 5001
10063M3.5 3 300
1007辦公自動化 90 871
1008JAVA 48 888
1009中文WORD97 68 999
1010EXCLE97 98 981
1011OFFICE97 108 18
1012ACCESS 64 78
1013二級BASIC 65 166
1014二級PASCAL 66 189
1015二級C 67 199
1016二級FOR 66 112
1017二級FOX 66 2000
1018AUTO CAD 98 71
1019PhotoShop 68 164
1020一級 78 110
1021一級B類 98 1100
1022三級A類 78 705
1023三級B類 78 888
1024四級 88 650
1025INTERNET 58 2858
1001軟件世界 5 102
1002計算機用戶 6 121
1003網上生活 27 11
1004網絡互連 45 20
1005威寶3.5 5 1300
10063M3.5 3 250
1007辦公自動化 90 130
1008JAVA 48 115
1009中文WORD97 68 20
1010EXCLE97 98 203
1011OFFICE97 108 818
1012ACCESS 64 178
1013二級BASIC 65 166
1014二級PASCAL 66 289
1015二級C 67 899
1016二級FOR 66 112
1017二級FOX 66 500
1018AUTO CAD 98 71
1019PhotoShop 68 4
1020一級 78 181
1021一級B類 98 1500
1022三級A類 78 65
1023三級B類 78 88
1024四級 88 66
1025INTERNET 58 858
1001軟件世界 5 200
1002計算機用戶 6 220
1003網上生活 27 21
1004網絡互連 45 30
1005威寶3.5 5 1050
10063M3.5 3 150
1007辦公自動化 90 100
1008JAVA 48 15
1009中文WORD97 68 10
1010EXCLE97 98 103
1011OFFICE97 108 18
1012ACCESS 64 78
1013二級BASIC 65 66
1014二級PASCAL 66 89
1015二級C 67 99
1016二級FOR 66 12
1017二級FOX 66 600
1018AUTO CAD 98 971
1019PhotoShop 68 164
1020一級 78 701
1021一級B類 98 8899
1022三級A類 78 115
1023三級B類 78 118
1024四級 88 116
1025INTERNET 58 58
OUT.DAT
【計算機網絡三級上機試題】相關文章：
計算機網絡三級上機考試題及答案07-04
計算機三級上機試題02-14
計算機三級上機試題05-20
9月三級Access上機試題及答案06-03
2017年計算機網絡三級上機考試題及答案06-12
計算機三級Access上機試題及答案07-01
三級信息安全技術上機模擬試題201704-01
計算機三級網絡技術上機試題04-22
2016最新三級網絡技術上機試題及答案02-20