FORTRAN程序

土木工程用

程序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

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

《Fortran95 程序设计》学习笔记 by 柳柳

《FORTRAN 95程序设计》学习笔记

66RPG gg

★ 目录 ★

《FORTRAN 95程序设计》学习笔记 .......................................................................................... 1

基础知识(基础、字符串、FORMAT、隐式、TYPE) .......................................................... 1 流程与控制(if、select、do)..................................................................................................... 4 数组(声明、隐式循环、整体操作、可变数组) .................................................................... 5 函数与子程序(子程序、函数、全局变量) .........................

《Fortran95 程序设计》学习笔记 by 柳柳

《FORTRAN 95程序设计》学习笔记

66RPG gg

★ 目录 ★

《FORTRAN 95程序设计》学习笔记 .......................................................................................... 1

基础知识(基础、字符串、FORMAT、隐式、TYPE) .......................................................... 1 流程与控制(if、select、do)..................................................................................................... 4 数组(声明、隐式循环、整体操作、可变数组) .................................................................... 5 函数与子程序(子程序、函数、全局变量) .........................

《Fortran95 程序设计》学习笔记 by 柳柳

《FORTRAN 95程序设计》学习笔记

66RPG gg

★ 目录 ★

《FORTRAN 95程序设计》学习笔记 .......................................................................................... 1

基础知识(基础、字符串、FORMAT、隐式、TYPE) .......................................................... 1 流程与控制(if、select、do)..................................................................................................... 4 数组(声明、隐式循环、整体操作、可变数组) .................................................................... 5 函数与子程序(子程序、函数、全局变量) .........................

1．Fibonacci数列定义如下： F1=1 F2=1

Fn=Fn-1+Fn-2 (n>2)

求Fibonacci数列的前30项。 integer f(30),i f(1)=1 f(2)=2 do i=3,30

f(i)=f(i-1)+f(i-2) enddo print*,f end

2．输入10个学生的总分，求每个学生的名次 integer s(10),a(10),i,j do i=1,10 read*,s(i) enddo do i=1,10 a(i)=1 do j=1,10

if(s(i)

1

3．给定一组数，按照从小到大的顺序输出。 integer a(10) integer p do i=1,10 read *,a(i) enddo do j=1,9 p=j

do i=j+1,10

if (a(i)

if (p/=j) then

t=a(p);a(p)=a(j);a(j)=t endif enddo

print *,(a(i),i=1,10) end

2

4．输入

1．Fibonacci数列定义如下： F1=1 F2=1

Fn=Fn-1+Fn-2 (n>2)

求Fibonacci数列的前30项。 integer f(30),i f(1)=1 f(2)=2 do i=3,30

f(i)=f(i-1)+f(i-2) enddo print*,f end

2．输入10个学生的总分，求每个学生的名次 integer s(10),a(10),i,j do i=1,10 read*,s(i) enddo do i=1,10 a(i)=1 do j=1,10

if(s(i)

1

3．给定一组数，按照从小到大的顺序输出。 integer a(10) integer p do i=1,10 read *,a(i) enddo do j=1,9 p=j

do i=j+1,10

if (a(i)

if (p/=j) then

t=a(p);a(p)=a(j);a(j)=t endif enddo

print *,(a(i),i=1,10) end

2

4．输入

选择结构程序设计作业

前面学习了比较简单的顺序结构程序设计，在顺序结构程序中每条语句都是按书写顺序依次顺序执行。使用顺序结构编写程序，只能求解逻辑关系非常简单的问题，可是许多实际问题，往往具有复杂的逻辑关系，仅使用顺序结构难以编写程序，需要使用更复杂的程序结构，如选择结构(分支结构)。选择结构是求解复杂问题和体现程序智能化的重要程序结构。

FORTRAN90提供了多种用于实现选择结构的语句，如：逻辑IF语句、块IF语句、多支块IF语句和SELECT语句，其中SELECT语句是FORTRAN90新引入的用于实现块CASE结构的语句，它与多支块IF语句在功能上非常相似，但在某些情况下，使用SELECT语句比使用多支块IF语句更简洁和高效。

本实验是学习和掌握关系表达式、逻辑表达式、选择结构语句、选择结构程序设计方法的一次系统实验活动。通过本次实验，能设计和编写简单的具有选择结构的程序，为学习和掌握更复杂的程序结构和程序设计方法奠定基础。

一． 实验内容1

1．问题描述

某高校实行学分制，学分制规定：成绩大于等于60分可获得3个学分和3个绩点，否则不能获得学分和绩点，同时成绩大于等于80分可增加2个绩点。输入学生成绩，计算并输出学生获得的学分和绩点

第二章 Digital Visual FORTRAN 5.0 入门

FORTRAN语言是最早出现的计算机高级程序设计语言,它对程序设计语言的研究和发展产生了极其深刻的影响。随着计算机科学技术的飞速发展,FORTRAN语言也不断得到完善和充实,从传统FORTRAN,到结构化FORTRAN,再到具有现代特征的Digial Visual FORTRAN 5.0。

本章将介绍FORTRAN语言的发展历史、Digital Visual FORTRAN 5.0简介、Microsoft Developer Studio开发环境、FORTRAN 90语言书写格式,以及FORTRAN 90程序的编辑、创建、打开、保存、编译、连接和运行等内容。

2.1 FORTRAN语言发展概述

FORTRAN是英文“FORmula TRANslator”的缩写,译为“公式翻译器”,它是世界上最早出现的计算机高级程序设计语言,广泛应用于科学和工程计算领域。FORTRAN语言以其特有的功能在数值、科学和工程计算领域发挥着重要作用。

早在1951年,美国IBM公司约翰·贝克斯(John Backus)针对汇编语言的缺点着手研究开发FORTRAN语言,并于1954年在纽约

第二章 Digital Visual FORTRAN 5.0 入门

FORTRAN语言是最早出现的计算机高级程序设计语言,它对程序设计语言的研究和发展产生了极其深刻的影响。随着计算机科学技术的飞速发展,FORTRAN语言也不断得到完善和充实,从传统FORTRAN,到结构化FORTRAN,再到具有现代特征的Digial Visual FORTRAN 5.0。

本章将介绍FORTRAN语言的发展历史、Digital Visual FORTRAN 5.0简介、Microsoft Developer Studio开发环境、FORTRAN 90语言书写格式,以及FORTRAN 90程序的编辑、创建、打开、保存、编译、连接和运行等内容。

2.1 FORTRAN语言发展概述

FORTRAN是英文“FORmula TRANslator”的缩写,译为“公式翻译器”,它是世界上最早出现的计算机高级程序设计语言,广泛应用于科学和工程计算领域。FORTRAN语言以其特有的功能在数值、科学和工程计算领域发挥着重要作用。

早在1951年,美国IBM公司约翰·贝克斯(John Backus)针对汇编语言的缺点着手研究开发FORTRAN语言,并于1954年在纽约

第四章 内部数据类型与表控输入输出

FORTRAN 90预定义五种内部数据类型:整型(INTEGER)、实型(REAL)、复型(COMPLEX)、字符型(CHARACTER)和逻辑型(LOGICAL),每种类型都具有参数化特性(KIND参数),通过KIND参数可对内部数据类型进行细化,它们是程序中使用最广泛的数据类型。用户可直接使用内部数据类型说明数据对象(常量、变量、数组等)。

内部数据类型分为两类:数值型(整型、实型和复型)和非数值型(字符型和逻辑型)。 在程序中需要选择和使用符合精度和范围要求的数据类型。FORTRAN 90内部数据类型具有参数化特性,通过KIND值参数确定数据最佳的存储开销、精度和范围。表4-1给出内部数据类型的不同KIND值参数及存储开销。

表4-1 内部数据类型KIND值参数及存储开销

类型 BYTE INTEGER 整型 INTEGER(1) INTEGER(2) INTEGER(4) INTEGER(8) REAL 实型 REAL(4) REAL(8) COMPLEX 复型 COMPLEX(4) DOUBLE COMPLEX COMPLEX(8) CHARACTER 字符型 CHARACTER*len