试仿照三元组的抽象数据类型分别写出抽象数据类型复数和有理数的

ADT Complex{
数据对象：D={r,i|r,i为实数}
数据关系：R={<r,i>}
基本操作：
InitComplex(&C,re,im)
操作结果：构造一个复数C，其实部和虚部分别为re和im
DestroyCmoplex(&C)
操作结果：销毁复数C
Get(C,k,&e)
操作结果：用e返回复数C的第k元的值
Put(&C,k,e)
操作结果：改变复数C的第k元的值为e
IsAscending(C)
操作结果：如果复数C的两个元素按升序排列，则返回1，否则返回0
IsDescending(C)
操作结果：如果复数C的两个元素按降序排列，则返回1，否则返回0
Max(C,&e)
操作结果：用e返回复数C的两个元素中值较大的一个
Min(C,&e)
操作结果：用e返回复数C的两个元素中值较小的一个
}ADT Complex

ADT RationalNumber{
数据对象：D={s,m|s,m为自然数，且m不为0}
数据关系：R={<s,m>}
基本操作：
InitRationalNumber(&R,s,m)
操作结果：构造一个有理数R，其分子和分母分别为s和m
DestroyRationalNumber(&R)
操作结果：销毁有理数R
Get(R,k,&e)
操作结果：用e返回有理数R的第k元的值
Put(&R,k,e)
操作结果：改变有理数R的第k元的值为e
IsAscending(R)
操作结果：若有理数R的两个元素按升序排列，则返回1，否则返回0
IsDescending(R)
操作结果：若有理数R的两个元素按降序排列，则返回1，否则返回0
Max(R,&e)
操作结果：用e返回有理数R的两个元素中值较大的一个
Min(R,&e)
操作结果：用e返回有理数R的两个元素中值较小的一个
}ADT RationalNumber