e_121_04.f90

Fortran77和90/95编程入门对应的程序源码

!----- 乘方---
! 输入10, 100, 1000
INTEGER :: m, n
PRINT*, "Input an integer:"
READ*, n
   m = n
   m = m*n ; PRINT*, m
   m = m*n ; PRINT*, m
   m = m*n ; PRINT*, m
   m = m*n ; PRINT*, m
END