第一个endif对应第二个if，第二个endif对应第一个if。if。。。else。。。是一种选择结构，if。。。elseif。。。else是一种选择结构，一种选择结构后要有一个endif，上面是if。。。else。。中嵌套了if。。。elseif。。。else，所以你区分一下就行了。
可行。事实上，选择执行语句有多种搭配方式，非常灵活，例如：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 关于选择执行语句，还...
else print*,'没有这个字符，请核对清楚再输入查询'print*,CHAR_num ENDIF enddo !character character string dispose Sub_String=CHAR_50(:8)CHAR_60=Sub_String//'+'//CHAR_50(:12)!character character string Logic operate CHAR_4=CHAR_50(:4)CHAR_6=CHAR_50(:6)IF(CHAR_4.EQ.CHAR_6) ...
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...
新知识:可以给if块取名 judge: & if( 判断 ) then … else … endif judge 判断程序的应用。以下代码涉及之前学习到的知识,如新建文档,将内容输出到文档,合并字符,if判断 program test implicit none integer :: score character(len=8) :: now call DATE_AND_TIME(now) write(*,*) '请输出成绩:' re...
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 PPT课件 (6)IF基本用法 2.2IF分支结构 IF基本用法 IF（逻辑判断式）THEN…逻辑成立时，才会执行这里的程序代码……ENDIF 2.2IF分支结构 单句执行命令时，可写为：If(speed>100.)write(*,*)“Slowdown”2.2IF分支结构 双分支条件 IF（逻辑判断式）THEN……逻辑成立，执行这一块代码…ELSE……...
1、12一、引言一、引言 在在FORTRAN77中,用块中,用块IF结构来实现选择结构,结构来实现选择结构,其形式为:其形式为: IF(条件)条件)THEN then 块块 ELSE else 块块 END IF3 例:计算职工工资。正常工资例:计算职工工资。正常工资rate (yuan/h),一周超过一周超过40 hours时,超过部分按时,超过部分按1.5 rate...
第四章 4.14.24.34.44.54.6 逻辑运算和选择结构 关系表达式逻辑表达式逻辑IF语句分块条件语句块IF构造多重选择和CASE构造 4.1 关系表达式 a)关系运算符关系运算符就是关系比较符。Fortran中有六个关系运算符:关系运算符英语含义所代表的数学符号 上一页下一页停止放映 .GT..GE..LT..LE..EQ..NE.(F77)>...
ENDIF ③ 嵌套结构 IF (条件1) THEN 块1 ELSE IF (条件2)THEN 块2 …… ELSE IF (条件N)THEN 块N ELSE 块N+1 ENDIF 2.3 用DO语句实现循环 基本形式如下,必须要ENDDO。 DO I=E1,E2 …… ENDDO 2.4 注意事项 在数组使用之前,必须要申明数组的维度,即dimension array(a) 否则会报错Fortran不知道是数...