Fortran 以表格形式输出数据

PROGRAM hw_table

IMPLICIT NONE

INTEGER::i

INTEGER::cube

INTEGER::square

REAL::square_root

    WRITE(*,100)

    100 FORMAT(T3, 'Table of Square Roots, Squares, and Cubes')

    WRITE(*,110)

    110 FORMAT(T4, 'Number', T13, 'Square Root', T29, 'Square', T39, 'Cube')

    WRITE(*,120)

    120 FORMAT(T4, '======', T13, '===========', T29, '======', T39, '====')

 

    DO i=1,10

        square_root=SQRT(REAL(i))

        square=i**2

        cube=i**3

        WRITE(*,130) i, square_root, square, cube

        130 FORMAT(T4, I4, T13, F10.6, T27, I6, T37, I6)

    END DO

END PROGRAM hw_table