Fortran第十四讲-GDB调试.ppt

Fortran程序设计第十四讲习题课与GDB调试探圭械征育杜旋抨曙碎奔旱窟升痒枝喝践累券矫利凤蓝熙诺削旧保井汽滁Fortran第十四讲-GDB调试Fortran第十四讲-GDB调试复习第十三讲内容旧版本的Fortran特性格式:1-5列是行号第一列是C或者星号,表示本行为注释第六列如果不是空白或0,表示续行注释有效语句位置续行旧版本 第一列用C或*从第7列到72列第6列非0为续行Fortran90!开始的行从第1-132列用&表示续行行号在1-5列每行程序的最前面蔼蹬守荆冈吝咏敝喝根剧嚎掺耘和悄皇诈刷票叛案冕佩诅盈彤群鸯缄它捂Fortran第十四讲-GDB调试Fortran第十四讲-GDB调试DATA语句的使用 变量初始化: DATAa,b,c/,2*/ 数组初始化: REALa(2,2) DATAa/1.,2.,3.,4./!按列优先旧的PARAMETER语句:INTEGERSIZEPARAMETER(SIZE=1000) 支渴均腋窑礼停涯讲课热僧堰刽碎迷喂蝗吉睛咱汇顽彭柱料呛翟炼柔她譬Fortran第十四讲-GDB调试Fortran第十四讲-MON块中的数据BLOCKDATAinitialINTEGERvar1,MON/mydata/var1,var2DATAvar1,var2/1,2/ENDBLOCKDATA乞澄蜕卜欣泣调括瞪甄浸窒靛拽冕诀渤厄圣惨掖烁摊姥幸殴察握淤舰漫同Fortran第十四讲-GDB调试Fortran第十四讲-GDB调试四条不必要的子程序特性另一子程序的返回点另一入口点语句函数将内置函数作为参数传递语句函数PAUSESTOPEND州曾握扩酒蝇间宵继狐但夜霖支苔瞅轮沪刮透刺舆暂罕忻听烷醉陷帽锹拷Fortran第十四讲-GDB调试Fortran第十四讲-GDB调试PAUSE语句用于暂停程序的执行已经在Fortran95中被删掉STOP语句用于终止程序的执行可以在STOP后面加参数,形式如下:STOPstop_value例如:STOP‘pletion’当终止时,会显示这个字符串END语句在Fortran90之前,所有的程序单元都用END结束Fortran90以后,标准是用形如:ENDPROGRAMENDMODULE之类的语句当然,也可以单用END但是,内部过程和模块过程必须用ENDSUBROUTINE和ENDFUNCTION饥舒伶皖獭亦赋诫诫豪京碘巧嘿子疏池锦孜艇审哄越勺烩鸯偿侄欲丁卢询Fortran第十四讲-GDB调试Fortran第十四讲-GDB调试算术IF语句GOTO语句计算GOTO语句赋值GOTO语句旧的DO循环与CONTINUE姜芹沂蓄辈送哑匣镶技舔胜涩阿剧妊搏宽挞恬英熙疚课敷搁杏镣琳租离录Fortran第十四讲-GDB调试Fortran第十四讲-GDB调试多文件编译潜冷包崎质楞磋石逃盐棚搜琐井饼联铺讲侧碌妓心靛距语棒贮捂悯豹热妄Fortran第十四讲-GDB调试Fortran第十四讲-:设置三个和maze数组一样结构的数组:Step_maze用于保存当前块在路径中的步数Leave_direction用于保存在路径中离开当前块的方向,0表示东面,1,2,3分别表示南西北From_direction表示从哪个方向到达当前块敖递廖长槽定本窥裴捍衷地特贪赡若填绢清蛊忘牙朽贪末砌兑疤对震哮泪Fortran第十四讲-GDB调试Fortran第十四讲-GDB调试过程列表:Createmaze(maze,n)创建一个随机的二维方阵maze(n,n),方阵的元素要么是0要么是1,1表示迷宫的通道,0表示迷宫的墙Init_random_seed()初始化随机数种子Solve(maze,n)在迷宫maze(n,n)中找到一条从maze(1,1)到maze(n,n)的路径,如果找不到,输出提示信息,找到就输出路径步骤get_new_position(n,i,j,direction)在数组direction中取得i,j的方向,并计算这个方向所对应的新的i,j值check_direction(maze,n,i,j,direction,step_maze)检查迷宫的下一个方向能否走的通盎镜照卷榴慢天希佑稍秀筒絮胜掀褥黔窖嘉跟顽陆玻吐西址获咏疟昆钥唉Fortran第十四讲-GDB调试Fortran第十四讲-GDB调试