ADT Complex{
数据对象：D={r,i | r,i为实数}
数据关系：S={<r,i>}
基本操作：
InitComplex(&C,re,im)
操作结果：构造一个复数C，实部为re，虚部为im。
DestoryComplex(&C)
初始条件：复数C存在。
操作结果：销毁复数C。
Get(C,k,&e)
初始条件：复数C存在，1<=k<=2。
操作结果：用e返回C的第k元的值。
Put(&C,k,e)
初始条件：复数C存在，1<=k<=2.
操作结果：将C的第k元改为e。
IsAscending(C)
初始条件：复数C存在。
操作结果：如果复数C的两个元素按升序排列，则返回1，否则返回0.
IsDesending(C)
初始条件：复数C存在。
操作结果：如果复数C的两个元素按降序排列，则返回1，否则返回0.
Max(C,&e)
初始条件：复数C存在。
操作结果：用e返回复数C中两个元素值较大的一个。
Min(C,&e)
初始条件：复数C存在。
操作结果：用e返回复数C中两个元素值较小的一个。
} ADT Complex
ADT RationalNumber{
数据对象：D={s,m | s,m为自然数，且m!=0}
数据关系：S={<s,m>}
基本操作：
……
}ADT RationalNumber