版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、Ftran練習(xí)題shirley1?1.輸出a，b，c的值，其中a=28b=34c=60.5integerabc定義整型定義整型integera=28b=34c=60.5‘=’為賦值符號(hào)，把右賦給左為賦值符號(hào)，把右賦給左printa=ab=bc=c輸出格式：輸出格式：print’文字內(nèi)容文字內(nèi)容’該輸出變量該輸出變量end結(jié)束必須以結(jié)束必須以end作結(jié)作結(jié)?2.輸出x和y的值realxy定義實(shí)型定義實(shí)型realprint輸入x和y:rea
2、dxy讀入格式：讀入格式：read讀入變量讀入變量printxyend?3.求三個(gè)數(shù)的和及平均值realsumavereadabcsum=abcave=sum3print和為sumprint平均值為aveend?4.現(xiàn)有長1500m寬1000m的地塊要拍賣建造住宅小區(qū)，地塊中央有一半徑為100m的圓形公共綠地不屬于拍賣范圍，每平方米地價(jià)為0.5萬元，編寫程序計(jì)算該地塊拍賣總價(jià)，并輸出。realareamoneyreadabrarea=a
3、b3.14r2ab為abmoney=area0.5print總價(jià)為money萬元print地長為aprint地寬為bprint綠地半徑為rend?5.求三個(gè)數(shù)中的最大數(shù)與最小數(shù)realmax_xmin_xreadabcmin_x=aif(bmax_x)thenmax_x=bFtran練習(xí)題shirley3printn能被3和5整除elseprintn不能被3和5整除endifend?9.求s=∑n!（20）integer::niksum
4、=0在integerreal等后跟：：可在后直接對變量賦值等后跟：：可在后直接對變量賦值don=120doi=jkl，j表示表示i的初值，的初值，k表示末值，表示末值，l表示間隔（為表示間隔（為1可省略）循環(huán)次數(shù)即為可省略）循環(huán)次數(shù)即為(kj)l1k=1doi=1nk=kienddosum=sumkenddoprint前20個(gè)自然數(shù)的階乘和為：sumend?10.求1121314…1991100realsms=0m=1dowhile(m
5、=100)s=s(1)(m1)mm=m1enddoprintsend?11.判斷20002500年中每一年是否為閏年，并打印判斷結(jié)果、閏年的條件是：年份能被4整除，但不能被100整除，或者能被100整除又能被400整除integerss=2000dowhile(s=2500)if(MOD(s100)==0..MOD(s400)==0)thenprints是閏年elseif(mod(s4)==0..mod(s100)=0)thenprin
溫馨提示
- 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫僅提供信息存儲(chǔ)空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
評(píng)論
0/150
提交評(píng)論