#ifndef PI #define PI 3.14159 #endif #if:根据条件表达式的值决定是否执行后续代码 #if defined(PI) write(*,*) "Value of PI is defined" #endif #else:与#if或#ifdef/#ifndef一起使用,指定在条件不成立时执行的代码 #ifdef DEBUG write(*,*) "Debugging information" #else write(*,*) "No ...
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语句的基本语法如下: if (logical expression) then sta...
FortranPPT课件(6)IF基本用法2.2IFIF(逻辑判断式)THEN………ELSE………ENDIF逻辑成立,执行这一块代码逻辑不成立,执行这一块代码双分支条件2.2IF模块内的执行语句后缩,便于阅读和分辨2.2IFFORTRAN90FORTRAN77==判断是否“相等”.EQ./=判断是否“不相等”.NE.>判断是否“大于”.GT.>=判断是否“大于或等于”.GE....
Is there any difference between elseif and else if in Fortran? Same goes for endif and end if or enddo and end do. I found both options in a code I am working on and wondered if it makes any difference in Fortran; furthermore if one option is preferable over the other. syntax fortr...
可行。事实上,选择执行语句有多种搭配方式,非常灵活,例如: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 关于选择执行语句,还...
if块结构 新知识:可以给if块取名 judge:&if(判断)then…else…endifjudge 判断程序的应用。以下代码涉及之前学习到的知识,如新建文档,将内容输出到文档,合并字符,if判断 programtestimplicit noneinteger::scorecharacter(len=8)::nowcallDATE_AND_TIME(now)write(*,*)'请输出成绩:'read(*,*)scoreopen(1,file...
第一个endif对应第二个if,第二个endif对应第一个if。if。。。else。。。是一种选择结构,if。。。elseif。。。else是一种选择结构,一种选择结构后要有一个endif,上面是if。。。else。。中嵌套了if。。。elseif。。。else,所以你区分一下就行了。
else if(dlt.EQ.0) then x1=(-q/2)**(1/3.0)+(-q/2)**(1/3.0)x2=omig*((-q/2)**(1/3.0))+omig2*((-q/2)**(1/3.0))x3=omig2*((-q/2)**(1/3.0))+omig*((-q/2)**(1/3.0))y1=x1-b/(3*a)y2=x2-b/(3*a)y3=x3-b/(3*a)write(*,*)" 求得根的...
关于FORTRAN 95的块IF结构,以下说法中正确的是 。 A.块 IF 结构中 THEN 块或 ELSE 块不能是空块B.块 IF 结构中至少有一个 ELSE IF 语句或 ELSE 语句C.每一个 ELSE IF 语句要有一个对应的 ENDIF 语句D.一个块 IF 结构中只能有一个 ENDIF 语句(正确答案)...
if if (condition1) then ... !执行命令 elseif (condition2) ... !执行命令 elseif (condition3) ... !执行命令 else ... endif condition 中可以使用 < , <=, ==(.eq. 相等), >=, > , /=(.ne. 不等) .and. , .not. , .or. 比较...