FORTRAN语言第2章(共8章).ppt

1、第一节 FORTRAN常量 第二节 FORTRAN变量 第三节 FORTRAN内部函数 第四节算术表达式 第五节赋值语句 第六节表控输入/输出语句 第七节END、PAUSE、STOP语句,第二讲 顺序结构程序设计,第一节 FORTRAN常量,Fortran的语言元素是指在程序设计中所用到的基本成分，例如字符集、常量、变量、记号以及其它的基本结构等。只有了解并掌握了这些基本要素，才可能正确自如地使用该种语言。,一、FORTRAN字符集,26个英文字母，(除了字符串内的字符外，程序中小写字母等价于相应的大写字母) 数字09 _(下划线) 22个特殊字符,空格 = + - * / （ ） ， ： .

2、 $ ！ ” % x=y;y=z print*,交换后x和y的值为： x=,x,y=,y end,第八节 END语句、STOP语句和PAUSE语句,END语句应该出现在程序单位的最后一行，一个程序单位中只能有一个END语句。 它的作用有：结束本程序单位的运行，作为一个程序单位的结束标志，子程序中的END还有使流程返回调用程序（兼有RETURN语句的功能）。,一个程序单位中可以有多个STOP语句，执行到任一个STOP语句处时，程序即停止运行。在子程序中如果有STOP语句，也是使整个程序停止运行。,STOP 1111 或 STOP ERROR1,其中，1111和ERROR1为输出信息，供调试程序和

3、辨别流程用。数字为不超过5位的无符号整数，字符串加引号。,第八节 END语句、STOP语句和PAUSE语句,PAUSE语句是暂停语句，调试程序用，调试完成后可删去。程序暂停时，按回车键则继续运行。使用方法同STOP语句。,程序举例,【例 】 输入一个三位整数，将它反向输出，如输入123，输出321。 分析：用n代表原三位整数，n1、n2、n3分别代表其个位、十位、百位，m代表反向的数。 m=n1*100+n2*10+n3， 如：321实际上是3*100+2*10+1。解决此问题的关键在于如何将n拆分成1、2、3，这可以通整除与求余运算来完成。,integer n , m , n1 , n2 ,

4、 n3 read * , n n1=mod(n , 10) n2=mod(n/10 , 10) n3=n/100 m=n1*100+n2*10+n3 print * , 原来的数为: , n print * , 反向输出的数为: , m end,程序举例,program exam1 read(*,*) a,b,c s=(a+b+c)/2.0 area=sqrt(s*(s-a)*(s-b)*(s-c) write(*,*) a=,a,b=,b,c=,c write(*,*) area=,area end,1. 求三角形面积。（用公式 ）,program exam2 real I R0=100.

5、R1=20. R2=50. U=100. R12=R1*R2/(R1+R2) R=R0+R12 I=U/R write(*,*) R=,R write(*,*) I=,I end,2. 已知U=100v, R1=20，R2=50 , R0=100 。 求等效电阻R和总电流I。,program exam3 parameter(pi=3.1415926) h=20000. R=6.37154e6 vc=7900.*sqrt(R)/sqrt(h+R) ve=vc*sqrt(2.0) c=2.0*pi*(h+R) t=c/vc vc=int(vc*3600./1000.*100.+0.5)/100. ve=int(ve*3600./1000.*100.+0.5)/100. t=int(t/60.*100.+0.5)/100. write(*,*) vc=, vc, Km/h write(*,*) ve=, ve, Km/h write(*,*) time=, t, minutes end,3. 已知：人造卫星距地面h=20000m, 地球半径 R=6.37106m 。求：