著名科幻电影:(求助)用fortran编写程序输出"九九表"

来源:百度文库 编辑:高考问答 时间:2024/04/29 21:53:29

不给你直接解答,试把下面的程式修订一下(共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