fortran練習題_第1頁
已閱讀1頁,還剩31頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領

文檔簡介

1、Ftran練習題shirley1?1.輸出a,b,c的值,其中a=28b=34c=60.5integerabc定義整型定義整型integera=28b=34c=60.5‘=’為賦值符號,把右賦給左為賦值符號,把右賦給左printa=ab=bc=c輸出格式:輸出格式:print’文字內容文字內容’該輸出變量該輸出變量end結束必須以結束必須以end作結作結?2.輸出x和y的值realxy定義實型定義實型realprint輸入x和y:rea

2、dxy讀入格式:讀入格式:read讀入變量讀入變量printxyend?3.求三個數(shù)的和及平均值realsumavereadabcsum=abcave=sum3print和為sumprint平均值為aveend?4.現(xiàn)有長1500m寬1000m的地塊要拍賣建造住宅小區(qū),地塊中央有一半徑為100m的圓形公共綠地不屬于拍賣范圍,每平方米地價為0.5萬元,編寫程序計算該地塊拍賣總價,并輸出。realareamoneyreadabrarea=a

3、b3.14r2ab為abmoney=area0.5print總價為money萬元print地長為aprint地寬為bprint綠地半徑為rend?5.求三個數(shù)中的最大數(shù)與最小數(shù)realmax_xmin_xreadabcmin_x=aif(bmax_x)thenmax_x=bFtran練習題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個自然數(shù)的階乘和為:sumend?10.求1121314…1991100realsms=0m=1dowhile(m

5、=100)s=s(1)(m1)mm=m1enddoprintsend?11.判斷20002500年中每一年是否為閏年,并打印判斷結果、閏年的條件是:年份能被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)系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論