fortran程序30个

土木工程用

程序1 !打开一数据文件,设置一个有格式直接存取文件,将10个数分2个记录写入文件。!数据文件生成2个记录,每个记录行长度相同,记录长度为数写入第1个记录WRITE(1,"(5I5)",REC=2)(A(I)+10,I=6,10)!按格式说明将后5个数写入第2个记录中读取后5个数READ(1,"(5I5)",REC=1)(A(I),I=1,5) !按格式说明从第1个记录中读取头5个数!打开一个最大记录长度为22的有格式顺序存取文件

土木工程用

OPEN(2,FILE='input22.dat',FORM='FORMATTED',ACCESS='D记录长度为WRITE(2,"('10个数平均值为：',I5)",REC=2)ave !输出1记录行,记录长度为WRITE(2,"(A)",REC=3) '程序运行正常结束。' !输出一个记录行,记录长度为 程序2

PROGRAM PRINT*,'正在统计平均成绩,请等待。

土木工程用

WRITE(*,"('平均成绩为：程序3

本章《文件与设备》的例题 一、本程序是一个写入文件的程序，二、源程序 。end module

土木工程用

write(fileid,"('座号:' I2/ '中文:'I3 ' 英文:' I3 ' 数学程序4本章《文件与设备》的例题 一、MODUL 可以用来封装程序模块，通常用来把程序具有相关功能的函数及变量封装在一起。二、源程序 《使用MODULE》使用这些变量的子程序和函数只要USE这个MODULE就可以使用它们。

土木工程用

程序5

本章《文件与设备》的例题 一、请调试源程序。二、源程序 《显示文件内容》

土木工程用

if(alive) then open(unit=fileid,file=filename,access="sequential",status= write(*,"(A79)")

土木工程用

说明：1、程序先要求用户输入所要阅读的文件 3、若存在则打开该文件，否则显示 ？？？ 4、对打开的文件逐行读取文件内容 5、显示改行在屏幕上其中：因为DOS及WINDOWS窗口下，一行只能显示80个字符，所以设定每次读入79个字符。 6、循环终止条件是STATUS不为0时。程序6本章《文件与设备》的例题 一、请调试源程序。二、源程序 《文件删除》character(len=20)::filename

土木工程用

if(alive) then close(fileid,status="DELETE") end用close命令关闭某文件时，可用参数DELETE删除该文件TRIM函数用来删除字符串后面的多余空格程序7本章《文件与设备》的例题 一、请调试源程序。二、源程序 《查询文件的状态》

土木工程用

说明：inquire 命令可以查询字符串filename中的文件是否存在。文件存在时ALIVE会被设成 .TRUE.,不存在则会被设成程序8

本章《文件与设备》的例题 一、请调试源程序，仔细阅读注释语句。二、源程序 《有格式顺序文件的存取》PROGRAM INTEGER ::A(10),sum=0,ave 个行输入

土木工程用

!打开一个最大记录长度为25的有格式顺序存取文件WRITE(2,"('10个数平均值为:',I5)") ave !输出一记录行WRITE(*,*) '程序运行正常结束。三、创建数据文件使用文本编辑器创建数据文件中有10个整数,第1行5个,第2行2个,第3行3个数据文件有3个记录行,每个记录行长度不同输入数据文件内容：输出数据文件内容：

土木工程用

10个数之和为： 显示器输出信息：“程序运行正常结束。”四、有格式顺序存取文件读写操作的方法？有格式顺序存取文件读写操作与键盘、显示器的读写操作类似,不同的是需要用OPEN语句打开文件,指定设备号,在READ和WRITE语句中指定设备号,而不是星号“*”。对于有格式顺序存取文件,OPEN中的RECL选项可指定文件的最大记录长度,但RECL选项对输入没有影响,按实际记录长度输入数据度将换行输出(下一个记录),如果输出数据不是字符串,则按表控格式域宽或格式编辑符指定域宽输出,允许超出最大记录长度,保证输出数据的完整性,超出最大记录长度后,下一个输出数据项换行输出。程序9本章《文件与设备》的例题 一、请调试源程序，仔细阅读注释语句。二、源程序 《设备号与文件的关系》PROGRAM

土木工程用

WRITE(*,"('输入一个整数N：'\)")!WRITE(6,*) '输入一整数N： !关闭设备号为1的逻辑设备 WRITE(6,*) '程序运行结束。END三、运行程序输入数据为： 输入一个整数N：5↙程序运行结束后,从显示器输出数据为：“程序运行结束。”,外部文件 1!=

土木工程用

2!= 程序10

本章《文件与设备》的例题 一、请调试源程序，并注释相关语句。二、源程序 《使用文件形式组织数据》 WRITE(2,*) '学生成绩有：' !注释

土木工程用

200 FORMAT(1X,'平均分数：三、数据文件输入数据文件输出数据文件学生成绩有：平均分数： 75.5 四、问题：使用文件来组织数据的步骤，它的好处是什么？上述程序使用数据文件“exam2.in”(称为输入数据文件)来组织待输入的有关数据,如：有n个成绩数据。使用数据文件“exam2.out”(称为输出数

土木工程用

据文件)来存放输出数据,如：提示信息“学生成绩有：”;n个成绩数据平均分数ave等。对于输入数据文件(文本文件)需要在程序运行前通过出数据文件无需事先建立,程序运行过程中自动创建,并将数据输出到程序新创建的输出数据文件中,其后可随时打开输出数据文件,浏览输出数据,也可被其它程序使用。在程序中使用数据文件,需要通过OPEN语句打开这些文件,指定逻辑设备和外部文件名,建立两者间的相互关系。在输入输出语句中,直接使用相关的逻辑设备号(如：1、2)从文件中输入数据,或将数据输出至文件。改变数据文件中数据不影响程序代码,程序不需重新编译和构建,直接运行即可。程序本章《文件与设备》的例题 一、请调试源程序，并注释相关语句。二、源程序 《使用键盘、屏幕组织数据》

土木工程用

PARAMETER(n=5) ! 注释 100 FORMAT(1X,F5.1,','\) ! 注释 END 本程序组织数据的方法会带来什么后果？本程序所处理的数据比较少(5个数据),数据通过赋值语句在内部生成(也可通过READ语句从键盘输入),数据通过WRITE语句从显示器上输出。数据的这种组织方式在数据量比较少的情况下是可行的,并没有什么不足之处。问题是如果程序处理的数据量比较大(如：20个、30个、使用带来诸多不便。如果程序处理的数据个数达到100个,则在程序中

土木工程用

就要写100个数据。如果这些数据有所变化,则需要在程序中直接修改数据,每次修改后,都需要重新编译、构建和运行。这种在程序中直接修改数据的做法是非常危险的,容易产生错误,将严重影响程序的可靠性。程序 100 程序!用COMMON语句建立全局变量!使用GROUP参数将公共区分组使用，目的是把变量分类，并放在彼此独立的公共区内。

土木工程用

common /GROUP1/a !定义公共区common /GROUP1/num1

土木工程用

程序共享同一存储区域，来实现数据传递的作用。common num1,num2 !定义公共区程序!自定义函数(FUNCTION)的使用

本文来源：https://www.bwwdw.com/article/yeni.html