VFP編程題答案內(nèi)容

PAGEPAGE4順序結(jié)構(gòu)程序設(shè)計(jì)1.從鍵盤(pán)輸入長(zhǎng)方體的長(zhǎng)、寬、高，求長(zhǎng)方體的表面積。input“輸入長(zhǎng)方體的長(zhǎng)：”tox input“輸入長(zhǎng)方體的寬：”toy input“輸入長(zhǎng)方體的高：”toz s=2*x*y+2*x*z+2*y*z ?”長(zhǎng)方體的表面積為：”,s2.從鍵盤(pán)輸入圓的半徑，計(jì)算圓的面積。input“輸入圓的半徑：”tors=3.14*r^2?”圓的面積為：”,s3.建立數(shù)據(jù)庫(kù)XS，將表XSQK.DBF添加到該數(shù)據(jù)庫(kù)，并瀏覽該表所有數(shù)據(jù)，最后關(guān)閉數(shù)據(jù)庫(kù)。CreatedatabasexsAddxsqkBrowseCloseall4.在表XSQK.DBF中，查找出生日期為1983年10月8日的記錄，并顯示該記錄；繼續(xù)查找下一個(gè)滿足上述條件的記錄，并顯示該記錄。UsexsqkLocatefor出生日期

={^1983-10-8}DisplayContinueDisplayUse分支結(jié)構(gòu)程序設(shè)計(jì)1.從鍵盤(pán)輸入一個(gè)數(shù)，若為正數(shù)則輸出，非正數(shù)則結(jié)束。 input“輸入一個(gè)數(shù)：”tox ifx>0 ?x endif return2.求一元二次方程AX2+BX+C=0的實(shí)根。 input“輸入系數(shù)A：”toa input“輸入系數(shù)B：”tob input“輸入系數(shù)C：”toc m=b^2-4*a*c ifm>=0 x1=(-b+sqrt(m))/(2*a) x2=(-b-sqrt(m))/(2*a) ?”x1=”,x1,”x2=”,x2 else ?”方程無(wú)實(shí)根！”endif3. 從鍵盤(pán)輸入一個(gè)待查學(xué)生的學(xué)號(hào)，在表XSQK.DBF中查找。若能找到，則顯示該記錄，否則，顯示信息“該學(xué)號(hào)不存在”。usexsqk accept“輸入待查學(xué)生學(xué)號(hào)：”tox locatefor學(xué)號(hào)=x ifnoteof() display else ?“該學(xué)號(hào)不存在” Endif Use4.從鍵盤(pán)輸入一個(gè)自然數(shù)，若為偶數(shù)則輸出信息“偶數(shù)”，若為奇數(shù)則輸出信息“奇數(shù)”。input“輸入一個(gè)自然數(shù)：”tox ifx%2=0 ?”偶數(shù)” else ?”奇數(shù)” endif return5.計(jì)算函數(shù)Y的值。Y=Y=3ex+2-12X+5x>=0X<05.答案input“輸入X的值：”tox ifx>=0 f=3*exp(x+2)-1 else f=2*x+5 endif?”f=”,f return6.計(jì)算運(yùn)費(fèi)。車站從甲地到乙地托運(yùn)行李，收費(fèi)規(guī)定：若行李重量不超過(guò)50公斤，每公斤收費(fèi)0.5元；若行李重量超過(guò)50公斤，其超重部分加收0.4元。編寫(xiě)計(jì)算運(yùn)費(fèi)的程序。clearinput"請(qǐng)輸入行李的重量："tonifn<50s=n*0.5elses=n*0.5+(n-50)*0.4endif?"應(yīng)收費(fèi)用為：",sreturn7．編寫(xiě)根據(jù)當(dāng)前日期顯示當(dāng)前季節(jié)的程序。clearinput"請(qǐng)輸入日期："todm=month(d)docasecasem>=3andm<=5 ?"春季"casem>=6andm<=8?"夏季"casem>=9andm<=11?"秋季"otherwise?"冬季"endcasereturn8．某百貨公司為促銷，采用購(gòu)物打折扣的優(yōu)惠辦法，每位顧客一次購(gòu)物：(1)1000元至1999元之間者，按九五折優(yōu)惠。(2)2000元至2999元之間者，按九折優(yōu)惠。(3)3000元至4999元之間者，按八五折優(yōu)惠。(4)5000元以上者，按八折優(yōu)惠。編寫(xiě)程序，輸入購(gòu)物款數(shù)，計(jì)算并輸出優(yōu)惠價(jià)。clearinput"輸入你的購(gòu)物金額："toddocase cased>=1000andd<=1999 m=d*0.95 cased>=2000andd<=2999 m=d*0.9 cased>=3000andd<=4999 m=d*0.85 cased>=5000 m=d*0.8endcase?"打折后的金額是：",mreturn9．編寫(xiě)程序，輸入一個(gè)數(shù)字（0～7），顯示其對(duì)應(yīng)星期幾的中英文信息。clearinput"請(qǐng)輸入一個(gè)數(shù)字："tondocase casen=1 M="星期一(Monday)" casen=2 M="星期二（Tuesday）" casen=3 M="星期三（Wednesday）" casen=4 M="星期四（Thursday）"casen=5 M="星期五（Friday）" casen=6 M="星期六（Saturday）" casen=0 M="星期日（Sunday）" otherwise M="重新輸入" endcase?"您輸入的是："+M return10.設(shè)計(jì)個(gè)人納稅計(jì)算程序?！岸惙ā币?guī)定，使用超額累進(jìn)稅率，以每月收入額減去1600元后的余額，為應(yīng)納稅所得額，其稅率見(jiàn)下表：級(jí)數(shù)全月應(yīng)納稅所得額稅率（%）1不超過(guò)500元52500～2000元1032000～5000元1545000～20000元20gobottomfori=1ton display wait skip-1endforsettalkonreturn12．編寫(xiě)程序，使表GONGZI.DBF中每條記錄根據(jù)職稱情況自動(dòng)進(jìn)行工資普調(diào)。普調(diào)規(guī)定是：教授每人增加100元，副教授每人增加80元，講師每人增加50元，助教每人增加30元。settalkoffclearusegongziexclusivebrowselastdocase case職稱='教授' replace基本工資with基本工資+100for職稱="教授" case職稱='副教授' replace基本工資with基本工資+80for職稱="副教授" case職稱='講師' replace基本工資with基本工資+50for職稱="講師" case職稱='助教' replace基本工資with基本工資+30for職稱="助教"endcasebrowselastusesettalkonreturn13．編寫(xiě)程序，輸出如下乘法表。1×1＝12×1＝22×2＝43×1＝33×2＝63×3＝9……9×1＝99×2＝18………………9