《實驗03 循環(huán)結(jié)構(gòu)程序設(shè)計》由會員分享,可在線閱讀,更多相關(guān)《實驗03 循環(huán)結(jié)構(gòu)程序設(shè)計(3頁珍藏版)》請在裝配圖網(wǎng)上搜索。
1、實驗3 循環(huán)結(jié)構(gòu)程序設(shè)計(1)一、實驗?zāi)康? 掌握DO、DO WHILE語句的語法規(guī)則和使用要求。2 掌握循環(huán)結(jié)構(gòu)概念和循環(huán)結(jié)構(gòu)程序設(shè)計方法。二、實驗內(nèi)容l 啟動Fortran PowerStation 4.0的Microsoft Developer Studio,進入Fortran PowerStation 4.0的集成開發(fā)環(huán)境。l 從File菜單中選擇New菜單項,在彈出的對話框中選取Project Workspace建立一個項目工作間,在接著彈出的對話框的Type 選擇Console Application, Name欄內(nèi)填入項目名稱(輸入LAB03),Location內(nèi)填入保存位置(輸
2、入F:TM08),單擊Create按鈕。1. 教材第48頁 例4.1 編程求(ex )IMPLICIT NONEINTEGER I,NREAL X,F,YREAD *,X,NF=1.0Y=1.0DO I=1,N F=F*X/I Y=Y+FEND DOPRINT *, Y=,YEND操作主要步驟:(1)在Standard工具欄中選擇新建按鈕,輸入以上程序。輸入完畢,以EX301.F90為文件名保存源程序。 (2) 選擇Insert菜單中的Files into Project, 向項目工作間內(nèi)添加該文件。(3)按Shift+F8,對項目進行編譯和連接,如果有錯誤,根據(jù)提示修改錯誤;編譯無錯誤,則會
3、生成擴展名為 .exe的文件。(4) 按Ctrl+F5, 程序開始運行,這時輸入:1 100觀察屏幕顯示運行結(jié)果。2. 教材第51頁 例4.3 所謂“水仙花數(shù)”是指一個三位整數(shù),其各位數(shù)字立方和等于該數(shù)本身。例如,153就是一個水仙花數(shù)。輸出全部“水仙花數(shù)”。整理為word格式操作步驟:(1) 新建一個文件,輸入以上程序,以EX302.F90為文件名保存源程序。(2) 在項目工作間LAB03中刪除第1題源程序文件EX301.F90,將EX302.F90加入項目工作間。(3)按Shift+F8,對項目進行編譯和連接,如果有錯誤,根據(jù)提示修改錯誤;編譯無錯誤,則會生成擴展名為 .exe的文件。(4
4、) 按Ctrl+F5, 程序開始運行,觀察屏幕顯示運行結(jié)果。3. 教材第51頁 例4.6 求兩個整數(shù)a與b的最大公約數(shù)和最小公倍數(shù)。 操作步驟:(1) 新建一個文件,輸入以上程序,以EX303.F90為文件名保存源程序。(2) 在項目工作間LAB03中刪除第2題源程序文件EX302.F90,將EX303.F90加入項目工作間。(3)按Shift+F8,對項目進行編譯和連接,如果有錯誤,根據(jù)提示修改錯誤;編譯無錯誤,則會生成擴展名為 .exe的文件。(4) 按Ctrl+F5, 程序開始運行,這時輸入:75 35整理為word格式觀察屏幕顯示運行結(jié)果。4. 編程完成教材第66頁第2題 利用下式計算
5、的近似值。 操作步驟:(1) 新建一個文件,輸入自己編寫的程序,以EX304.F90為文件名保存源程序。(2) 在項目工作間LAB03中刪除第3題源程序文件EX303.F90,將EX303.F90加入項目工作間(3)按Shift+F8,對項目進行編譯和連接,如果有錯誤,根據(jù)提示修改錯誤;編譯無錯誤,則會生成擴展名為 .exe的文件。(4) 按Ctrl+F5, 程序開始運行,這時輸入:N:500000 回車觀察并記錄屏幕顯示運行結(jié)果。5. 編程完成教材第66頁第6題 求滿足如下條件的三位數(shù):它除以9的商等于各位數(shù)字的平方和。例如224,它除以9的商為24, 而22+22+42=24以EX405.F90為文件名保存源程序。運行,觀察屏幕顯示運行結(jié)果。6. 編程完成教材第66頁第11題 利用迭代公式:yn+1=yn+求。初始值y0=x,誤差要求為10-5。X從鍵盤輸入。以EX406.F90為文件名保存源程序。運行,輸入X=10及27,觀察屏幕顯示運行結(jié)果。三、實驗結(jié)果提交1. 登錄到ftp:/202.193.94.88 用戶名:JLHSTD,密碼:12345)。2. 將EX301.F90EX306.F90上傳到你自己的文件夾內(nèi)。 友情提示:本資料代表個人觀點,如有幫助請下載,謝謝您的瀏覽! 整理為word格式