GDB调试.pptx

复习第十三讲内容旧版本的Fortran特性格式:1-5列是行号第一列是C或者星号,表示本行为注释第六列如果不是空白或0,表示续行注释有效语句位置续行旧版本第一列用C或*从第7列到72列第6列非0为续行Fortran90!开始的行从第1-132列用&表示续行行号在1-5列每行程序的最前面DATA语句的使用 变量初始化: DATAa,b,c/,2*/ 数组初始化: REALa(2,2) DATAa/1.,2.,3.,4./!按列优先旧的PARAMETER语句:INTEGERSIZEPARAMETER(SIZE=MON块中的数据BLOCKDATAinitialINTEGERvar1,MON/mydata/var1,var2DATAvar1,var2/1,2/ENDBLOCKDATA四条不必要的子程序特性另一子程序的返回点另一入口点语句函数将内置函数作为参数传递语句函数PAUSESTOPENDPAUSE语句用于暂停程序的执行已经在Fortran95中被删掉STOP语句用于终止程序的执行可以在STOP后面加参数,形式如下:STOPstop_value例如:STOP‘pletion’当终止时,会显示这个字符串END语句在Fortran90之前,所有的程序单元都用END结束Fortran90以后,标准是用形如:ENDPROGRAMENDMODULE之类的语句当然,也可以单用END但是,:设置三个和maze数组一样结构的数组:Step_maze用于保存当前块在路径中的步数Leave_direction用于保存在路径中离开当前块的方向,0表示东面,1,2,3分别表示南西北From_direction表示从哪个方向到达当前块过程列表: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),不设置辅助数组用自定义的数据结构来保存在每个块上面的步数、方向等信息TYPE::maze_elementINTEGER::roadINTEGER::leave_directionINTEGER::from_directionINTEGER::stepENDTYPEmaze_element