已知在文件IN6.DAT中存有100个产品销售记录，每个产品销售记录由产品代码dm(字符型4位)、产品名称mc(字符型10位)、单价dj(整型)、数量s1(整型)、金额je(长整型)五部分组成。其中：金额＝单价×数量。函数ReadDat()的功能是读取这100个销售记录并存入结构数组sell中。请编制函数SortDat()，其功能要求：按产品代码从小到大进行排列，若产品代码相同，则按金额从小到大进行排列，最终排列结果仍存入结构数组sell中，最后调用函数WriteDat()把结果输出到文件OUT6.DAT中。
注意：部分源程序已给出。请勿改动主函数main()、读数据函数ReadDat()和输出数据函数WriteDat()的内容。
[试题程序]
#include
#Include
#include
#include
#include
#define MAX 100
typedef struct
char dm[5] /*产品代码*/
char mc[11]; /*产品名称*/
int dj; /*单价*/
int s1; /*数量*/
long je;/*金额*/
PRO;
PRO sell[MAX];
void ReadDat();
void WriteDat();
void SortDat()



void main()

memset(sell,0,sizeof(sell));
ReadDat();
SorrDat();
WriteDat();

void ReadDat()

FILE *fp;
char str[80],ch[11];
int i;
fp=fopen("IN6.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].s1=atoi(ch);
sell[i].je=(long)sell[i].dj*sell[i].s1;

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].s1,sell[i].je);
fclose(fp);

膨胀土场地进行岩土工程勘察时，下述说法中正确的是（）。

A.勘探点中采取试样的勘探点数不应小于全部勘探点的1／2

B.勘探孔深度应满足附加应力影响深度及大气影响深度，且最小不应小于8.0m

C.采取土试样的级别为Ⅱ～Ⅲ级

D.大气影响深度以内取样间距不得大于1.0m