推 skyrjs:先謝過 我再研究一下 04/10 19:34
※ 編輯: gdi2000520 來自: 115.43.129.156 (04/11 19:36)
※ 引述《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