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