第3章最基本的FORTRAN语句_第1页
第3章最基本的FORTRAN语句_第2页
第3章最基本的FORTRAN语句_第3页
第3章最基本的FORTRAN语句_第4页
第3章最基本的FORTRAN语句_第5页
已阅读5页,还剩9页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

第3章最基本的FORTRAN语句FORTRAN程序设计1FORTRAN语句

FORTRAN语句分为可执行语句和不可语句。可执行语句:计算机在执行的过程中是要执行的。标准格式书写时,根据具体情况语句标号可以写也可以不写。不可执行语句:计算机在执行的过程中是不执行的。标准格式书写时,语句标号一定不能写或语句标号一定要写(仅指FORMAT语句)。2算术赋值语句

算术赋值语句的一般格式:

xxxxxv=e

其中:v是变量名或数组元素。

e是算术表达式。作用:将算术表达式e的结果赋给变量v3参数说明语句的一般格式:

parameter(参数名=常数,……)作用:将常数赋给参数名。例如:parameter(pi=3.1415926,k=100,a0=214.0,imax=5)程序中定义的参数名只能够在表达式中使用,不能对它赋值。参数说明语句4输入和输出一:带格式输出语句的一般形式

XXXXXwrite(设备号,格式语句标号)变量名表语句标号format(1x,格式说明符表)变量名表:由若干个变量名或数组元素相互间用逗号分割组成的内容。格式说明符表:由若干个格式说明符相互间用逗号分割组成的内容。5例如:write(10,20)m,n20format(1x,i10,i10)数值型格式说明符:Iw(整型输出)w为十进制正整数,表示输出整数的宽度fw.d(小数点型输出)w,d为十进制正整数,w表示输出数据的宽度,d表示小数部分占的位数

Ew.d(指数型输出)w,d为十进制正整数,w表示输出数据宽度,d表示指数型小数部分的位数输入和输出6

输入和输出非数值型格式说明符:X型格式符:

nXn为十进制正整数,空n格H型格式符:

nHh1h2…hn

n为十进制正整数,原样输出h1h2…hn

或‘h1h2…hn’原样输出h1h2…hn

格式符的重复数:

n格式符n为十进制正整数,表示格式符的重复数例如:write(5,10)i1,i2,a,b,c10format(1x,2i8,2x,2f10.3,2x,2Hc=,e12.5)7输入和输出二:带格式输入语句的一般形式

XXXXXread(设备号,格式语句标号)变量名表语句标号

format(格式说明符表)例如:read(5,20)a,b,k20format(2f7.4,i5)执行以上输入时,输入数据是:35000415002或3.54.152或3.5,4.15,28stop、pause语句一:stop语句的一般格式xxxxxstop或xxxxxstop八进制数终止程序的执行。二:pause语句的一般格式xxxxxpause或xxxxxpause八进制数暂时停止程序的执行。三:stop语句、pause语句和END行的区别9应用举例编写求三角形的面积的FORTRAN程序。

read(5,10)a,b,cformat(3f8.3)s=(a+b+c)/2.0area=sqrt(s*(s-a)*(s-b)*(s-c))write(5,20)a,b,c,areaformat(1x,2ha=,f8.3,3x,2hb=,f8.3,3x,2hc=,f8.3,3x5harea=,f8.3)end10应用举例编写求5个数中绝对值最大的数的FORTRAN程序。

read(5,10)a,b,c,d,eformat(5f8.3)

arge=max(a,b,c,d,e)write(5,20)arge20format('THEGREATERNUMBERIS',f10.3)end11应用举例“鸡兔同笼问题”在一个笼子里养着鸡与兔,但不知其中鸡有多少只,兔有多少只。只知道鸡和兔的总数是a,鸡与兔的总脚数是b,求鸡与兔各有多少只。思路分析:首先从题目本身开始,找出解决问题的基本思路。每只鸡有两只脚,每只兔有四只脚。假设有x只鸡和y只兔,则根据已知条件可列出如下方程组:

x+y=a2x+4y=b对该方程组做进一步的转换可得:y=(b-2a)/2x=(4a-b)/212应用举例算法描述:定义integer变量a,b,x,y输入鸡和兔的总数a及输入鸡与兔的总脚数b计算鸡的数量x计算兔的数量y输出鸡的数量输出兔的数量源程序清单:integera,b,x,yread(*,*)a,bx=(4*a-b)/2

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论