求问fortran里面 WRITE(*,'(A,$)')这句话是什么意思?PROGRAM CALL_FACTORlAL 调用FACTORIAL函数的主程序INTERFACEINTEGER ::N,F_RESRECURSIVE FUNCTION FACTORIAL(N) RESULT(F_RES) END FUNCTION FACTORIALEND INTERFACEINTEGER ::NWRITE(*,'(A,$)'

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 08:26:29
求问fortran里面 WRITE(*,'(A,$)')这句话是什么意思?PROGRAM CALL_FACTORlAL 调用FACTORIAL函数的主程序INTERFACEINTEGER ::N,F_RESRECURSIVE FUNCTION FACTORIAL(N) RESULT(F_RES) END FUNCTION FACTORIALEND INTERFACEINTEGER ::NWRITE(*,'(A,$)'

求问fortran里面 WRITE(*,'(A,$)')这句话是什么意思?PROGRAM CALL_FACTORlAL 调用FACTORIAL函数的主程序INTERFACEINTEGER ::N,F_RESRECURSIVE FUNCTION FACTORIAL(N) RESULT(F_RES) END FUNCTION FACTORIALEND INTERFACEINTEGER ::NWRITE(*,'(A,$)'
求问fortran里面 WRITE(*,'(A,$)')这句话是什么意思?
PROGRAM CALL_FACTORlAL 调用FACTORIAL函数的主程序
INTERFACE
INTEGER ::N,F_RES
RECURSIVE FUNCTION FACTORIAL(N) RESULT(F_RES)
END FUNCTION FACTORIAL
END INTERFACE
INTEGER ::N
WRITE(*,'(A,$)') 'Input N='; READ *,N
PRINT *,FACTORIAL(N)
END PROGRAM
RECURSIVE FUNCTION FACTORIAL(N) RESULT(F_RES)
INTEGER ::N,F_RES
IF(N.EQ.1) THEN
F_RES=1
ELSE
F_RES=N*FACTORIAL(N-1)
END IF
END FUNCTION FACTORIAL

求问fortran里面 WRITE(*,'(A,$)')这句话是什么意思?PROGRAM CALL_FACTORlAL 调用FACTORIAL函数的主程序INTERFACEINTEGER ::N,F_RESRECURSIVE FUNCTION FACTORIAL(N) RESULT(F_RES) END FUNCTION FACTORIALEND INTERFACEINTEGER ::NWRITE(*,'(A,$)'
相当于如下两句:
write(*,100)'Input N='
100 format(A,$)
其中A是字符型数据输出描述符,$表示输出后不换行,相当于format(A\)