这段fortran语言输入上有问题,程序应该没什么问题,还望各位大侠指教……CHARACTERLINE(6),CHCDATA(LINE(I),I=1,6)/'D','E','L','E','T','E'/CCH='E'P=1N=6READ(*,*)(LINE(I),I=1,N)CREAD(*,*)CHCH='E'do10,WHILE(N>P)DO

Question

这段fortran语言输入上有问题,程序应该没什么问题,还望各位大侠指教……
CHARACTER LINE(6),CH
CDATA (LINE(I),I=1,6)/'D','E','L','E','T','E'/
CCH='E'
P=1
N=6
READ (*,*) (LINE(I),I=1,N)
CREAD (*,*) CH
CH='E'
do 10,WHILE(N>P)
DO 20,WHILE(CH.NE.LINE(P).AND.P

Answer 1

现在的输入方法也行,但是可以用格式输入,比如
READ (*,‘(6A)') (LINE(I),I=1,N)