E:\软件\Projects\lianxi21\Text1.f(2): if E:\软件\Projects\lianxi21\Text1.f(3): if E:\软件\Projects\lianxi21\Text1.f(10): endif E:\软件\Projects\lianxi21\Text1.f(11): endif 如此就把IF和ENDIF 的顺序和关系列出来了啥。同理对于查找DO和ENDDO，方法同上！希望能对你看程序...
do person = 1, number_of_people print *,'type in the weight for person ', person read *,weight(person) total = total + weight(person) enddo average = total/number_of_people print *,'the total of the weights is ', total print *,'average weight is ', average print *,' ',number...
\x05do 21 j=1,m21\x05 d(i,j)=d2\x05i1=i-1\x05d(i,i1)=d120 continue改为do...enddo该怎么等价? 扫码下载作业帮搜索答疑一搜即得 答案解析 查看更多优质解析 解答一 举报 do i=2,m1 do j=1,m d(i,j)=d2 enddo i1=i-1 d(i,i1)=d1enddo 解析看不懂?免费查看同类题视频...
do i = 1,nz(i) = x(i) + y(i)enddodo i = 2,nz(i) = z(i - 1)*2enddodo i = 2,nz(i) = z(1)*2**(i - 1)enddo 扫码下载作业帮搜索答疑一搜即得 答案解析 查看更多优质解析 解答一 举报 1) 对i循环计算数组将x(i)+y(i)的值赋给z(i) i取值从1~n2)对i循环(取2到n...
fortran的3个简单语句,有谁会fortran的解释下do i = 1,nz(i) = x(i) + y(i)enddodo i = 2,nz(i) = z(i - 1)×2enddodo i = 2,nz(i) = z(1)×2**(i - 1)enddo 答案 1) 对i循环计算数组将x(i)+y(i)的值赋给z(i) i取值从1~n2)对i循环(取2到n间隔1)将z(1~n-1...
1、DQdocounter=初值,终值,增/减量!counter的值从初值到终值按增/减量变,!counter每取一个值对应着一次循环。增/减量不写则认为1?循环主体也没有必要用?enddo?Fortran77中不是用enddo来终止,而是下面这样子:?do循环最后一行的行代码counter=初值,终值,增/减量??行代码!这是do的最后一行2、DOWHILEdowhile(逻辑...
do j=1,4 ！内层循环，意思是当i=1时j从1取到4，然后i=2时j从1取到4，...，最后i=n p时j从1取到4 node(j,i)=0 ！对二维数组node赋值，顺序是(1,1)(2,1)(3,1)(4,1)然后(1,2)(2,2)(3,2)(4,2)...依次到最后(1,np)(2,np)(3,np)(4,np)enddo enddo !两个...
识别长fortran代码中的if-endif和do-enddo结构 为什么Fortran中的"stop“语句阻止我的程序输出任何内容? C回调函数的抽象Fortran接口是否需要bind(C)属性? 使用js中stop的用法 Fortran中的变量类型 Fortran中的数据声明 Fortran中的内联函数 Fortran中的指针数组 ...
PROGRAM WWW_FCODE_CN IMPLICIT NONE INTEGER ::I INTEGER,DIMENSION(5):: ARR DATA ARR/1, 2, 5, 4, 3/ WRITE(*,'(A,3X,A)')'INDEX','VALUE' DO I=1,5 WRITE(*,'(2I5)')I,ARR(I) ENDDO PRINT * WRITE(*,'(A,1X,A)')'MAX_LOC','MAX_VAL' WRITE(*,'(2I5)')MAXLOC(ARR),...
赋值符号两边只能是数组。然而在实际使用中，FORALL结构的运算速度并不比do循环快，有时甚至比do循环还...