程序控制結構

　　1、求出下列表達式的值(x、y的值從鍵盤輸入)：

　　程序代碼：

　　SET TALK Off

　　CLEAR

　　INPUT "X=" TO X

　　INPUT "Y=" TO Y

　　Z=(X*Y+EXP(X+Y))/((X/Y)^3*LOG10(ABS(X-Y)))

　　?"X=",X,"Y=",Y,"Z=",Z

　　SET TALK ON

　　2、給定一個年份(從鍵盤輸入)，判斷它是否閏年。閏年的條件是：能被4整除但不能被100整除，或能被100整除且能被400整除。

　　程序代碼：

　　SET TALK Off

　　CLEAR

　　INPUT "Year=" TO Year

　　if (year%4=0 and year%100!=0) or (year%100=0 and year%400=0)

　　?year,"是閏年"

　　else

　　?year,"不是閏年"

　　endif

　　SET TALK ON

　　3、從鍵盤輸入數據A(可以是C、D、N、L、Y和U型等)，通過類型判斷，輸出其數據類型的漢字說明(如A的值為“OK!”，那么輸出應為：OK!——字符型數據)。

　　程序代碼：

　　SET TALK Off

　　CLEAR

　　INPUT "A=" TO a

　　do case

　　case type('a')="C"

　　?a,"——字符型數據"

　　case type('a')="D"

　　?a,"——日期型數據"

　　case type('a')="N"

　　?a,"——數值型數據"

　　case type('a')="L"

　　?a,"——邏輯型數據"

　　case type('a')="Y"

　　?a,"——貨幣型數據"

　　case type('a')="U"

　　?a,"——未定義"

　　endcase

　　SET TALK ON