在Fortran中,stop语句用于终止程序的执行。它不需要与endif语句配对使用,因为Fortran中没有endif语句。 stop语句可以在程序的任何位置使用,用于提前终止程序的执行。它可以带有一个可选的整数参数,用于指定程序终止的错误代码。如果省略该参数,则默认使用0作为错误代码。
if(逻辑判断式)then……end if 如果then后面只有一句,可写为 if(逻辑判断式)……!then和endif可省略 (2) 多重判断: if(条件1)then……else if(条件2)then……else if(条件3)then……else……end if (3)嵌套: if(逻辑判断式)thenif(逻辑判断式)thenif(逻辑判断式)thenelse if(逻辑判断式)then……e...
1、12一、引言一、引言 在在FORTRAN77中,用块中,用块IF结构来实现选择结构,结构来实现选择结构,其形式为:其形式为: IF(条件)条件)THEN then 块块 ELSE else 块块 END IF3 例:计算职工工资。正常工资例:计算职工工资。正常工资rate (yuan/h),一周超过一周超过40 hours时,超过部分按时,超过部分按1.5 rate...
可行。事实上，选择执行语句有多种搭配方式，非常灵活，例如：1. IF(A>=0) THEN ...ELSEIF(A<0) THEN ...ENDIF 2. IF(A>=0) THEN ...ELSE ...ENDIF 3. IF(A>=0) THEN ...ELSEIF(A<0) THEN ...ELSE !也就是说else后可以不跟判别语句和执行语句 ENDIF 关于选择执行语句，还...
elseif (condition3) ... !执行命令 else ... endif condition 中可以使用 < , <=, ==(.eq. 相等), >=, > , /=(.ne. 不等) .and. , .not. , .or. 比较数组是,使用any 或者all select case selectcase(keywrod)case(A)...case(B)...casedefault...endselect do loop...
1.if...then 这是最简单的if语句结构。 if...then的语句结构如下: if (logical expression) then statement endif 还可以对if块进行命名: [name:] if (logical expression) then ! various statements . . . 2.if...then...elseif...then...else语句的基本语法如下: ...
5 在编辑区中输入以下代码： program main integer A,B,C,D,E do A=1,9,1 do B=0,9,1 do C=0,9,1 do D=0,9,1 do E=0,9,1 if((10000*A+1000*B+100*C+10*D+E)*4 .eq. $ (10000*E+1000*D+100*C+10*B+A)) then write(*,100)A,B,C,D,E endif end do end do end...
2 然后定义文件路径并查询是否存在，不存在就创建fileDir = '.\03014\'inquire(file = trim(fileDir),EXIST=FEXIST)if(.not.FEXIST) then call system('md '//trim(fileDir)) write(*,*) 'New folder created'endif 3 定义文件名、后缀和文件序号书写格式fileName = &...
26、,dir.txt)=0)then!我生成的是绝对路径,所以,用该函数检查读取的这一行是否为文件列表本身,如果不是再往下操作 open(2,file=/trim(Path)/,status=old) read(2,*)a close(2) b=b+a endif goto 1020 close(1)!文件读取结束print*,b !输出和end program listfile二、运行时动态生成文件名 这个是针...
1.Fortran 的 if 语句需要 then 和 endif。如果没有，则必须写为一行。因此 if(abs(f)<=1e-10)print*,k 需改为 if(abs(f)<=1e-10) then print*,k end if 或改为 if(abs(f)<=1e-10) print*,k 2.Fortran 的循环变量应该是整数。所以 k 做为循环变量，并且从浮点数循环到浮点数...