函数子程序如下: FUNCTION PRIME(N) INTEGER PRIME *定义PRME是整型函数 PRIME=O Do|=2,N-1 F(MOD(N)=0)GOT10*参数N有因子1,非素数,退出循环 ENDDO PRIME=1 参数N无任何因子,函数值为1 10 END函数子程序如下： FUNCTION PRIME(N) INTEGER PRIME * 定义PRIME是整型函数 PRIME=0 DO I=2,N-1 IF (MOD(N,I)==0) GOTO 10 * 参数N有因子I，非素数，退出循环 ENDDO PRIME=1 * 参数N无任何因子，函数值为1 10 END