程序控制結(jié)構(gòu)

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

　　程序代碼：

　　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、給定一個(gè)年份(從鍵盤(pán)輸入)，判斷它是否閏年。閏年的條件是：能被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、從鍵盤(pán)輸入數(shù)據(jù)A(可以是C、D、N、L、Y和U型等)，通過(guò)類(lèi)型判斷，輸出其數(shù)據(jù)類(lèi)型的漢字說(shuō)明(如A的值為“OK!”，那么輸出應(yīng)為：OK!——字符型數(shù)據(jù))。

　　程序代碼：

　　SET TALK Off

　　CLEAR

　　INPUT "A=" TO a

　　do case

　　case type('a')="C"

　　?a,"——字符型數(shù)據(jù)"

　　case type('a')="D"

　　?a,"——日期型數(shù)據(jù)"

　　case type('a')="N"

　　?a,"——數(shù)值型數(shù)據(jù)"

　　case type('a')="L"

　　?a,"——邏輯型數(shù)據(jù)"

　　case type('a')="Y"

　　?a,"——貨幣型數(shù)據(jù)"

　　case type('a')="U"

　　?a,"——未定義"

　　endcase

　　SET TALK ON