fortran+do
@养罗695：Fortran Do循环 求解读 -
史泄15342579391…… do 3 m=.... do 1 n=.... 1 bz(n)=... do 3 n=.... 3 bx(n)=... 可改成: do 3 m=... do 1 n=.... bz(n)=... 1 continue do 31 n=.... bx(n)=... 31 continue 3 continue
@养罗695：Fortran Do循环 do 3 m=m00+iz*(mz - 1),m00+iz*(mz - 1)+iy*(my - 2),iydo 1 n=m,m+ix*(mx - 2),ix1 bz(n)=bz(n)+.5*c*(ex(n+iy) - ex(n) - ey(n+ix)+ey(n))cdir$ ivdepdo 3 n=... - 作业帮
史泄15342579391…… [答案] do 3 m=. do 1 n=. 1 bz(n)=... do 3 n=. 3 bx(n)=... 可改成: do 3 m=... do 1 n=. bz(n)=... 1 continue do 31 n=. bx(n)=... 31 continue 3 continue
@养罗695：关于fortran的循环结构问题,用do循环 -
史泄15342579391…… integer a,b,c,d,x,y,z do 10 a=1,9 do 10 b=0,9 do 10 c=1,9 do 10 d=0,9 x=a*1000+b*100+c*10+d y=c*100+d*10+c z=a*100+b*10+c if (x-y.eq.z) then write(*,*)'THE RESULT IS:' write(*,*)' ',x write(*,*)' -',y write(*,*)'-----------------' write(*,*)' ',z endif 10 continue end
@养罗695：fortran隐含式循环用do能表示吗 -
史泄15342579391…… 赋值不需要用循环,也不需要用隐循环.m( :, : ) = reshape((/2,3,4,5,8,10/),(/2,3/)) 这一句就可以了.另外,write 时的格式,可以这样 write (*,＂(6i3)＂) m
@养罗695：fortran 95 用do语句编写一个从20个数字中找出大于小于等于的个数 -
史泄15342579391…… i = count( a(1:20) , mask = ( a >= b ) ) 不需要用do循环
@养罗695：fortran里面的do循环问题
史泄15342579391…… <p>在你的例子i=1,0,1中, 第一个1表示循环起始的数, 第二个0表示循环终止的数, 第三个1表示循环的间隔.</p> <p>虽然, 你这样写可以通过编译, 但是没有结果. </p> <p> </p> <p>如果要循环一次, 可以写为</p> do i = 1,1,1<p>或者</p> do i = 1,1,-1
@养罗695：fortran中与do循环搭配使用的end do和continue有什么区别? -
史泄15342579391…… 没有区别的,等价的. Fortran77普遍使用“do和continue组合”,continue前面是有一个标号的,是一种老的处理方式
@养罗695：fortran中do循环应用问题.
史泄15342579391…… Program Baidu_Thlws Implicit None integer i , j integer :: a(6) = (/2,4,6,8,10,12/) Do i = 1 , 3 Write(*,*) ((a(j)/2),j=1,i) End Do End Program Baidu_Thlws
@养罗695：Fortran 中:do循环是增量为零或接近零 -
史泄15342579391…… 语法规定,循环变量只能是整型,不能是浮点型. 当然,可能有些编译器允许这样.这种情况下,具体如何处理,请看编译器的帮助.
@养罗695：fortran如何写这样的do循环,有80000个数据,改变1~50,再变401~450的数值,如此直到79901到79950?
史泄15342579391…… 1-50 401-450 79901-79950 请原谅我看不出来这组数据的规律. 或许下面的结果可能是你想要的. real data( 80000 ) integer i i = 1 Do while( i <= 80000 - 49 ) data( i : i + 49 ) = ... i = i + 400 End Do
史泄15342579391…… do 3 m=.... do 1 n=.... 1 bz(n)=... do 3 n=.... 3 bx(n)=... 可改成: do 3 m=... do 1 n=.... bz(n)=... 1 continue do 31 n=.... bx(n)=... 31 continue 3 continue
@养罗695：Fortran Do循环 do 3 m=m00+iz*(mz - 1),m00+iz*(mz - 1)+iy*(my - 2),iydo 1 n=m,m+ix*(mx - 2),ix1 bz(n)=bz(n)+.5*c*(ex(n+iy) - ex(n) - ey(n+ix)+ey(n))cdir$ ivdepdo 3 n=... - 作业帮
史泄15342579391…… [答案] do 3 m=. do 1 n=. 1 bz(n)=... do 3 n=. 3 bx(n)=... 可改成: do 3 m=... do 1 n=. bz(n)=... 1 continue do 31 n=. bx(n)=... 31 continue 3 continue
@养罗695：关于fortran的循环结构问题,用do循环 -
史泄15342579391…… integer a,b,c,d,x,y,z do 10 a=1,9 do 10 b=0,9 do 10 c=1,9 do 10 d=0,9 x=a*1000+b*100+c*10+d y=c*100+d*10+c z=a*100+b*10+c if (x-y.eq.z) then write(*,*)'THE RESULT IS:' write(*,*)' ',x write(*,*)' -',y write(*,*)'-----------------' write(*,*)' ',z endif 10 continue end
@养罗695：fortran隐含式循环用do能表示吗 -
史泄15342579391…… 赋值不需要用循环,也不需要用隐循环.m( :, : ) = reshape((/2,3,4,5,8,10/),(/2,3/)) 这一句就可以了.另外,write 时的格式,可以这样 write (*,＂(6i3)＂) m
@养罗695：fortran 95 用do语句编写一个从20个数字中找出大于小于等于的个数 -
史泄15342579391…… i = count( a(1:20) , mask = ( a >= b ) ) 不需要用do循环
@养罗695：fortran里面的do循环问题
史泄15342579391…… <p>在你的例子i=1,0,1中, 第一个1表示循环起始的数, 第二个0表示循环终止的数, 第三个1表示循环的间隔.</p> <p>虽然, 你这样写可以通过编译, 但是没有结果. </p> <p> </p> <p>如果要循环一次, 可以写为</p> do i = 1,1,1<p>或者</p> do i = 1,1,-1
@养罗695：fortran中与do循环搭配使用的end do和continue有什么区别? -
史泄15342579391…… 没有区别的,等价的. Fortran77普遍使用“do和continue组合”,continue前面是有一个标号的,是一种老的处理方式
@养罗695：fortran中do循环应用问题.
史泄15342579391…… Program Baidu_Thlws Implicit None integer i , j integer :: a(6) = (/2,4,6,8,10,12/) Do i = 1 , 3 Write(*,*) ((a(j)/2),j=1,i) End Do End Program Baidu_Thlws
@养罗695：Fortran 中:do循环是增量为零或接近零 -
史泄15342579391…… 语法规定,循环变量只能是整型,不能是浮点型. 当然,可能有些编译器允许这样.这种情况下,具体如何处理,请看编译器的帮助.
@养罗695：fortran如何写这样的do循环,有80000个数据,改变1~50,再变401~450的数值,如此直到79901到79950?
史泄15342579391…… 1-50 401-450 79901-79950 请原谅我看不出来这组数据的规律. 或许下面的结果可能是你想要的. real data( 80000 ) integer i i = 1 Do while( i <= 80000 - 49 ) data( i : i + 49 ) = ... i = i + 400 End Do
