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...
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) THEN p...
在Fortran中，或条件可以使用逻辑运算符“.OR.”来表示。例如：```IF(X.OR.Y)THEN!如果X或Y中有一个非零，则执行以下语句ENDIF```在上面的代码中，如果X或Y中有一个非零，则IF语句中的条件为真，将执行THEN语句块中的代码。如果X和Y都为零，则条件为假，将跳过THEN语句块中的代码。需要注意...
do j=i+1,10 if(F_Sort(i).LT.F_Sort(j)) then intSort=F_Sort(i)F_Sort(i)=F_Sort(j)F_Sort(j)=intSort endif enddo enddo !数据标准IO输出!!!键盘输入数据的标准IO输出显示--检查与监测 PRINT*,"键盘输入的整数个数N: " PRINT*,I_N PRINT*,"键盘输入数据的处理结果："PRINT*,"计...
judge: & if( 判断 ) then … else … endif judge 判断程序的应用。以下代码涉及之前学习到的知识,如新建文档,将内容输出到文档,合并字符,if判断 program test implicit none integer :: score character(len=8) :: now call DATE_AND_TIME(now) write(*,*) '请输出成绩:' read(*,*) score open(...
program cycle_example implicit none integer :: i do i = 1, 10 if (mod(i, 2) == 0) then cycle ! 跳过偶数 endif print *, 'Odd number:', i end do print *, 'Loop has ended.' end program cycle_example 在这个例子中,每当i是偶数时,CYCLE语句会导致循环跳过当前的迭代,直接开始下一次...
Fortran PPT课件 (6)IF基本用法 2.2IF分支结构 IF基本用法 IF（逻辑判断式）THEN…逻辑成立时，才会执行这里的程序代码……ENDIF 2.2IF分支结构 单句执行命令时，可写为：If(speed>100.)write(*,*)“Slowdown”2.2IF分支结构 双分支条件 IF（逻辑判断式）THEN……逻辑成立，执行这一块代码…ELSE……...
unitnerrbhiostatmerrbhiostatm可以省略backspace说将文件读写指针回退一行6fortran77选择判断语句61逻辑if语句if逻辑表达式程序语句62无else块if逻辑表达式then程序块endif63标准选择if逻辑表达式then程序块1else程序块2endif64多重选择块if逻辑表达式1then程序块1elseif逻辑表达式2then程序块2elseif逻辑表达式2then程序块2...
可行。事实上，选择执行语句有多种搭配方式，非常灵活，例如：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 关于选择执行语句，还...
1program odd_num23implicitnone4integer :: num,num_odd5print *,'Input data number:'6read *,num78num_odd =0910do11num = num -11213if(num<0) then14exit15elseif (mod(num,2)==0) then16cycle17else18num_odd = num_odd +119endif202122print *, num23enddo2425print *,'The number of od...