#include<stdio.h>
#include<math.h>
#define PI 3.1415926
int main()
{
float hd;
int du,fen,miao;
scanf("%f\n",&hd);
du=(hd*180/PI);
fen=(hd*180/PI-du)*60;
miao=((hd*180/PI-du)*60-fen)*60;
printf("du=%d',fen=%d',miao=%d'",du,fen,miao);
return 0;
}

(defun jiaodu-rad (du &optional (fen nil) (miao nil))
"将角度转换为弧度。例如：(jiaodu-rad 112 30)112度30分返回1.9....，之所以这么麻烦，乃因为秒分度是60进制的。35度6分等于35.1度。"
(cond
(miao (setf fen (+ (float fen) (/ (float miao) 60)) du (+ du (/ fen 60)) du (* du (/ pi 180))))
(fen (setf du (+ du (/ (float fen) 60)) du (* du (/ pi 180))))
(t (* du (/ pi 180)))))
;*************************************************************
(defun rad-jiaodu (rad)
"已知弧度求角度。"
(/ (* 180 rad) pi))