C2B2B程序设计(part1).ppt

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Complier 后门 * CPL（Combined PL）－－》 BCPL （剑桥） Algol （Algorithmic Language） PL/1：IBM360 ，适合商业的COBOL和科学计算的FORTRAN，引入ALGOL思想（结构化） * * * * * * * * * * Lisp:List Process * * * * * * * * * * * * * * * * * * Call by name:Algol60 void p(int x) delayed evaluation { ++i;++x; } int a[10]; int i = 1; a[1] = 1; a[2] = 2; p(a[i]); a[2] = 3 Call by value-result: FORTRAN ADA copy-restore void p(int x, int y) { ++x; ++y;} int a = 1; p(a,a); a?? 2 * * 指针定义与基本操作 指针常量 类型 * const 指针变量 必须在定义时初始化 int x, y; int * const p = x; //p为指向一个整型变量的指针常量 p = y; //Error *p = 1; //Ok variable P(常量) constant x const int * const p; ？ 指针与函数 指针作为行参 提高传输效率 函数副作用 常量指针 Function Pointer 指向函数的指针 double f(int x) { … } int g() { … } void main() { double (*fp) (int); // typedef double (*FP)(int); // FP fp; fp = f; ? fp = f; (*fp)(10); ? fp(10); fp = g; //Error } 函数指针 函数参数 编写函数，使其能计算任意一元函数在某区间上的定积分 #include math.h double integrate(double (*f)(double),double a, double b) { … (*f)(x), a , b, … } double my_func(double x) { … } void main() { … integrate(sin,0,1); integrate(cos,1,2); integrate(my_func,1,10); … } 示例 sort int scompare(const void *elem1, const void *elem2) { TStudent *p1 = (TStudent *)elem1; TStudent *p2 = (TStudent *)elem2; return strcmp(p1-name,p2-name); } void MySort(void *base, unsigned num, unsigned width, int (*compare)(const void *elem1, const void *elem2)) { char *A = (char *)base; char *tmp = (char *)malloc(width); for (unsigned i=1;inum;i++) { for (unsigned j=0;jnum-i;j++) if (compare(A+j*width,A+(j+1)*width)0) //A[j] A[j+1]) { memcpy(tmp,A+j*width,width); //int tmp = A[j]; memcpy(A+j*width, A+(j+1)*width,width);//A[j] = A[j+1]; memcpy(A+(j+1)*width,tmp,width); //A[j+1] = tmp; } } free(tmp); } TStud