#include<stdio.h> /* EOF(=^Z或F6),NULL */ #include<math.h> /* floor(),ceil(),abs() */ #include<stdlib.h> /*申請和釋放內存*/ #include<stdarg.h> /*可變參數*/ #define OK 1 //成功標志 #define ERROR 0 //錯誤標志 #define MAX_ARRAY_DIM 8 //數組最大維數  typedef int ElemType; typedef int Status; /* Status是函數的類型,其值是函數結果狀態代碼，如OK等 */ typedef struct {   ElemType *base; /* 數組元素基址，由InitArray分配 */   int dim; /* 數組維數 */   intint *bounds; /* 數組維界基址，由InitArray分配 */   intint *constants; /* 數組映象函數常量基數，相當于每一維度的權重值，由InitArray分配 */ }Array;  /* 順序存儲數組的基本操作*/ Status InitArray(Array *A, int dim, ...) { /* 若維數dim和各維長度合法，則構造相應的數組A，并返回OK */   int elemtotal = 1, i; /* elemtotal是元素總值 */   if (dim<1 || dim>MAX_ARRAY_DIM) //判斷數組維數   {     return ERROR;   }   (*A).dim = dim; /* 數組維數 */   (*A).bounds = (intint *)malloc(dim*sizeof(int)); /* 數組維界基址 */   if (!(*A).bounds)   {     exit(OVERFLOW);   }    va_list ap;   va_start(ap, dim);   for (i = 0; i < dim; ++i)   {     (*A).bounds[i] = va_arg(ap, int);     if ((*A).bounds[i] < 0)     {       return UNDERFLOW; /* 在math.h中定義為4 */     }     elemtotal *= (*A).bounds[i];   }   va_end(ap);    (*A).base = (ElemType *)malloc(elemtotal*sizeof(ElemType));   if (!(*A).base)   {     exit(OVERFLOW);   }    (*A).constants = (intint *)malloc(dim*sizeof(int));   if (!(*A).constants)   {     exit(OVERFLOW);   }        (*A).constants[dim - 1] = 1;   for (i = dim - 2; i >= 0; --i)    {     (*A).constants[i] = (*A).bounds[i + 1] * (*A).constants[i + 1];   }        return OK; }  /* 銷毀數組A */ Status DestroyArray(Array *A) {    if ((*A).base)   {     free((*A).base);     (*A).base = NULL;   }   else   {     return ERROR;   }        if ((*A).bounds)   {     free((*A).bounds);     (*A).bounds = NULL;   }   else   {     return ERROR;   }    if ((*A).constants)   {     free((*A).constants);     (*A).constants = NULL;   }   else   {     return ERROR;   }    return OK; }  /* 若ap指示的各下標值合法，則求出該元素在A中的相對地址off */ /* Value()、Assign()調用此函數 */ Status Locate(Array A, va_list ap, intint *off)  {   int i, ind;   *off = 0;   for (i = 0; i < A.dim; ++i)   {     ind = va_arg(ap, int);     if (ind < 0 || ind >= A.bounds[i])     {       return OVERFLOW;     }     *off += A.constants[i] * ind;   }   return OK; }  /* ...依次為各維的下標值，若各下標合法，則e被賦值為A的相應的元素值 */ Status Value(ElemType *e, Array A, ...) {   va_list ap;   Status result;   int off;   va_start(ap, A);   if ((result = Locate(A, ap, &off)) == OVERFLOW) /* 調用Locate() */   {     return result;   }   *e = *(A.base + off);   return OK; }  /* ...依次為各維的下標值，若各下標合法，則將e的值賦給A的指定的元素 */ Status Assign(Array *A, ElemType e, ...) {    va_list ap;   Status result;   int off;   va_start(ap, e);   if ((result = Locate(*A, ap, &off)) == OVERFLOW) /* 調用Locate() */   {     return result;   }   *((*A).base + off) = e;   return OK; }  void main() {   Array A;   int i, j, k, *p, dim = 3, bound1 = 3, bound2 = 4, bound3 = 2; /* a[3][4][2]數組 */   ElemType e, *p1;    /* 構造3＊4＊2的3維數組A */   InitArray(&A, dim, bound1, bound2, bound3);     /* 順序輸出A.bounds */   printf("輸出數組各維度的值：/n ");   p = A.bounds;   for (i = 0; i < dim; ++i)   {     printf("A.bounds[%d] = %d/n ", i, *(p + i));   }   printf("/n");    /* 順序輸出A.constants */   printf("輸出數組映像函數常量基數的值(相當于每一維度的權重值)：/n ");   p = A.constants;   for (i = 0; i < dim; ++i)   {     printf("A.constants[%d] = %d/n ", i, *(p + i));   }   printf("/n/n");    printf("%d頁%d行%d列矩陣元素如下:/n", bound1, bound2, bound3);   for (i = 0; i < bound1; ++i)   {     printf("第%d頁：/n", i);     for (j = 0; j < bound2; ++j)     {       for (k = 0; k < bound3; ++k)       {         Assign(&A, i * 100 + j * 10 + k, i, j, k); /* 將i*100+j*10+k賦值給A[i][j][k] */         Value(&e, A, i, j, k); /* 將A[i][j][k]的值賦給e */         printf("A[%d][%d][%d]=%2d ", i, j, k, e); /* 輸出A[i][j][k] */       }       printf("/n");     }     printf("/n");   }    p1 = A.base;   printf("順序輸出Array的元素/n");   for (i = 0; i < bound1*bound2*bound3; ++i) /* 順序輸出A.base */   {     printf("%4d", *(p1 + i));     //輸出換行     if (i % (bound2*bound3) == (bound2*bound3 - 1))     {       printf("/n");     }   }    /* 銷毀數組A */   DestroyArray(&A); }