实验05 数据类型及格式输入输出

一、实验目的

1．了解数据有格式输入输出的主要作用、基本方法和使用规则。 2．掌握复数型、字符型和逻辑型数据类型的使用。

3．掌握数据有格式输入输出语句(READ、PRINT、WRITE)的基本功能和语法规则。 4．掌握格式说明语句(FORMAT)的基本功能和语法规则。

5．掌握I、F、A、L、X、/等若干常用格式编辑符的格式要求和基本功能。 6．掌握数据有格式输入输出的数据组织和格式说明方法。

二、实验内容

 启动Fortran PowerStation 4.0的Microsoft Developer Studio,进入Fortran PowerStation 4.0

的集成开发环境。

 从File菜单中选择New菜单项，在弹出的对话框中选取Project Workspace建立一个项

目工作间，在接着弹出的对话框的Type 选择Console Application, Name栏内填入项目

名称（输入LAB05），Location内选择保存位置(自己的文件夹)，单击Create按钮。

1. 教材第75页 例5.5 有一线段AB，A的坐标为(1，1)，B的坐标为(4.5，4.5)，如图5.2所示。求AB的长度，以及黄金分隔点C的坐标。黄金分割点在线段的0.618处。

COMPLEX::A,B,C

REAL::L

READ*,A,B

C=A+0.618*(B- A) L=ABS(A- B )

PRINT*,'L=',L PRINT*,'C=',C END

以EX501.F90为文件名保存源程序。

运行该程序，输入:

( 1.0 , 1.0 )，( 4.5 , 4.5 )回车 观察屏幕显示运行结果。

2. 教材第82页 例5.8 将一个字符串中的字符按逆序打印出来。

IMPLICIT NONE INTEGER I,J CHARACTER*8,S1,S2 S1='12345678' S2='' DO I=1,8 J=8-I+1 S2(J:J)=S1(I:I) ENDDO PRINT*,S2 END

以EX502.F90为文件名保存源程序。 运行该程序，观察屏幕显示运行结果。

3. 教材第99页 第2大题第1小题 程序执行时输入同样的内容： 1234567891011121314151617181920 请写出下列程序的执行结果。

以EX503.F90为文件名保存源程序。 运行程序，观察并记录屏幕显示运行结果 (1)

INTEGER A REAL B,C CHARACTER*10,D READ(*,10)A,B,C,D WRITE(*,*)A,B,C,D 10 FORMAT(1X,I4,2F6.2,A3) END

4. 教材第100页 第3题 写出下列程序的执行结果：

(1) 以EX5041.F90为文件名保存源程序。运行程序，观察并记录屏幕显示运行结果。

INTEGER I,J,K I=570 J=3410 K=5069

PRINT 10,I,J,K PRINT 20,I,J,K PRINT 30,I,J,K

10 FORMAT(1X,I4) 20 FORMAT(1X,2I5)

30 FORMAT(1X,2(I5/2X)) END

(2) 以EX5042.F90为文件名保存源程序。运行程序，观察并记录屏幕显示运行结果。

CHARACTER*8 A INTEGER B REAL C,D A='FORTRAN' B=52 C=917.8 D=-452.6 WRITE(*,10)A,B,C,D WRITE(*,20)A,B,C,D WRITE(*,30)A,B,C,D 10 FORMAT(1X,A5,I4,2E8.2) 20 FORMAT(1X,'A,B,C,D=',Z4,I4,2F7.2) 30 FORMAT(1X,'A=',A/,1X,'B=',B4/,1X,'C=',F6.1/,1X,'D=',F6.1) END

(3) 以EX5043.F90为文件名保存源程序。运行程序，观察并记录屏幕显示运行结果。

COMPLEX A LOGICAL B A=(1.6,-4.5) B=.NOT.3>6.EQV..FALSE. WRITE(*,10)A,B 10 FORMAT(1X,F10.2,F10.2/L5) END

(4) 以EX5044.F90为文件名保存源程序。运行程序，观察并记录屏幕显示运行结果。

WRITE(*,10)(3,4,I=1,2) 10 FORMAT(1X,3I3) END

(5) 以EX5045.F90为文件名保存源程序。运行程序，观察并记录屏幕显示运行结果。

READ(*,10)K,A,A WRITE(*,20)K,A 10 FORMAT(I5,F6.1,F7.2) 20 FORMAT(1X,I7,2F9.2) END 输入为: 123456789.0123456789

5. 编程完成教材第87页第4题

有一个三角形，顶点为X,Y,Z，其坐标分别为(1.5,2.0),(4.5,4.5),(18.0,10.5)。求三角形的面积和重心（提示：重心坐标=（X+Y+Z）/3利用复数计算）。

以EX505.F90为文件名保存源程序。运行程序，观察并记录屏幕显示运行结果

6. 编程完成教材第88页第10题

设有 4个圆，圆心分别在(2,2),(-2,-2),(2,-2),(-2,2),半径为1。当X,Y坐标点落在圆上和圆内时，Z=1；落在圆外时,Z=1;落在圆外时，Z=0。编出相应的的程序（要求利用逻辑变量）。

以EX506.F90为文件名保存源程序。运行程序，输入一组测试数据测试程序的正确性。

三、实验结果提交

1. 登录到ftp://202.193.94.88（用户名：TM083或TM084 ，密码：12345）。 2. 将EX501.F90～EX506.F90上传到你自己的文件夹内。