IMPLICIT NONEREAL(8)::X(10000),LMINTEGER::NWRITE(*,*) '请输入 x 的初值和迭代系数 λ 的值:'READ(*,*) X(1),LM OPEN(12,FILE='ABC.TXT')DO N=1,10000-1 X(N+1)=LM*X(N)*(1.0-X(N)) WRITE(12,*) X(N+1)ENDDOCLOSE(12)END! 程序已经过调试,放心使用。