Fortran 90上级实验报告

实验一
上机日期:2012年2月23日
1.实验目的:
(1)了解FORTRAN90与软件开发环境的关系.
(2)掌握FORTRAN90上机实操作过程.
(3)掌握FORTRAN90软件开发环境启动方法.
(4)理解有关工作区,项目,文件创建方法.
(6)熟悉软件开发环境图形用户界面.
(7)掌握程序输入,编译,运行方法.
(8)了解软件开发环境常用菜单,工具按钮,环境窗口基本功能.
2上机过程记录
(1)主要记录输入程序的原代码:
Program main
Real length,width,radius
Real ::unitprice=0.5,totalprice,area
Print*,’请输入图形长宽值:’
Read*,length,width
Print*”请输入绿地半径:”
Read*,radius
Area=length*width-3.1415926*radius**2
Totalprice=unitprice*area
Print*,’地块总价为:’totalprice’万元’
End
(2)调试过程: D:\shiyan01\xm1\chengxul.f90
D:\shiyan01\xm1\chengxul.f90(6) : Error: Syntax error, found CHARACTER_CONSTANT '请输入绿地半径:' when expecting one of: , <END-OF-STATEMENT> ;
Print*"请输入绿地半径:"
------^
D:\shiyan01\xm1\chengxul.f90(10) : Error: Invalid character_kind_parameter. No underscore Print*,'地块总价为:'totalprice'万元'
------------------------------------^
D:\shiyan01\xm1\chengxul.f90(10) : Error: Syntax error, found IDENTIFIER 'TOTALPRICE' when expecting one of: ( * :: , <END-OF-STATEMENT> ; : ) (/ [ + - . ] /) ** / > // .LT. ...
--------------------^
D:\shiyan01\xm1\chengxul.f90(10) : Error: This Hollerith or character constant is too long and cannot be used in the current numeric context. ['地块总价为:']
Print*,'地块总价为:'totalprice'万元'
-------^
Error executing df.exe.
xm1.exe - 4 error(s), 0 warning(s)
(3)调试成功的程序的原代码
Program main
Real length,width,radius
Real ::unitprice=0.5,totalprice,area
Print*,’请输入图形长宽值:’
Read*,length,width
Print*”请输入绿地半径:”
Read*,radius
Area=length*width-3.1415926*radius**2
Totalprice=unitprice*area
Print*,’地块总价为:’totalprice’万元’
End
3收获:
对FORTRAN90软件有了一个全面清晰的了解,初步熟悉了软件开发环境图形截面,熟悉掌握常用菜单,工具按钮和环境窗口的操作截面.
工作空间,项目和原程序不可使用中文名
输入标点后要转换英文输入状态.
实验二
1.实验目的:
(1)了解FORTRAN90字符集
(2)掌握FORTRAN90实体名称的语法描述规则和具体要求.
(3)了解FORTRAN90关键字意义,以及与名称区别.
(4)掌握FORTRAN90程序组织结构和语句排列次序的基本原则.
(5)掌握FORTRAN90自由书写格式及三个标志符主要作用.
(6)理解数据,数据表是,数据类型概念, 熟悉FORTRAN90数据类型.
2上机过程记录
(1)主要记录输入程序的原代码:
program example
integer(1)::I;J;K
integer S
print*,'请输入三个整数:'
read*,I,J,K
S=I+J+K
print*,'I1+I2+I3=',S
print*'三个整数所有可能的排列次序有:'
print*I,J,K
print*I,K,J
print*J,I,K
print*J,K,I
print*K,I,J
print*K,J,I
end program
(2)调试过程D:\shiyan01\xm1\chengxul.f90
D:\shiyan01\xm1\chengxul.f90(2) : Error: Syntax error, found ';' when expecting one of: ( : % . = =>
integer(1)::I;J;K
---------------^
D:\shiyan01\xm1\chengxul.f90(8) : Error: Syntax error, found CHARACTER_CONSTANT 'sange:' when expecting one of: , <END-OF-STATEMENT> ;
print*'sange:'
------^
D:\shiyan01\xm1\chengxul.f90(9) : Error: Syntax error, found IDENTIFIER 'I' when expecting one of: , <END-OF-STATEMENT> ;
print*I,J,K
------^
D:\shiyan01\xm1\chengxul.f90(10) : Error: Syntax error, found IDENTIFIER 'I' when expecting one of: , <END-OF-STATEMENT> ;
print*I,K,J
------^
D:\shiyan01\xm1\chengxul.f90(11) : Error: Syntax error, found IDENTIFIER 'J' when expecting one of: , <END-OF-STATEMENT> ;
print*J,I,K
------^
D:\shiyan01\xm1\chengxul.f90(12) : Error: Syntax error, found IDENTIFIER 'J' when expecting one of: , <END-OF-STATEMENT> ;
print*J,K,I
------^
D:\shiyan01\xm1\chengxul.f90(13) : Error: Syntax error, found IDENTIFIER 'K' when expecting one of: , <END-OF-STATEMENT> ;
print*K,I,J
------^
D:\shiyan01\xm1\chengxul.f90(14) : Error: Syntax error, found IDENTIFIER 'K' when expecting one of: , <END-OF-STATEMENT> ;
print*K,J,I
------^
D:\shiyan01\xm1\chengxul.f90(3) : Error: A specification statement cannot appear in the executable section.
integer S
^
Error executing df.exe.
xm1.exe - 9 error(s), 0 warning(s)
(3)调试成功的程序的原代码
program example
integer(1)::I;J;K
integer S
print*,'请输入三个整数:'
read*,I,J,K
S=I+J+K
print*,'I1+I2+I3=',S
print*'三个整数所有可能的排列次序有:' print*I,J,K
print*I,K,J
print*J,I,K
print*J,K,I
print*K,I,J
print*K,J,I
end program。