95以上优秀c语言程序,全国计算机等级考试二级C语言程序设计实战(95)

全国计算机等级考试二级C语言程序设计实战(95)来源：转载发布时间：2012-01-03

题目：家庭财务管理小程序

1.程序分析：

2.程序源代码：

/*money management system*/

#include "stdio.h"

#include "dos.h"

main()

{

FILE *fp;

struct date d;

float sum,chm=0.0;

int len,i,j=0;

int c;

char ch[4]="",ch1[16]="",chtime[12]="",chshop[16],chmoney[8];

pp: clrscr();

sum=0.0;

gotoxy(1,1);printf("|---------------------------------------------------------------------------|");

gotoxy(1,2);printf("| money management system(C1.0) 2000.03 |");

gotoxy(1,3);printf("|---------------------------------------------------------------------------|");

gotoxy(1,4);printf("| -- money records -- | -- today cost list -- |");

gotoxy(1,5);printf("| ------------------------ |-------------------------------------|");

gotoxy(1,6);printf("| date: -------------- | |");

gotoxy(1,7);printf("| | | | |");

gotoxy(1,8);printf("| -------------- | |");

gotoxy(1,9);printf("| thgs: ------------------ | |");

gotoxy(1,10);printf("| | | | |");

gotoxy(1,11);printf("| ------------------ | |");

gotoxy(1,12);printf("| cost: ---------- | |");

gotoxy(1,13);printf("| | | | |");

gotoxy(1,14);printf("| ---------- | |");

gotoxy(1,15);printf("| | |");

gotoxy(1,16);printf("| | |");

gotoxy(1,17);printf("| | |");

gotoxy(1,18);printf("| | |");

gotoxy(1,19);printf("| | |");

gotoxy(1,20);printf("| | |");

gotoxy(1,21);printf("| | |");

gotoxy(1,22);printf("| | |");

gotoxy(1,23);printf("|---------------------------------------------------------------------------|");

i=0;

getdate(&d);

sprintf(chtime,"%4d.%02d.%02d",d.da_year,d.da_mon,d.da_day);

for(;;)

{

gotoxy(3,24);printf(" Tab __browse cost list Esc __quit");

gotoxy(13,10);printf(" ");

gotoxy(13,13);printf(" ");

gotoxy(13,7);printf("%s",chtime);

j=18;

ch[0]=getch();

if(ch[0]==27)

break;

strcpy(chshop,"");

strcpy(chmoney,"");

if(ch[0]==9)

{

mm:i=0;

fp=fopen("home.dat","r+");

gotoxy(3,24);printf(" ");

gotoxy(6,4);printf(" list records ");

gotoxy(1,5);printf("|-------------------------------------|");

gotoxy(41,4);printf(" ");

gotoxy(41,5);printf(" |");

while(fscanf(fp,"%10s%14s%f\n",chtime,chshop,&chm)!=EOF)

{ if(i==36)

{ getch();

i=0;} 来源:-计算机二级考试 [NextPage]

if ((i%36)<17)

{ gotoxy(4,6+i);

printf(" ");

gotoxy(4,6+i);}

else

if((i%36)>16)

{ gotoxy(41,4+i-17);

printf(" ");

gotoxy(42,4+i-17);}

i++;

sum=sum+chm;

printf("%10s %-14s %6.1f\n",chtime,chshop,chm);}

gotoxy(1,23);printf("|---------------------------------------------------------------------------|");

gotoxy(1,24);printf("| |");

gotoxy(1,25);printf("|---------------------------------------------------------------------------|");

gotoxy(10,24);printf("total is %8.1f$",sum);

fclose(fp);

gotoxy(49,24);printf("press any key to.....");getch();goto pp;

}

else

{

while(ch[0]!='\r')

{ if(j<10)

{ strncat(chtime,ch,1);

j++;}

if(ch[0]==8)

{

len=strlen(chtime)-1;

if(j>15)

{ len=len+1; j=11;}

strcpy(ch1,"");

j=j-2;

strncat(ch1,chtime,len);

strcpy(chtime,"");

strncat(chtime,ch1,len-1);

gotoxy(13,7);printf(" ");}

gotoxy(13,7);printf("%s",chtime);ch[0]=getch();

if(ch[0]==9)

goto mm;

if(ch[0]==27)

exit(1);

}

gotoxy(3,24);printf(" ");

gotoxy(13,10);

j=0;

ch[0]=getch();

while(ch[0]!='\r')

{ if (j<14)

{ strncat(chshop,ch,1);

j++;}

if(ch[0]==8)

{ len=strlen(chshop)-1;

strcpy(ch1,"");

j=j-2;

strncat(ch1,chshop,len);

strcpy(chshop,"");

strncat(chshop,ch1,len-1);

gotoxy(13,10);printf(" ");}

gotoxy(13,10);printf("%s",chshop);ch[0]=getch();}

gotoxy(13,13);

j=0;

ch[0]=getch();

while(ch[0]!='\r')

{ if (j<6)

{ strncat(chmoney,ch,1);

j++;}

if(ch[0]==8)

{ len=strlen(chmoney)-1;

strcpy(ch1,"");

j=j-2;

strncat(ch1,chmoney,len);

strcpy(chmoney,"");

strncat(chmoney,ch1,len-1);

gotoxy(13,13);printf(" ");}

gotoxy(13,13);printf("%s",chmoney);ch[0]=getch();}

if((strlen(chshop)==0)||(strlen(chmoney)==0))

continue;

if((fp=fopen("home.dat","a+"))!=NULL);

fprintf(fp,"%10s%14s%6s",chtime,chshop,chmoney);

fputc('\n',fp);

fclose(fp);

i++;

gotoxy(41,5+i);

printf("%10s %-14s %-6s",chtime,chshop,chmoney);

}}} 来源:-计算机二级考试

计算机等级视频课程

姓名：

手机：