已知在文件IN.DAT中存有100个产品销售记录,每个产品销售记录由产品代码dm(字符型4位)、产品名称mc
已知在文件IN.DAT中存有100个产品销售记录,每个产品销售记录由产品代码dm(字符型4位)、产品名称mc (字符型10位)、单价dj(整型)、数量s1(整型)、金额je(长整型)五部分组成。其中:金额=单价*数量计算得出。函数ReadDat()是读取这100个销售记录并存入结构数组sell中。请编制函数SortDat(),其功能要求:按产品代码从大到小进行排列,若产品代码相同,则按金额从大到小进行排列,最终排列结果仍存入结构数组sell中,最后调用函数WritcDat()把结果输出到文件OUT8.DAT中。
部分源程序已给出。
请勿改动主函数main()、读数据函数ReadDat()和输出数据函数WriteDat()的内容。
include<stdio.h>
include<mem.h>
include<string.h>
include<conio.h>
$include<stdlib.h>
$define MAX 100
typedef struct{
char dm[5]; /*产品代码*/
char mc[ll]; /*产品名称*/
iht dj; /*单价*/
int sl; /*数量*/
long je; /*金额*/
}PRO;
PRO sell[MAX];
void ReadDat();
void WriteDat();
void SortDat ()
{
void main ()
{
memset(sell,0,sizeof(sell));
ReadDat();
SortDat();
WriteDat();
}
void ReadDat()
{
FILE *fp;
char str[80],ch[ll];
int i;
fp=fopen("IN.DAT","r");
for(i=0;i<100;i++){
fgets(str, 80,fp);
memcpy(setl[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+lS,5);ch[5]=0;
sell[i].sl=atoi(ch);
sell[i].je=(long)sell[i].dj*sell[i].s1;
}
fclose(fp);
}
void WriteDat(void)
{
FILE *fp;
int i;
fp=fopen("OUT8.DAT","w");
for(i=0;i<100;i++){
fprintf(fp,"%s%s%4d %5d %10Ld\n", sell[i].dm, sell[i].mc,sell[i].dj,
sell[i].sl,sell[i].je);
}
fclose(fp);
}
void SortDat() { int i,j; PRO swap; for(i=0;iMAX-1;i++) for(j=i+1;jMAX;j++) /*根据题目要求进行结构体比较*/ if((strcmp(sell[i].dm,sell[j],dm)0 || strcmp(sell[i].dm, sell[j].dm)==0)&&sell[i].jesell[j].je) { /*结构体赋值,sell[i]中始终保存第i轮扫描的当前最小记录*/ swap=sell [i]; sell [i]=sell [j]; sell [j]=swap; } } 解析:类型:结构体排序。
关键点:结构体比较和排序。
与整数排序类似,只是进行结构体计算、比较和赋值。
油品计量中,若油品质量单位为吨(t)时,则有效数字应保留至小数点后( )。A.四位B.三位C.二位D 职业技能鉴定 2020-05-31 …
成品油计量中,若油品密度单位为kg/m3时,则有效数字应保留至小数点后 ( )。A.四位B.三位C. 职业技能鉴定 2020-05-31 …
劳动生产率提高以后,在单位时间内生产的商品数量提高了,而从价值量考察则a.单位商品价值降低,总价值 政治 2020-07-31 …
劳动生产率和商品价值量的相互关系是()A.劳动生产率与单位商品价值量成正比B.劳动生产率与单位商品价 其他 2020-10-30 …
跪求生产运运作的答案.设A,B,C,D四种产品.其计划年产量和各产品的单位产品台时定额如下:产品A, 数学 2020-11-06 …
同一劳动在同一时间内,当部门劳动生产率提高时()A单位商品价值量降低B商品的使用价值量增加C单位商品 其他 2020-11-21 …
哪位好心人帮我做做西方经济学作业题1.平均收益是指()A.厂商销售一定产品所得的全部收入B.每增加一 其他 2020-11-30 …
小鼠品系众多,是遗传学研究的常用材料.下图是某品系小鼠(2N=40)的某些基因在染色体上的排列情况. 语文 2020-12-14 …
小鼠品系众多,是遗传学研究的常用材料.下图是某品系小鼠(2N=40)的某些基因在染色体上的排列情况. 语文 2020-12-14 …
小鼠品系众多,是遗传学研究的常用材料.某品系小鼠(2N=40)的成年鼠的体重由位于常染色体上三对独立 语文 2020-12-25 …