《實驗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)康?
1． 掌握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,進(jìn)入Fortran PowerStation 4.0的集成開發(fā)環(huán)境。
l 從File菜單中選擇New菜單項，在彈出的對話框中選取Project Workspace建立一個項目工作間，在接著彈出的對話框的Type 選擇Console Application, Name欄內(nèi)填入項目名稱（輸入LAB03），L
2、ocation內(nèi)填入保存位置(輸入F:\TM08)，單擊Create按鈕。
1. 教材第48頁 例4.1 編程求(ex )
IMPLICIT NONE
INTEGER I,N
REAL X,F,Y
READ *,X,N
F=1.0
Y=1.0
DO I=1,N
F=F*X/I
Y=Y+F
END DO
PRINT *, 'Y=',Y
END
操作主要步驟：
（1）在Standard工具欄中選擇新建按鈕，輸入以上程序。輸入完畢，以EX301.F90為文件名保存源程序。
(2) 選擇Insert菜單中的Files into Project, 向
3、項目工作間內(nèi)添加該文件。
（3）按Shift+F8，對項目進(jìn)行編譯和連接，如果有錯誤，根據(jù)提示修改錯誤；編譯無錯誤，則會生成擴(kuò)展名為 .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
4、，將EX302.F90加入項目工作間。
(3）按Shift+F8，對項目進(jìn)行編譯和連接，如果有錯誤，根據(jù)提示修改錯誤；編譯無錯誤，則會生成擴(kuò)展名為 .exe的文件。
(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ìn)行編譯和連接，如果有錯誤，根
5、據(jù)提示修改錯誤；編譯無錯誤，則會生成擴(kuò)展名為 .exe的文件。
(4) 按Ctrl+F5, 程序開始運行，這時輸入：
75 35
整理為word格式
觀察屏幕顯示運行結(jié)果。
4. 編程完成教材第66頁第2題 利用下式計算π的近似值。
操作步驟：
(1) 新建一個文件，輸入自己編寫的程序，以EX304.F90為文件名保存源程序。
(2) 在項目工作間LAB03中刪除第3題源程序文件EX303.F90，將EX303.F90加入項目工作間
(3）按Shift+F8，對項目進(jìn)行編譯和連接，如果有錯誤，根據(jù)提示修改錯誤；編譯無錯誤，則會生成擴(kuò)展名為 .ex
6、e的文件。
(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.F90～EX306.F90上傳到你自己的文件夾內(nèi)。
友情提示：本資料代表個人觀點，如有幫助請下載，謝謝您的瀏覽！
整理為word格式
實驗03 循環(huán)結(jié)構(gòu)程序設(shè)計
