温馨提醒：系统正在全面升级。您可以访问最新站点。谢谢！

  【程序95】

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

  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;}

  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);