Fortran的数据结构 FORTRAN语言程序设计 知识介绍.pptVIP

1 第八章 常用算法的程序设计举例 第一章 算法 第二章 计算机和计算机程序 第四章 逻辑运算和选择结构 第五章 循环结构的实现 第六章 Fortran的数据结构 第七章 数据的输入、输出 第三章 Fortran语言程序设计初步 2 一、程序中的数据结构 程序处理的对象是数据 3 在计算机语言中，用数据类型来表示不同的数据结构。高级语言一般有以下三类数据结构：基本类型、构造类型和指针类型。 基本类型（简单类型）：整型、实型、双精度型、复型、 逻辑型、字符型等。 构造类型：数组、记录、文件、集合等。 指针类型：链表、队、栈、树、图等。 FORTRAN77提供基本类型、构造类型。 算法+数据结构=程序 4 二、双精度类型数据 双精度数在计算机系统中以两倍于实型的字节数来存储，它提供的有效数字比实型数据多一倍以上。 双精度数也是近似的表示一个数，只是它的精度更高。在同一个系统中，它与实型数据的表数范围相同。 双精度常数要以指数形式表示，并以d代替e。 1.1e2 1.1d2 0.0 0.0d0 1.0 1.0d0 双精度型数据，要先定义后使用。 double precision amount, income implicit double precision (r, x-z) real*8 imax, volt real(8) imax, volt real (kind=8) imax, volt !Fortan 90 添加 5 求： 前200项乘积。 double precision i,ai,y y=1d0 i=1d0 10 if(i.le.100d0) then ai=4.0*i*i/(4.0*i*i-1) y=y*ai i=i+1 goto 10 end if write(*,*) y=,y end 8 complex x1,x2 read(*,*) a,b,c d=b*b-4.0*a*c part1=-b/(2.0*a) part2=sqrt(abs(d))/(2.0*a) if(d.ge.0.0) then x1=cmplx(part1+part2, 0.0) x2=cmplx(part1-part2, 0.0) else x1=cmplx(part1,part2) x2=cmplx(part1,-part2) end if write(*,*) x1=,x1 write(*,*) x2=,x2 end 求一元二次方程Ax2+Bx+C=0的根 9 已知交流电路：U=220v, r0=10Ω, L0=10-3 H, r1=100 Ω, C1=100μF, r2=50 Ω, L2=10-2 H, C2=200 μF。 求：(1)等效电阻Z；(2)电流I, I1, I2 10 implicit real(l) implicit complex(u,i,z) parameter (omega=314.1592) u=(220.0,0.0) write(*,*) enter r0,l0,r1,c1,r2,l2,c2 read(*,*) r0,l0,r1,c1,r2,l2,c2 z0=cmplx(r0,omega*l0) z1=cmplx(r1,-1.0/(omega*c1)) z2=cmplx(r2,omega*l2-1.0/(omega*c2)) z12=(z1*z2)/(z1+z2) z=z0+z12 i=u/z i1=i*z12/z1 i2=i*z12/z2 write(*,*) z=,z write(*,*) i=,i write(*,*) i1=,i1 write(*,*) i2=,i2 end 11 线段AB：A(1, 1)，B(4.5, 4.5)； 求：AB长度及黄金分割点C坐标。 complex a,b,c real l read(*,*) a,b c=a+0.618*(b-a) l=abs(a-b) write(*,*) l=,l write(*,*) c=,c end 12 复型数据之间可以进行加、减、乘、除运算。 设A=（a1，a2），B=（b1，b2）： A+B=（ a1+b1，a2+b2） A-B= （ a1-b1，a2-b2） A*B= （ a1*b1-a2*b2， a1*b2+a2*b1 ） A/B= （（a1*b1+a2*b2）/ （b