Fortran：do循环

声明：本博文翻译自：https://www.tutorialspoint.com/fortran/fortran_loops.htm编程语言提供各种控制结构，允许更复杂的执行路径。
循环语句允许我们多次执行一个语句或一组语句。
fortran提供了下面三种类型循环。分别是do loop; do while loop; nested loop
下面进行详解：
1. do loop
do loop的一般形式为：
do var = start, stop [,step]    ! statement(s)…
end do
这里需要注意：循环变量var必须是整型；start为循环变量初值；stop为循环变量终值；step为循环变量的增量。当省略step时，默认为1。注意：step也可以是负数，此时start > stop.
示例代码2如下：
Program mainimplicit noneinteger :: ido i = 1, 10write(*,'(1x,g0)') iend do
End program main
用ivf，执行结果为：
1
2
3
4
5
6
7
8
9
10
示例代码2：用来计算10!
Program factorial  implicit none  integer :: nfact = 1   integer :: n  do n = 1, 10      nfact = nfact * n write(*,'(1x,g0,3x,g0)') n, nfact   end do end program factorial
用ivf，执行结果如下：
1             1
2             2
3             6
4            24
5           120
6           720
7          5040
8         40320
9        362880
10       36288002. do while loop
当给定条件为真时，它重复执行一个或一组语句。它在执行循环体之前进行条件测试。
基本语法如下：
do while (logical expr) statements
end do
示例代码如下：
Program factorial  implicit none  integer :: nfact = 1   integer :: n = 1 do while (n <= 10)       nfact = nfact * n n = n + 1  !.. do while loop多了这一句write(*,'(1x,g0,3x,g0)') n, nfact end do
End program factorial
执行结果如下：
2             1
3             2
4             6
5            24
6           120
7           720
8          5040
9         40320
10        362880
11       36288003. nested loops
此种循环方式叫多重循环。一个简单的示例如下：
iloop: do i = 1, 3print*, "i: ", ijloop: do j = 1, 3         print*, "j: ", j         kloop: do k = 1, 3print*, "k: ", kend do kloopend do jloop
end do iloop
此处给出示例代码：
Program nestedLoop implicit noneinteger:: i, j, kiloop: do i = 1, 3      jloop: do j = 1, 3         kloop: do k = 1, 3              print*, "(i, j, k): ", i, j, k               end do kloop       end do jloopend do iloopEnd program nestedLoop
用ivf，执行结果如下：(i, j, k):            1           1           1(i, j, k):            1           1           2(i, j, k):            1           1           3(i, j, k):            1           2           1(i, j, k):            1           2           2(i, j, k):            1           2           3(i, j, k):            1           3           1(i, j, k):            1           3           2(i, j, k):            1           3           3(i, j, k):            2           1           1(i, j, k):            2           1           2(i, j, k):            2           1           3(i, j, k):            2           2           1(i, j, k):            2           2           2(i, j, k):            2           2           3(i, j, k):            2           3           1(i, j, k):            2           3           2(i, j, k):            2           3           3(i, j, k):            3           1           1(i, j, k):            3           1           2(i, j, k):            3           1           3(i, j, k):            3           2           1(i, j, k):            3           2           2(i, j, k):            3           2           3(i, j, k):            3           3           1(i, j, k):            3           3           2(i, j, k):            3           3           3除了上面介绍的三种循环类型，还有三种循环控制语句。分别是exit；cycle；stop
exit: 跳出离exit最近的外层循环。如果循环有署名，也可以跳出对应的署名循环
示例代码：
Program exittestimplicit noneinteger:: i, j, kiloop: do i = 1, 3      jloop: do j = 1, 3         kloop: do k = 1, 3    print*, "(i, j, k): ", i, j, k               if (k==2) thenexit jloop  !..  k = 2时，跳出jloopend ifend do kloop       end do jloop  end do iloop End program exittest
用ivf，执行结果如下：
(i, j, k): 1  1  1
(i, j, k): 1  1  2
(i, j, k): 2  1  1
(i, j, k): 2  1  2
(i, j, k): 3  1  1
(i, j, k): 3  1  2cycle: cycle类似于exit，都在循环体内部。一般与if语句搭配使用。当条件满足时，cycle跳过循环，注意不是跳出循环。这一点与exit不同。
示例代码如下：
Program cycle_example     implicit none     integer :: i     do i = 1, 20          if (i == 5) then cycle          end if         print*, i      end do  End program cycle_example
用ivf，执行结果如下：
1
2
3
4
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20stop: stop代表程序的终止。
示例代码：
Program mainimplicit noneinteger :: i do i = 1, 10if ( i == 5 ) stopprint*, iend do
End program main
执行结果为：
1
2
3
4

Fortran：do循环相关推荐

Fortran学习3：控制流2：循环
一个程序中循环是非常重要的,他会控制变量进行多次相同运算,在数组操作中有着不可替代的地位,今天就走进Fortran的循环,感受一下循环的乐趣. 哦,对了,Fortran程序在stop之前,可以加一个p ...
Fortran入门 - 基本语法一篇通
0. 前些日子为了准备汇报学了Fortran这个语言,最近又要用到发现有些些忘记了,所以写一篇博客整理记录学了些啥就当复习~ 主要内容还是比较基本的语法,一些小细节等以后有机会来补上吧(下次一定.jp ...
中兴面试总结，华为。技术，市场
1,软件测试,如何把这个测试做的更好. 进到一个新项目,作为测试人员应该都是想把测试做好,项目在符合客户质量要求的情况下按时交付的吧.但往往都事与愿违,造成这个结果的原因有很多很多.通过这段时间做自动 ...
fortran教程4：判断和循环语句
文章目录判断语句 select case语句 do循环 while循环 exit, cycle, stop 前情提要: 1 安装和编译
Fortran 逻辑运算与循环（DO）相关
Fibonacci sequences参考参考链接
这些代码改变了科学界：从Fortran、arXiv到AlexNet
转自:机器之心 2019 年,「事件视界望远镜」团队拍下了第一张黑洞照片.这张照片并非传统意义上的照片,而是计算得来的--将美国.墨西哥.智利.西班牙和南极多台射电望远镜捕捉到的数据进行数学转换.该团 ...
在2D数组上进行迭代时，为什么循环顺序会影响性能？
本文翻译自:Why does the order of the loops affect performance when iterating over a 2D array? Below are t ...
linux控制流程,Linux-流程控制：for 循环
在这关于流程控制的最后一章中,我们将看看另一种 shell 循环构造.for 循环不同于 while 和 until 循环,因为在循环中,它提供了一种处理序列的方式.这在编程时非常有用.因此在 ba ...
il和idl区别_我来给普及一下matlab、IDL、fortran神马的区别吧
我来给普及一下matlab.IDL.fortran神马的区别吧 (2014-12-22 13:13:44) 标签: matlab idl c fortan 看到有人纠结这些东西,我来说说我的经验吧.不 ...

Fortran：do循环

Fortran：do循环相关推荐

最新文章

热门文章