下载此文档

第四章-数组.ppt


文档分类:IT计算机 | 页数:约53页 举报非法文档有奖
1/53
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/53 下载此文档
文档列表 文档介绍
《气象程序设计及绘图》课题组南京信息工程大学Nanjing University of Information Science & Technology【例3-1】输入3个气象站5个月(汛期)雨量数据,统计每个气象站的总雨量和平均雨量。站名汛期各月雨量(毫米)-1 1998年主要站汛期雨量统计表例题回顾:1《气象程序设计及绘图》课题组南京信息工程大学Nanjing University of Information Science & Technology第一种方法:顺序结构,设置21个变量,分别输入各站降水量,并计算各站5个月总降水量及平均值1PROGRAM ex06_022IMPLICIT NONE3REAL r11,r12,r13,r14,r15,total11,av114REAL r21,r22,r23,r24,r25,total21,av215REAL r31,r32,r33,r34,r35,total31,av31。。。。。。2《气象程序设计及绘图》课题组南京信息工程大学Nanjing University of Information Science & Technology第二种方法:利用循环,输入一个站某月的降水量,累计一次,计算该站总降水量及平均值1PROGRAM ex06_022IMPLICIT NONE3REAL: : r1,total1=,av14REAL :: r2,total2=,av25REAL :: r3,total3=,av36INTEGER i7Do i=1,58Read*, r1,r2,r39total1=total1+r110 total2=total2+r211 total3=total3+r312 end do13 av1=total1/514 av2=total2/515 av3=total3/516Print *, ‘ Jiangying station’, ‘total precipitation:’, total1, ‘average:’ av117 end3《气象程序设计及绘图》课题组南京信息工程大学Nanjing University of Information Science & Technology第三种方法:设置3个数组,分别输入各站降水量,并计算各站5个月总降水量及平均值1PROGRAM ex06_022IMPLICIT NONE3REAL r1(5), total1,av14REAL r2(5), total2,av25REAL r3(5), total3,av36INTEGER i7Do i=1,58Read*, r1(i),r2(i),r3(i)9total1=total1+r1(i)10total2=total2+r2(i)。。。。。。11 total3=total3+r3(i)12 end do13 av1=total1/514 av2=total2/515 av3=total3/516Print *, ‘ Jiangying station’, ‘total precipitation:’, total1, ‘average:’ av117 Print *, (r(i),i=1,5)18 end4《气象程序设计及绘图》课题组南京信息工程大学Nanjing University of Information Science & Technology第4章数组5《气象程序设计及绘图》课题组南京信息工程大学Nanjing University of Information Science & Technology本章内容?数组的定义与引用?数组的逻辑结构与存储结构?数组的输入输出?给数组赋初值?动态数组?数组常用算法举例6《气象程序设计及绘图》课题组南京信息工程大学Nanjing University of Information Science & 概述数组的概念(1)是一种构造类型的数据结构(2)由一组具有同一类型的变量组成(3)在内存占据连续的一段存储单元(4)数组中所包含的每个数据称为数组元素,它可以通过下标来区分注意:数组与简单变量的区别7《气象程序设计及绘图》课题组南京信息工程大学Nanjing University of Information Science & (1)用类型说明语句定义数组类型说明数组名(维说明符[,维说明符, …])[,数组名,…] I

第四章-数组 来自淘豆网www.taodocs.com转载请标明出处.

相关文档 更多>>
非法内容举报中心
文档信息
  • 页数53
  • 收藏数0 收藏
  • 顶次数0
  • 上传人allap
  • 文件大小1.10 MB
  • 时间2016-10-24