第三章顺序结构程序设计

综合应用—P49~52
1、已知三角形的三个边长，请计算三角形的面积 2、将两个变量互换 3、任意输入两个非0数，求它们的和、差、积、商。 4、输入一个三位整数，输出其每一位位数的平方值， 如输入135，分别输出25，9,1 mod(x,y)： （1）求余数 （2）判断一个数能否被另外一个数整除
5、已知一个圆的半径R、高度H，写出计算 圆周长、圆面积、圆柱全面积、圆锥体积 的程序。
输出项所占用的字符个数。
• •
例如：J=234 Print “(I5)”,J
J=234 Print 10,j 10 format(i5)
(2) F编辑符。用于实型量的输入输出 (按小数形式 )。
它的一般格式是：
rFw.d
其中 r 为重复系数，为 1 时可以省略。 w 为字段宽度，
d为输入输出项小数部分所占的位数。
• • • • • • • •
Complex p,q Real x X=1.25 Q=(1.5,1) P=cmplx(x,2*x)+10-x X=p+q Print*,x,p end
a=12.58 a=(a-.15)*10 i=a a=i a=a/10 Print *,a End
知识点小结
• 顺序结构程序设计 • 程序=数据结构+算法 变量定义 符号常量说明
第三章 顺序结构程序设计 (P37~53)
教与学要求
• 掌握fortran输入输出语句的使用
• 掌握赋值语句的使用
• 利用所学的知识实现简单问题的程序设 计。
主要内容
• • • • 赋值语句 输入语句 输出语句 应用
赋值语句P38
一般格式为： 变量名=表达式 例如， PI=3.1416 X=X1+X2*X3+5 I=I+1 赋值语句的作用是： 将右边表达式的值赋给左边变量，即将 表达式的值存放到变量所对应的存储单元。
圆周长： P=2πR 圆面积： S= πR2 圆拄全面积：S1= 2πR (H+R) 圆锥体积：V=1/3 πR2 H
• • • • • • • • • • •
real r,h,p,s,vs,vh parameter (pi=3.14) print *,"请输入半径和高度" read *,r,h p=2*pi*r s=pi*r**2 vs=2*pi*r*(h+r) vh=1.0/3*pi*r**2*h print 10,p,s,vs,vh 10 format(4f10.2) end
问题与思考
阅读以下程序,写出结果 INTEGER M,N REAL X,Y M=5/2 N=5.0/2 X=5/2 Y=5.0/2 print *,M,N,X,Y END
问题与思考
分析下列程序的结果： IMPLICIT NONE !取消隐含规则约定 INTEGER M,N READ*,M,N,N,M M=M+N N=M+N PRINT*,M,N END 当输入7 8 9 10时，输出结果为？
• 算法: （语句） 提供数据 处理数据 输出数据
1、表控格式输出 print *,输出项 write(*,*)输出项 2、格式输出 print 语句标号，输出项
write(*,语句标号)输出项
语句标号 format(格式说明）
(1) I编辑符。用于十进制整数的输入输出。 一般格式是： rIw 其中r是重复系数，为1时可以省略。
w表示字段宽度，即与该编辑描述符对应的输入
IMPLICIT NONE
INTEGER::I,J,K READ *,I,J K=I/J PRINT *,’K=’,K END 当输入9，2时，输出结果为 。
课后习题
• • • • • • • • • Character *5 ch1,ch2,ch3*10 Ch1=“easy” Ch2=“difficult” Ch3=ch1//ch2 Ch1=ch3(6:9) Ch2=ch3(:5) Print 10,ch1,ch2,ch3 10 format (3a6) end
ቤተ መጻሕፍቲ ባይዱ题应用
• 球的半径为4，求其表面积和体积。 问题分析：
数据结构
算法
s 4r 4 v r 3 3
2
注意
1、不同类型数据的赋值 2、复型数据的赋值----cmplx() complex a,b a=(2.0,4.5) 应改为 B=cmplx(3.4+3.4,9.0) b=(3.4+3.4,9.0) 3、字符数据的赋值 character*7 ch ch=“china”
（3）A编辑符。用于字符型数据的输入和输出
（4）斜杠（/)编辑符
功能：换行输出
应用
real r,s,v r=4 s=4*3.14*r**2 v=4.0/3*3.14*r**4 !表控格式输出 print *,s,v !格式化输出 print 10,s,v 10 format(2f10.2) end
例如： 2）输入的数据要与定 义的类型匹配。 READ*，X，Y，Z READ(*,*)X,Y,Z 其中第一个*表示“系统隐含指定的输入设备”，第 二个*是指“表控输入”。
应用
ln(x y) 输入x和y的值，计算 2 32 sin ( xy) 1
2
输出语句---print,write
输入语句—read P40
用READ语句实现数据输入，方式有3种: （1）数据按用户规定的格式输入； （2）用自由格式输入，即表控格式输入。 （3）无格式输入，即以二进制形式输入，
只适用从磁盘或磁带输入。
表控格式输入
其一般格式为：
READ*，变量表 READ（*，*）变量表
注意： 1）多个输入时候，分 隔符可以是逗号，空格 或回车符