天机s291:(求助)用fortran编写程序输出"九九表"
不给你直接解答,试把下面的程式修订一下(共8处),便知答案。
C -----------------------------------------------------
INTEGER I, SMALL(9)
C -----------------------------------------------------
OPEN( UNIT =10, FILE ='tmp.inp',STATUS ='NEW')
C -----------------------------------------------------
WRITE (*,*)
WRITE (*,'(6X,A)') ' Read and calculate the summation, mean '
WRITE (*,'(6X,A)') ' of an one-dimensional array '
WRITE (*,'(6X,A)') ' '
6 -----------------------------------------------------
10 FORMAT(9(I2,2X )
11FORMAT(1X,F4.1,1X,F5.1)
DO I = 1. 9
READ(1 , 10) (SMALL(J),J=1,9)
TEMP=0.0
DO J=1. 9
TEMP=SMALL(J)+TEMP
SUMM=TEMP
ENDDO
AMEAN=SUMM/6.0
c
WRITE(*, 11) SUMM,AMEAN
ENDDO
END
DATA SET
11, 12, 13, 14, 15, 16, 17, 18, 19
21, 22, 23, 24, 25, 26, 27, 28, 29
31, 32, 33, 34, 35, 36, 37, 38, 39
41, 42, 43, 44, 45, 46, 47, 48, 49
51, 52, 53, 54, 55, 56, 57, 58, 59
61, 62, 63, 64, 65, 66, 67, 68, 69
71, 72, 73, 74, 75, 76, 77, 78, 79
81, 82, 83, 84, 85, 86, 87, 88, 89
91, 92, 93, 94, 95, 96, 97, 98, 99
用简单的循环就可以阿,我没用过你那个软件。我只会C和Delphi