9 lines
159 B
Text
9 lines
159 B
Text
WRITE(Clipboard) pow(5, 3) ! 125
|
|
WRITE(ClipBoard) pow(5.5, 7) ! 152243.5234
|
|
|
|
FUNCTION pow(x, n)
|
|
pow = 1
|
|
DO i = 1, n
|
|
pow = pow * x
|
|
ENDDO
|
|
END
|