4.输入若干名学生的学号和三门课程(语数英)的成绩,要求从键盘输入一个学生的学号,能打印出该学生的三门功课成绩和总分。 character*6,dimension(:),allocatable::xue integer,dimension(:,:),allocatable::g integer,dimension(:),allocatable::zong integer i,j,n character*6,xh print *,"请输入学生的个数" read *,n allocate(xue(n)) allocate(g(n,3)) allocate(zong(n)) do i=1,n read *,xue(i),(g(i,j),j=1,3) enddo do i=1,n zong(i)=0 do j=1,3 zong(i)=zong(i)+g(i,j) enddo enddo print *,"请输入你要打印的学生的学号" read *,xh do i=1,n if(xue(i)==xh)then print *,(g(i,j),j=1,3),zong(i) exit endif enddo end
成长话题作文 -作文
成长话题作文-作文 《我们在成长》 /每一缕星光都闪烁着如歌的往事,每一个清晨都预示着无限的启迪,成长话题作文。站在人生的十字路口,我回头望,一路上的点点滴滴,如同沙滩上的脚印,真真实实地刻在心头,时刻提醒着我:我们在成长。站在成人的门槛外,眼前身后或许仍然是一张张稚嫩的脸。年轻而明亮的眼睛,透露出那么一丝愤世嫉俗,寂寞的笑容里潜藏着淡淡的忧伤。也许成长就是这样:忧伤和着欢喜,失落和着欣慰,喧哗和着宁静。曾经五味的日子,在回忆的画面里,已酿成芬芳。每当夜幕迈着轻盈的步伐姗姗而来,白昼的繁荣和喧闹渐渐销声匿迹,在朦胧和宁静的夜晚,我常常陷入无边的回忆之中。 在回忆中,那曾经许下的愿望与美丽的诺言,那执著的坚持与不懈的努力,都化为幸福的叶片,被我精心收藏。在成长的路上往往是孤独的,要学会在没有别人喝彩的时候自己给自己加油。不用畏惧,不用担心,勇敢、坦然地面对成长中遇到的一切,给自己鼓励,给自己信念,给自己快乐。在成长的旅程中,我们需要的是从容地经历,平静地感知,勇敢地面对。每个人的成长都不可能是一帆风顺的,若成长是一篇著作,那么烦恼便是藏在段落深处的错字;如果成长是一张白纸,那么烦恼便是附在背面的一个瑕疵。我也曾在一棵树下安静地休憩过,凝神思考着自己在寻找什么;我也曾在松手的一瞬间被甩出老
远,需要花费更多的时间站在原来的起点上重新开始;我也曾孤单一 人夜行百里,来到这个荒岛打算过远离人世纷杂的日子……但从始至终我唯一没有改变的就是----我一直都不曾放弃。 为了寻找儿时的梦想,再次整装出发;为站回原来的起点,毫不顾虑外界的讥讽与嘲笑,艰难地向前爬行;为赎回自己出卖的灵魂,找回内心的那一份感动,努力着……为这个生命,各种方式证明自己的存在。就在我快要放弃时,桑地亚哥这句“人并不是生来就要被打败的”,退缩将不再是理由;就在我快要放弃时,,拿破仑这句“在我的字典里从来就没有’难’这个字”,困难将不再是借口。 人的一生总在不断地跌倒,又不断地爬起,失败的人会说:老天没有给我机遇;成功的人会说:上帝把我从门里踢出来,我再想办法从窗子爬进去。这就是一种成长。是的,成长记录着痛苦,也镌刻下欢乐;成长承载着汗水,也衬托出努力。沿着成长的足迹,一次次,我们追随星光梦影,迎向成熟.走向未来。成长是一种痛,但我不愿让它留下伤痕。成长是一种蜕变,经历了磨难才能破茧而出。成长之路可能是灰暗无光的,如同收拢华美翅羽的孔雀,但不能放弃期待,因为快乐可能就在那里等待。千帆过尽,总会有雪白的海浪载你去彼岸的快乐之岛。 那天,我放学回家,写完作业后,按照常规,去拿日记本,忽然,我发现日记本被移动过,我顿时火冒三丈,一想便知道一定是他们。我走出卧室,大声问他们是不是看过我的日记?他们反而正大光明的说,了解我的全部,是他们的义务。
Windows CMD命令大全
cmd是command的缩写.即命令行。 虽然随着计算机产业的发展,Windows 操作系统的应用越来越广泛,DOS 面临着被淘汰的命 运,但是因为它运行安全、稳定,有的用户还在使用,所以一般Windows 的各种版本都与其兼容,用户可以在Windows 系统下运行DOS,中文版Windows XP 中的命令提示符进一步提高了与DOS 下操作命令的兼容性,用户可以在命令提示符直接输入中文调用文件。 在9x系统下输入command就可以打开命令行.而在NT系统上可以输入cmd来打开,在 windows2003后被cmd替代,利用CMD命令查询系统的信息或者是判断网络的好坏。 运行操作 CMD命令:开始->运行->键入cmd或command(在命令行里可以看到系统版本、文件系统版本) CMD命令锦集 1. gpedit.msc-----组策略 2. sndrec32-------录音机 3. Nslookup-------IP地址侦测器,是一个监测网络中DNS 服务器是否能正确实现域名解析的命令行工具。它在Windows NT/2000/XP 中均可使用, 但在Windows 98 中却没有集成这一个工具。 4. explorer-------打开资源管理器 5. logoff---------注销命令 6. shutdown-------60秒倒计时关机命令 7. lusrmgr.msc----本机用户和组 8. services.msc---本地服务设置 9. oobe/msoobe /a----检查XP是否激活 10. notepad--------打开记事本 11. cleanmgr-------垃圾整理 12. net start messenger----开始信使服务 13. compmgmt.msc---计算机管理 14. net stop messenger-----停止信使服务 15. conf-----------启动netmeeting 16. dvdplay--------DVD播放器 17. charmap--------启动字符映射表 18. diskmgmt.msc---磁盘管理实用程序 19. calc-----------启动计算器 20. dfrg.msc-------磁盘碎片整理程序 21. chkdsk.exe-----Chkdsk磁盘检查 22. devmgmt.msc--- 设备管理器 23. regsvr32 /u *.dll----停止dll文件运行 24. drwtsn32------ 系统医生 25. rononce -p----15秒关机 26. dxdiag---------检查DirectX信息 27. regedt32-------注册表编辑器 28. Msconfig.exe---系统配置实用程序 29. rsop.msc-------组策略结果集 30. mem.exe--------显示内存使用情况
最新成长为话题的高中作文
成长为话题的高中作文 有人说一个人成长的过程是一个不断学习的过程.有人因为学到知识而成长;有人因为学到技能而成长;有人因为克服困难而成长;我在学习他人,取长补短中成长. 我从小热衷于画画,空闲时就拿起画笔画这画那.妈妈见我十分喜爱画画.我在上初中时给我报了一个素描班。因为基础比较好,我在素描班中一直画得很好。 “这回小m画得最好,不错,进步很大,大家要多向他学习啊!”听了这话,我一怔。心里既替他高兴,但心里又很不舒服。原先我与小m是一起报名的,他的基础并不好,与我相差很远。“他怎么进步那么快?你又为什么总是止步不前呢?”我暗暗的问自己。妈妈见我一脸沮丧,看出了我的心思,便对我说:“你知道为什么小m进步,你却不进步吗?”我一脸茫然,摇摇头。“小m进步是因为他善于从自己身上找不足,他懂得学习别人的长处,取长补短,完善自己。你记得吗,当老师表扬谁画得好时他总是认真听着,那自己的画与别人的对比。还经常让你们帮他挑缺点。然后再把自己的画改正,所以他进步。而你呢?你觉得自己画的不错,就总按着自己的方法画。别人给你指出得缺点你也不当回事。上次的缺点这回还有。你不去看看别人的优点,从别人的身上学习,又怎能进步呢?”听了妈妈的话,我觉得很有道理。是啊!小m基础虽不好,但他会学习别人的优点,取长补短。而我却总是看着自己,没有从别人身上学习。又怎能进步呢?
于是,在以后的素描课上,我留心听老师指出的缺点和老师对别人画中的评价。吸取别人的优点,并努力改正自己的缺点。像小m一样询问自己画中的缺点。将别人好的地方,用手机照相功能照下来,回到家后仔细观察研究,学习别人对明暗交界线的处理方法,反光,高光与投影的画法。并把这些用到我的画中。努力完善自己,渐渐地,我也一点点进步起来,往日老师表扬的话语又回荡在我的耳边。 从这件事中,不仅教会了我怎样画画,也教会了我一个道理:画画和生活一样,要学习别人,效法他人,取长补短,看清自己的不足才能进步。学习时人不断进步,我们在学习中成长。 优秀高中作文推荐阅读: 高一作文:令人难忘的细节 关于挫折的作文 高二说明文:面对挫折
fortran程序实例
1)实例3—求多个半径下的圆周长 ! z3.f90 --Fortran95 ! FUNCTIONS: ! z3 - Entry point of console application. !************************************************************************* ! PROGRAM: z3 ! PURPOSE: Entry point for the console application. !************************************************************************ program z3 ! 求多个半径下的圆周长 ! 主程序 ! PROGRAM Z3 PRINT *, 'R=',1.2,'C=',C(1.2) PRINT *, 'R=',3.4,'C=',C(3.4) PRINT *, 'R=',15.6,'C=',C(15.6) PRINT *, 'R=',567.3,'C=',C(567.3) END program z3 !子程序 FUNCTION C(R) PI=3.1415926 C=2*PI*R RETURN ! Body of z3 end
2)实例4—键盘与显示器输入/输出 a)Fortran 基本操作 b)程序指令 ! ZXZ_I_O.f90 ! FUNCTIONS: ! ZXZ_I_O - Entry point of console application. ! PROGRAM: ZXZ_I_O ! PURPOSE: Entry point for the console application. !***************输入、输出样式种种************************** program ZXZ_I_O implicit none !变量声明的位置 INTEGER(2) i; INTEGER(4) j; INTEGER(4) m; REAL n INTEGER A,B ! Variables PRINT*,'输入整数A'; READ*, A PRINT*,'输入整数B'; READ*, B B=A+B PRINT*,'B=A+B=',B WRITE(*,*) 'A*B=',A*B PRINT* ,'以上为计算机的计算结果,注意B的值'
FORTRAN 95 语法速查
FORTRAN 95 语法速查 ----------白云、李学哲、陈国新、贾波编著《FORTRAN95程序设计》读书笔记 目录:一、应用程序的创建与运行/FORTRAN 95所用的字符/ 变量类型及其声明,常量声明/表达式与运算符 二、输入与输出:表控、有格式 三、选择语句与结构:IF语句、CASE结构 四、DO循环结构 五、数组:数组的声明,数组的引用,数组的算术运算,数组的输入、输出,给数组赋初值, 动态数组,WHERE、FORALL语句 六、子程序:语句函数,内部子程序,调用子程序时的虚实结合:形参为数组、非定界数组、子 程序名、星号,递归子程序,外部子程序,纯子程序,逐元子程序 七、派生数据类型与结构体 八、指针与动态链表 九、文件:存取方式,基本操作语句,各类文件的读写操作 十、接口、模块 十一、公用区、存储关联、数据块子程序 十二、绘图:坐标系、设置图形颜色、创建图形程序/ 常用过程:设置线型、绘一像素点、设置当前位置、绘直线、绘弧线、绘矩形、绘多边形、绘制扇形(圆、椭圆)/ 文字信息的显示 附/录:标准函数与标准子例行程序 一、基础部份 1-1 FORTRAN 95 应用程序的创建与运行 创建或运行FORTRAN 95程序必须在Microsoft Developer Studio平台上进行。尽管程序文本及相关文件的编辑可以在任一文本编辑器上进行,然后再拷到Studio的文档窗口中。但最好还是一开始就进入Studio环境。创建FORTRAN 95 程序的步骤大致如下: 1)启动Microsoft Developer Studio 可以通过不同方式运行dfdev.exe程序以启动Microsoft Developer Studio [开始] \ Compaq Visual Fortran 6 \ Developer Studio \ dfdev.exe:或 ……\CVF66 \https://www.360docs.net/doc/eb12350707.html,\MSDEV98\dfdev.exe Microsoft Developer Studio的界面如下图所示: 文档窗口 工作空间窗口 输出窗口
WINDOWS中CMD命令大全(可直接打印)
开始→运行→输入的命令集锦 winver---------检查Windows版本 wmimgmt.msc----打开windows管理体系结构(WMI) wupdmgr--------windows更新程序 wscript--------windows脚本宿主设置 write----------写字板 winmsd---------系统信息 wiaacmgr-------扫描仪和照相机向导 winchat--------XP自带局域网聊天 mem.exe--------显示内存使用情况 Msconfig.exe---系统配置实用程序 mplayer2-------简易widnows media player mspaint--------画图板 mstsc----------远程桌面连接 mplayer2-------媒体播放机 magnify--------放大镜实用程序 mmc------------打开控制台 mobsync--------同步命令 dxdiag---------检查DirectX信息 drwtsn32------ 系统医生 devmgmt.msc--- 设备管理器 dfrg.msc-------磁盘碎片整理程序 diskmgmt.msc---磁盘管理实用程序 dcomcnfg-------打开系统组件服务 ddeshare-------打开DDE共享设置 dvdplay--------DVD播放器 net stop messenger-----停止信使服务 net start messenger----开始信使服务 notepad--------打开记事本 nslookup-------网络管理的工具向导 ntbackup-------系统备份和还原 narrator-------屏幕“讲述人” ntmsmgr.msc----移动存储管理器 ntmsoprq.msc---移动存储管理员操作请求 netstat -an----(TC)命令检查接口 syncapp--------创建一个公文包 sysedit--------系统配置编辑器 sigverif-------文件签名验证程序 sndrec32-------录音机 shrpubw--------创建共享文件夹 secpol.msc-----本地安全策略 syskey---------系统加密,一旦加密就不能解开,保护windows xp系统的双重密码 services.msc---本地服务设置Sndvol32-------音量控制程序 sfc.exe--------系统文件检查器 sfc /scannow---windows文件保护 tsshutdn-------60秒倒计时关机命令 tourstart------xp简介(安装完成后出现的漫游xp程序)taskmgr--------任务管理器 eventvwr-------事件查看器 eudcedit-------造字程序 explorer-------打开资源管理器 packager-------对象包装程序 perfmon.msc----计算机性能监测程序 progman--------程序管理器 regedit.exe----注册表 rsop.msc-------组策略结果集 regedt32-------注册表编辑器 rononce -p ----15秒关机 regsvr32 /u *.dll----停止dll文件运行 regsvr32 /u zipfldr.dll------取消ZIP支持 cmd.exe--------CMD命令提示符 chkdsk.exe-----Chkdsk磁盘检查 certmgr.msc----证书管理实用程序 calc-----------启动计算器 charmap--------启动字符映射表 cliconfg-------SQL SERVER 客户端网络实用程序 Clipbrd--------剪贴板查看器 conf-----------启动netmeeting compmgmt.msc---计算机管理 cleanmgr-------垃圾整理 ciadv.msc------索引服务程序 osk------------打开屏幕键盘 odbcad32-------ODBC数据源管理器 oobe/msoobe /a----检查XP是否激活 lusrmgr.msc----本机用户和组 logoff---------注销命令 iexpress-------木马捆绑工具,系统自带 Nslookup-------IP地址侦测器 fsmgmt.msc-----共享文件夹管理器 utilman--------辅助工具管理器 sndrec32-------录音机 Nslookup-------IP地址侦测器 explorer-------打开资源管理器 logoff---------注销命令 tsshutdn-------60秒倒计时关机命令 lusrmgr.msc----本机用户和组
fortran语言语法
FORTRAN是世界上最早出现的高级编程语言,是工程界最常用的编程语言,它在科学计算中(如航空航天、地质勘探、天气预报和建筑工程等领域)发挥着极其重要的作用。经过40多年的发展,伴随着FORTRAN语言多次版本的更新及相应开发系统的出现,其功能不断完善,最新版本的开发系统几乎具备了VC、VB的所有特点,如图形界面编程、数据库等。目前,工科院校开设的计算机编程语言课首选仍然是FORTRAN :< 说实话,从科技发展的趋势来说这不是好事。您可以设想一下,如果需要用鹅毛笔抄写大量的古籍是什么感受! 强烈建议阅读《发掘C#特性赋予科学计算项目以威力》 1 FORTRAN77四则运算符 + - * / ** (其中**表示乘方) 在表达式中按优先级次序由低到高为: +或-→*或/→**→函数→() 2 FORTRAN77变量类型 隐含约定:I-N规则 凡是以字母I,J,K,L,M,N六个字母开头的,即认为是整型变量,其它为实型变量。 用类型说明语句确定变量类型:可以改变I-N规则
用IMPLICIT语句将某一字母开头的全部变量指定为所需类型 如IMPLICIT REAL (I,J) 三种定义的优先级别由低到高顺序为:I-N规则→IMPLICIT语句→类型说明语句,因此,在程序中IMPLICIT语句应放在类型说明语句之前。 数组的说明与使用 使用I-N规则时用DIMENSION说明数组,也可在定义变量类型同时说明数组,说明格式为:数组名(下标下界,下标上界),也可省略下标下界,此时默认为1,例:DIMENSION IA(0:9),ND(80:99),W(3,2),NUM(-1:0),A(0:2,0:1,0:3)
以成长为话题作文指导精编版
以“成长”为话题作文指导 一、话题作文是围绕一个话题写作的一种形式。提供的话题,规定了表达的中心内容,但不限制取材范围,立意取向和表达方式。它与命题作文最大的区别是有更多的自由。只要不离开话题,什么都可以写。 二、在我们成长的过程中,既有阳光雨露呵护,也有寒风雪霜相伴,它们都是人生的一笔财富。幸福和谐的生活,让我们品评甜蜜,懂得了珍惜;苦难艰辛的处境,使我们志怀高远,实现了超越。尊重关爱,让我们学会宽容;挫折磨难,使我们变得成熟。在经历与体验中,我们逐渐摆脱了蒙昧、自私、幼稚……我们长大了。 在成长的道路上,你有哪些与众不同的经历,有哪些与众不同的思考?请以“成长”为话题,写一篇不少于600字的文章。 要求:立意自定,文体自选,题目自拟。 1、读提示语言。 2、确立写作范围。 3、解话题。同学们,你们能说说什么叫“成长”?那么你觉得哪些算是成 长呢? 4、文体选择。 懂得了道理、学习的进步、自主能力的提高、感受的加深…… A.品德方面的成长:会帮助同学了为父母做事了能恪守诺言坚持原则…… B.学习方面的成长:能坚持不懈了自己的难题自己解决能主动探索知识了能体会到大人的苦心了知道细心的重要…… C.能力方面的成长:学会了一项技能能自己独自回家了会开展小队活动了会为大家服务了能耐心做事情…… D.友情方面的成长:会解决同学矛盾会真心对待朋友学会了谦让…… E.在失败与沮丧中的成长:失败中得到启发摩擦中懂得谅解矛盾中得到教训后悔中得到成长 强调:我们还应该注意到“成长”是一种变化,是—个兑变的过程,从无知到有知,从有错到认错,从没感受到感受深刻,我们在写作文时还要注意这种变化。 作为中学生,我们的生活有可能有阳光,也同时有阴霾相伴,这段青春成长的足迹有可能歪歪斜斜,有可能一路途……写出心灵悟语,写出精神的跋涉,文体以夹叙夹议的记叙文为佳。文学素养深厚的同学,尽可尝试抒情散文笔法,寓情于事,寓情于景,寓情于物。 无论是哪类记叙文,都有总体写作要求: 1、根据表达需要,确定表达的内容和中心;记事记叙文中,对事的选定,叙 事时材料的取舍,详略的处理,结构的安排以至语言的运用,都要围绕中心进行。写人记叙文要2、通过典型事例表现人物思想品质的闪光点,通过这些闪光点来表现人物的内心世界。 选择恰当的表达方式,表达自己的意思。记叙文以记叙、描写为主要表达方式,根据主题的需要可运用适当的抒情、议论。运用联想和想象,丰富表达的内容。 3、由于命题作文内容广泛,应注意缩小题目,以小见大。常用的命题方法有:
几个fortran程序
计算圆周率 REAL R,R1,R2,PI ISEED=RTC() N0=0 N=300000 DO I=1,N R1=RAN(ISEED) R2=RAN(ISEED) R=SQRT(R1*R1+R2*R2) IF(R<1.0)N0=N0+1 END DO PI=4.0*N0/N WRITE(*,*)PI END 一)蒙特卡洛计算生日问题 假设有N个人在一起,各自的生日为365天之一,根据概率理论,与很多人的直觉相反,只需23个人便有大于50%的几率人群中至少有2个人生日相同。 INTEGER M(1:10000), NUMBER1(0:364), NUMBER2 REAL X,Y ISEED=RTC() DO J=1, 10000 NUMBER1=0 X=RAN(ISEED) NUMBER1(0)=INT(365*X+1) JJJ=1 DO I=1,364 Y=RAN(ISEED) NUMBER2=INT(365*Y+1) ETR=COUNT(NUMBER1.EQ.NUMBER2) IF (ETR= =1) THEN EXIT ELSE JJJ=JJJ+1 M(J)=JJJ NUMBER1(I)=NUMBER2 END IF END DO END DO DO I=1,10000 IF(M(I).LE.23) SUM=SUM+1 END DO PRINT *,SUM/10000 END 二)MONTE CARLO SIMULATION OF ONE DIMENSIONAL DIFFUSION 蒙特卡罗计算一维扩散问题
INTEGER X,XX(1:1000,1:1000) REAL XXM(1:1000) ! X:INSTANTANEOUS POSITION OF ATOM ! XX(J,I):X*X ,J:第几天实验,I:第几步跳跃 ! XXM(I): THE MEAN OF XX WRITE(*,*) "实验天数JMAX,实验次数IMAX" READ(*,*) JMAX,IMAX ISEED=RTC() DO J=1,JMAX !第几天实验 X=0 !!! DO I=1,IMAX !第几步跳跃 RN=RAN(ISEED) IF(RN<0.5)THEN X=X+1 ELSE X=X-1 END IF XX(J,I)=X*X END DO END DO OPEN(1,FILE="C:\DIF1.DAT") DO I=1,IMAX XXM=0.0 XXM(I)=1.0*SUM(XX(1:JMAX,I))/JMAX !! WRITE(1,*) I, XXM(I) END DO CLOSE(1) END 三维的! 三)通过该程序了解FORTRAN语言如何画图(通过像素画图)USE MSFLIB INTEGER XR,YR !在的区域中画一个圆 PARAMETER XR=400,YR=400 INTEGER R, S(1:XR,1:YR) X0=XR/2 ! 圆心位置X0,YO Y0=YR/2 R=MIN(X0-10,Y0-10) !圆半径 S=0 !像素的初始状态(颜色) DO I=1,XR DO J=1,YR IF((I-X0)**2+(J-Y0)**2<=R**2)S(I,J)=10 IER=SETCOLOR(S(I,J)) IER=SETPIXEL(I,J) END DO END DO END
windors系统运行命令大全
windors系统运行命令大全 winver---------检查Windows版本 wmimgmt.msc----打开windows管理体系结构(WMI) wupdmgr--------windows更新程序 wscript--------windows脚本宿主设置 write----------写字板 winmsd---------系统信息 wiaacmgr-------扫描仪和照相机向导 winchat--------XP自带局域网聊天 mem.exe--------显示内存使用情况 Msconfig.exe---系统配置实用程序 mplayer2-------简易widnows media player mspaint--------画图板 mstsc----------远程桌面连接 mplayer2-------媒体播放机 magnify--------放大镜实用程序 mmc------------打开控制台 mobsync--------同步命令 dxdiag---------检查DirectX信息 drwtsn32------ 系统医生 devmgmt.msc--- 设备管理器 dfrg.msc-------磁盘碎片整理程序 diskmgmt.msc---磁盘管理实用程序 dcomcnfg-------打开系统组件服务 ddeshare-------打开DDE共享设置 dvdplay--------DVD播放器 net stop messenger-----停止信使服务 net start messenger----开始信使服务 notepad--------打开记事本 nslookup-------网络管理的工具向导 ntbackup-------系统备份和还原 narrator-------屏幕“讲述人” ntmsmgr.msc----移动存储管理器 ntmsoprq.msc---移动存储管理员操作请求 netstat -an----(TC)命令检查接口 syncapp--------创建一个公文包 sysedit--------系统配置编辑器 sigverif-------文件签名验证程序 sndrec32-------录音机 shrpubw--------创建共享文件夹 secpol.msc-----本地安全策略 syskey---------系统加密,一旦加密就不能解开,保护windows xp系统的双重密码services.msc---本地服务设置 Sndvol32-------音量控制程序
fortran语法手册
1F O R T R A N77四则运算符+ - */ ** (其中**表示乘方) 在表达式中按优先级次序由低到高为:+或-→*或/→**→函数→() 2 FORTRAN77变量类型 隐含约定:I-N规则 凡是以字母I,J,K,L,M,N六个字母开头的,即认为是整型变量,其它为实型变量。 如IMPLICIT REAL (I,J) 三种定义的优先级别由低到高顺序为:I-N规则→IMPLICIT语句→类型说明语句,因此,在程序中IMPLICIT语句应放在类型说明语句之前。 数组的说明与使用 使用I-N规则时用DIMENSION说明数组,也可在定义变量类型同时说明数组,说明格式为:数组名(下标下界,下标上界),也可省略下标下界,此时默认为1,例:DIMENSION IA(0:9),ND(80:99),W(3,2),NUM(-1:0),A(0:2,0:1,0:3) REAL IA(10),ND(80:99)使用隐含DO循环进行数组输入输出操作:例如 WRITE(*,10) ('I=',I,'A=',A(I),I=1,10,2) 10FORMAT(1X,5(A2,I2,1X,A2,I4)) 使用DATA语句给数组赋初值 变量表中可出现变量名,数组名,数组元素名,隐含DO循环,但不许出现任何形式的表达式:例如 DATA A,B,C/,, DATA A/,B/,C/ DATA A,B,C/3*CHARACTER*6 CHN(10) DATA CHN/10*''/INTEGER NUM(1000) DATA (NUM(I),I=1,500)/500*0/,(NUM(I),I=501,1000)/500*1/ 3 FORTRAN77程序书写规则