实验03 循环结构程序设计(1)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验3 循环结构程序设计（1）
一、实验目的
1． 掌握DO 、DO WHILE 语句的语法规则和使用要求。
2． 掌握循环结构概念和循环结构程序设计方法。
二、实验内容
● 启动Fortran PowerStation 4.0的Microsoft Developer Studio,进入Fortran PowerStation 4.0
的集成开发环境。
● 从File 菜单中选择New 菜单项，在弹出的对话框中选取Project Workspace 建立一个项
目工作间，在接着弹出的对话框的Type 选择Console Application , Name 栏内填入项目名称（输入LAB03），Location 内填入保存位置(输入F:\TM08)，单击Create 按钮。
1. 教材第48页 例4.1
编程求(e x )!
!3!2132n x x x x y n +++++= 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）按Shift+F8，对项目进行编译和连接，如果有错误，根据提示修改错误；编译无错误，则会生成扩展名为 .exe 的文件。
(4) 按Ctrl+F5, 程序开始运行，这时输入：
1 100
观察屏幕显示运行结果。
2. 教材第51页 例4.3 所谓“水仙花数”是指一个三位整数，其各位数字立方和等于该数本身。例如，153就是一个水仙花数。输出全部“水仙花数”。
INTEGER N,NUM1,NUM2,NUM3,TEMP
DO N=100,999
NUM1=MOD(N,10)
NUM2=MOD(N/10,10)
NUM3=N/100
TEMP=NUM1**3+NUM2**3+NUM3**3
IF(N==TEMP)THEN
PRINT*,N,'是水仙花数'
ENDIF
ENDDO
END
操作步骤：
(1) 新建一个文件，输入以上程序，以EX302.F90为文件名保存源程序。
(2) 在项目工作间LAB03中删除第1题源程序文件EX301.F90，将EX302.F90加入项目工作间。
(3）按Shift+F8，对项目进行编译和连接，如果有错误，根据提示修改错误；编译无错误，则会生成扩展名为.exe的文件。
(4) 按Ctrl+F5, 程序开始运行，观察屏幕显示运行结果。
3. 教材第51页例
4.6 求两个整数a与b的最大公约数和最小公倍数。
IMPLICIT NONE
INTEGER A,B,T
PRINT *,'请输入两个自然数'
READ *,A,B
IF (A>B) THEN
T=A;A=B;B=T
END IF
DO T=A,1,-1
IF (MOD(A,T)==0.AND.MOD(B,T)==0) THEN
PRINT *, '最大公约数=',T
EXIT
END IF
END DO
PRINT *, '最小公倍数=',A*B/T
END
操作步骤：
(1) 新建一个文件，输入以上程序，以EX303.F90为文件名保存源程序。
(2) 在项目工作间LAB03中删除第2题源程序文件EX302.F90，将EX303.F90加入项目工作间。
(3）按Shift+F8，对项目进行编译和连接，如果有错误，根据提示修改错误；编译无错误，则会生成扩展名为.exe的文件。
(4) 按Ctrl+F5, 程序开始运行，这时输入：
75 35
观察屏幕显示运行结果。
4. 编程完成教材第66页第2题 利用下式计算π的近似值。
)1000(1
4134171513114=---++-+-=n n n π 操作步骤：
(1) 新建一个文件，输入自己编写的程序，以EX304.F90为文件名保存源程序。
(2) 在项目工作间LAB03中删除第3题源程序文件EX303.F90，将EX303.F90加入项目工作间
(3）按Shift+F8，对项目进行编译和连接，如果有错误，根据提示修改错误；编译无错误，则会生成扩展名为 .exe 的文件。
(4) 按Ctrl+F5, 程序开始运行，这时输入：
N ：500000 回车
观察并记录屏幕显示运行结果。
5. 编程完成教材第66页第6题 求满足如下条件的三位数：它除以9的商等于各位数字的平方和。例如224,它除以9的商为24, 而22+22+42=24
以EX405.F90为文件名保存源程序。
运行，观察屏幕显示运行结果。
6. 编程完成教材第66页第11题 利用迭代公式：y n+1=23 y n +x 3yn 2
求3x 。初始值y0=x ，误差要求为10-5。X 从键盘输入。
以EX406.F90为文件名保存源程序。
运行，输入X=10及27，观察屏幕显示运行结果。
三、实验结果提交
1. 登录到ftp://20
2.19
3.9
4.88 用户名：JLHSTD ，密码：12345）。
2. 将EX301.F90～EX306.F90上传到你自己的文件夹内。