作者gdi2000520 (future)
看板Fortran
标题Re: [问题] 输出资料的方法
时间Sat Apr 10 18:41:23 2010
※ 引述《skyrjs (噜噜米)》之铭言：
: 请问板上各位大大，如何将得到的每笔结果，在最後才一次输出
: ----------------------------------------------------
: 我想要的结果是
: 请输入A和B即可得到C=A+B
: 3
: 1
: 请输入A和B即可得到C=A+B
: 1
: 2
: 结束之後写出
: 4. = 3.+ 1.
: 3. = 1.+ 2.
: ------------------写的不尽详尽请多指教--------------
PROGRAM MAIN
IMPLICIT NONE
REAL*4, ALLOCATABLE :: A(:), B(:), C(:)
INTEGER*4 :: I, NMAX
WRITE(*,*) '请输入需要做几次C=A+B之运算'
READ(*,*) NMAX
ALLOCATE(A(NMAX),B(NMAX),C(NMAX))
DO I=1, NMAX
WRITE(*,*)'请输入A和B即可得到C=A+B'
READ(*,*) A(I), B(I)
C(I) = A(I) + B(I)
END DO
WRITE(*,*) '================================================='
WRITE(*,*) ' C = A + B'
DO I=1,NMAX
WRITE(*,*) C(I),' = ',A(I),'+',B(I)
END DO
END PROGRAM MAIN
---------------------------
有一行忘了删[IF(I==1)....] 那行没用
--
Change your mind, also change your life
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 115.43.129.156
1F：推 skyrjs:先谢过 我再研究一下 04/10 19:34
※ 编辑: gdi2000520 来自: 115.43.129.156 (04/11 19:36)