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