- 相關推薦
2016年計算機三級網絡上機題目
已知在文件IN.DAT中存有100個產品銷售記錄，每個產品銷售記錄由產品代碼dm(字符型4位)，產品名稱mc(字符型10位)，單價dj(整型)，數量sl(整型)，金額je(長整型)四部分組成。其中：金額=單價*數量計算得出。函數ReadDat()是讀取這100個銷售記錄并存入結構數組sell中。請編制函數SortDat()，其功能要求：按產品名稱從小到大進行排列, 若產品名稱相同, 則按金額從小到大進行排列.最終排列結果仍存入結構數組sell中，最后調用函數WriteDat()把結果輸出到文件OUT5.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].dm,sell[j].dm)<0)
{xy=sell[I];sell[I]=sell[j];sell[j]=xy;}
else if(strcmp(sell[I].dm,sell[j].dm)==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("OUT5.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
【計算機三級網絡上機題目】相關文章：
計算機三級網絡技術上機試題04-22
2016最新計算機三級網絡上機試題及答案01-31
計算機三級上機試題02-14
計算機三級網絡技術上機題庫及答案05-13
計算機三級上機試題05-20
計算機等級考試三級網絡技術上機題02-02
計算機三級網絡技術上機考試流程02-23
2017計算機三級網絡技術上機專項檢測08-01
2017計算機三級網絡技術上機特訓題08-13