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调试