求问fortran里面 WRITE(*,'(A,$)')这句话是什么意思?
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 00:39:12
求问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
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
相当于如下两句:
write(*,100)'Input N='
100 format(A,$)
其中A是字符型数据输出描述符,$表示输出后不换行,相当于format(A\)
write(*,100)'Input N='
100 format(A,$)
其中A是字符型数据输出描述符,$表示输出后不换行,相当于format(A\)
求问fortran里面 WRITE(*,'(A,$)')这句话是什么意思?
write(12,*)在fortran里面的意思?
[FORTRAN]是什么意思?
write……这句话是什么意思?
circle and write这句话是什么意思?
write开头的这句话是什么意思谢谢
fortran中write什么意思
Draw a bicycle. Write the parts of the bicycle.这句话汉语是什么意思?
我想问下下面这句话是什么意思(肖申克的救赎)里面的
write a pilot是什么意思?
write a message是什么意思
write a report是什么意思