《数据结构》第一章之绪论相关代码

本文定义了三元组抽象数据类型(ADT),并实现了一系列基本操作,包括初始化、销毁、获取元素等。此外,还展示了如何通过两个不同算法计算序列和,并比较它们的时间效率。

本书所涉及的部分头文件如下:

#include<string.h> 
#include<ctype.h> 
#include<malloc.h> 
#include<limits.h> 
#include<stdio.h> 
#include<stdlib.h> 
#include<io.h> 
#include<math.h> 
#include<sys/timeb.h> 
#include<stdarg.h> 
/*函数结果状态代码*/
#define TRUE  1
#define FALSE 0
#define OK    1
#define ERROR 0
typedef int Status; 
typedef int Boolean; 

三元组抽象数据类型及其相关操作

typedef int ElemType; 
typedef ElemType *Triplet;
Status InitTriplet(Triplet &T,ElemType v1,ElemType v2,ElemType v3)
{ 
 T = (ElemType*)malloc(3*sizeof(ElemType)); 
 if(!T)
  exit(OVERFLOW); 
 T[0] = v1,T[1] = v2,T[2] = v3;
 return OK;
}

Status DestroyTriplet(Triplet &T)
{ 
 free(T); 
 T = NULL; 
 return OK;
}

Status Get(Triplet T,int i,ElemType &e)
{ 
 if(i<1||i>3) 
  return ERROR;
 e = T[i-1]; 
 return OK;
}

Status Put(Triplet T,int i,ElemType e)
{ 
 if(i<1||i>3) 
  return ERROR;
 T[i-1] = e; 
 return OK;
}

Status IsAscending(Triplet T) 
{ 
 return(T[0]<= T[1]&&T[1]<= T[2]); 
}

Status IsDescending(Triplet T) 
{ 
 return(T[0]>= T[1]&&T[1]>= T[2]); 
}

Status Max(Triplet T,ElemType &e)
{ 
 e = (T[0]>= T[1])?(T[0]>= T[2]?T[0]:T[2]):(T[1]>= T[2]?T[1]:T[2]); 
 return OK;
}

Status Min(Triplet T,ElemType &e)
{ 
 e = (T[0]<= T[1])?(T[0]<= T[2]?T[0]:T[2]):(T[1]<= T[2]?T[1]:T[2]); 
 return OK;
}

void PrintE(ElemType e) 
{ 
 printf("%d\n",e); 
}

void PrintT(Triplet T) 
{ 
 printf("%d,%d,%d\n",T[0],T[1],T[2]); 
}

void main()
{
 Triplet T;
 ElemType m;
 Status i;
 i = InitTriplet(T,5,7,9); 
 printf("调用初始化函数后,i = %d(1:成功).T的3个值为",i);
 PrintT(T); 
 i = Get(T,2,m); 
 if(i == OK) 
 { 
  printf("T的第2个值为");
  PrintE(m); 
 }
 i = Put(T,2,6); 
 if(i == OK) 
 { 
  printf("将T的第2个值改为6后,T的3个值为");
  PrintT(T); 
 }
 i = IsAscending(T); 
 printf("调用测试升序的函数后,i = %d (0:否 1:是)\n",i);
 i = IsDescending(T); 
 printf("调用测试降序的函数后,i = %d (0:否 1:是)\n",i);
 if((i = Max(T,m)) == OK) 
 { 
  printf("T中的最大值为");
  PrintE(m); 
 }
 if((i = Min(T,m)) == OK)
 { 
  printf("T中的最小值为");
  PrintE(m); 
 }
 DestroyTriplet(T); 
 printf("销毁T后,T = %u\n",T);
}

算法和算法分析

void main()
{
 timeb T1,T2;
 long t;
 double X,Sum=1,Sum1;
 int i,j,N;
 printf("请输入X N:");
 scanf("%lf%d",&X,&N);
 ftime(&T1); 
 for(i=1;i<=N;i++)
 { 
  Sum1=1;
  for(j=1;j<=i;j++)
   Sum1=Sum1*(-1.0/X);
  Sum+=Sum1;
  }
 ftime(&T2); 
 t=(T2.time-T1.time)*1000+(T2.millitm-T1.millitm); 
 printf("Sum=%lf,用时%ld毫秒\n",Sum,t);
}
void main()
{
 timeb T1,T2;
 long t;
 double X,Sum1=1,Sum=1;
 int i,N;
 printf("请输入X N:");
 scanf("%lf%d",&X,&N);
 ftime(&T1); 
 for(i=1;i<=N;i++)
 { 
  Sum1*=-1.0/X;
  Sum+=Sum1;
 }
 ftime(&T2); 
 t=(T2.time-T1.time)*1000+(T2.millitm-T1.millitm); 
 printf("Sum = %lf,用时%ld毫秒\n",Sum,t);
}

Delphi 12.3 作为一款面向 Windows 平台的集成开发环境,由 Embarcadero Technologies 负责其持续演进。该环境以 Object Pascal 语言为核心,并依托 Visual Component Library(VCL)框架,广泛应用于各类桌面软件、数据库系统及企业级解决方案的开发。在此生态中,Excel4Delphi 作为一个重要的社区开源项目,致力于搭建 Delphi 与 Microsoft Excel 之间的高效桥梁,使开发者能够在自研程序中直接调用 Excel 的文档处理、工作表管理、单元格操作及宏执行等功能。 该项目以库文件与组件包的形式提供,开发者将其集成至 Delphi 工程后,即可通过封装良好的接口实现对 Excel 的编程控制。具体功能涵盖创建与编辑工作簿、格式化单元格、批量导入导出数据,乃至执行内置公式与宏指令等高级操作。这一机制显著降低了在财务分析、报表自动生成、数据整理等场景中实现 Excel 功能集成的技术门槛,使开发者无需深入掌握 COM 编程或 Excel 底层 API 即可完成复杂任务。 使用 Excel4Delphi 需具备基础的 Delphi 编程知识,并对 Excel 对象模型有一定理解。实践中需注意不同 Excel 版本间的兼容性,并严格遵循项目文档进行环境配置与依赖部署。此外,操作过程中应遵循文件访问的最佳实践,例如确保目标文件未被独占锁定,并实施完整的异常处理机制,以防数据损毁或程序意外中断。 该项目的持续维护依赖于 Delphi 开发者社区的集体贡献,通过定期更新以适配新版开发环境与 Office 套件,并修复已发现的问题。对于需要深度融合 Excel 功能的 Delphi 应用而言,Excel4Delphi 提供了经过充分测试的可靠代码基础,使开发团队能更专注于业务逻辑与用户体验的优化,从而提升整体开发效率与软件质量。 资源来源于网络分享,仅用于学习交流使用,请勿用于商业,如有侵权请联系我删除!
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值