2-顺序结构程序设计(2)

授课教师:袁丽蓉Email:School of EngineeringSun YatSen University Gungzhou China第二章第二章 顺序结构程序设计（顺序结构程序设计（2）l 赋值语句l 简单的输入输出语句l 程序控制语句l 程序举例FORTRAN程序设计Page2赋值语句n赋值语句的类型：算术赋值语句，逻辑赋值语句，字符赋值语句n格式：L =R L：变量名、数组名、数组元素名等；R：一个表达式或常量；=：赋值符号。n说明：1）赋值语句具有先计算、后赋值双重功能；2）=和数学中的等号不同；3）左端的变量和右端的表达式都有自己的类型、种别，它们的类型可以不同；如果类型不同先按照表达式的计算规则得到表达式的值，再转换为与变量相同的类型，然后赋值给变量。program mainimplicit noneInteger M,Nreal x,yM=5/2N=5.9/2X=5/2Y=5.0/2endFORTRAN程序设计Page3输入输出的概念n输入和输出是相对于计算机内存而言的。n输入：数据从外部设备(如键盘、磁盘、光盘等)输送到计算机内存的过程，又叫做“计算机从外部设备读取数据”n输出：数据从内存输送到外部设备(如显示器、打印机、磁盘等)的过程，又叫做“计算机向外部设备写数据”。n输入输出语句提供的信息：1）在什么外部设备上输人或输出。2）输人或输出哪些数据。3）用什么格式输人或输出。nFortran提供的输入语句：read 输出语句：print和writeFORTRAN程序设计Page4简单的输入输出语句n简单的输入语句：read*，变量表 read(*,*)变量表n说明：1）从计算机系统隐含指定的输入设备上输入数据；2）输入变量中的数据（要求一一对应）；3）自由输入格式。n注意：1）个数相同，类型一致；少了则等待，多了也没用。2）使用多个read 语句时，每一个read语句都是从一个新的输入行开 始读数。3）输入数据之间可出现斜线“”。read语句遇到“”，结束读数。4）如果read语句中有几个连续的变量要赋以相同的值，则可用重复 因子r，r表示某一数据重复出现的次数。5）在一个数之间不能插入空格，空格是两个数据间的分隔符。program mainimplicit noneinteger x,y,zread*,xread*,y,zprint*,x,y,zend12 31,22,31,22,312*312/3FORTRAN程序设计Page5简单的输入输出语句n固定格式输出语句：print*，输出表 write（*，*）输出表n说明：1）Print语句的输出设备由计算机系统隐含指定(打印机或显示 器)，面用write语句则可以在任何设备（如磁盘、磁带等)上输 出，它的用途比print语句广泛。2）write（*，*）第一个*表示输出设备，第二个*表示输出格式。3）当输出语句中无输出表时，则意味着输出一个“空白行”。4）系统对表控输出中的不同类型的数据给出不同的（但固定的）输 出格式。program example2implicit nonereal maxnum,minnum,x1,x2,x3read*,x1,x2,x3maxnum=max(x1,x2,x3)minnum=min(x1,x2,x3)print*,the max num is,maxnumwrite(*,*)the min num is,minnumend1.1,2.2,3.3the max num is 3.300000the min num is 1.100000FORTRAN程序设计Page6stop语句n停止程序运行n作用：调试程序中使用，程序运行到此，会停止运行，并在屏幕上显示提示标记。n格式：stop n 其中n是不超过五位数的数字或字符串。FORTRAN程序设计Page7Pause语句npause语句即暂停语句。n作用：调试程序中使用，程序运行到此，会暂时停止，并在屏幕上显示提示标记，等待操作者输入其它命令后程序继续运行。n格式：pause n 其中n是不超过五位数的数字或字符串。FORTRAN程序设计Page8END语句nEND语句是程序结束语句n作用：1）结束本程序单元的运行，每个完整的fortran程序都必须有END语句。2）在FORTAN子程序中，同样用END语句结束程序单元，同时还有返回被调用处的功能。FORTRAN程序设计Page9Parameter语句n参数说明语句：给常量命名的语句，即用一个名字代表一个常量。n作用：避免重复输入，便于变更。n格式：1)real pi parameter（pi=3.1415926）2)real，parameter:pi=3.1415926n说明：1）parameter语句是一种非执行语句，在程序中要求被写在与它有 关的类型说明语句之后以及所有可执行语句之前。2）一旦一个名字被定义成符号常量后，就不能再赋值。3）符号常量不能作为语句标号，不能在格式说明语句中代替常 数，也不能出现在复型常量中(符号常量只能是整型、实型、逻 辑型和字符型常量)除此之外，凡出现常量的地方均可用符号常 量代替。FORTRAN程序设计Page10Parameter语句应用举例n求园的周长和面积 program main real,parameter:PI=3.1415926,RA=2.0 real peri,area peri=2.0*PI*RA area=PI*RA*RA Print*,peri,areaendFORTRAN程序设计Page11分析程序，写出结果 implicit noneinteger M,Nreal a,b,xm=7n=4a=2.4b=1.2x=m/2+n*a/b+1/2print*,xendFORTRAN程序设计Page12分析程序，写出结果implicit noneinteger M,Nreal a,b,xm=7n=4a=-2.4b=1.2x=mod(m,n)+sign(a,b)print*,xendFORTRAN程序设计Page13程序举例n例2.4 已知：f(x)=x*3+sin(x)*sin(x)+ln(x*4+1),输入自变量的值，求对应的函数值。program mainimplicit nonereal x,yprint*,please input x:read*,xy=x*3+sin(x)*sin(x)+log(x*4+1)print*,yendFORTRAN程序设计Page14程序举例n例2.5 将两个变量的值互换分析：用变量x，y存放待交换的数据，用临时变量t保存其中一个变量，如x的值，在通过x=y，y=t实现交换。program mainimplicit nonereal x,yprint*,please input x,y:read*,x,yt=xx=yy=tprint*,x,yendFORTRAN程序设计Page15程序举例n例2.6 输入一个三位整数，将它反向输出，如输入123，输出321.分析：用N代表输入的三位整数，M代表要输出的整数，N1代表个位，N2为十位，N3为百位。则N=N3*100+N2*10+N1 M=N1*100+N2*10+N3program mainimplicit noneinteger M,N,N1,N2,N3print*,please input N:read*,NN1=mod(N,10)N2=mod(N/10,10)N3=N/100M=N1*100+N2*10+N3print*,Mend