早教吧作业答案频道 -->其他-->
这段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
题目详情
这段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
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
▼优质解答
答案和解析
现在的输入方法也行,但是可以用格式输入,比如
READ (*,‘(6A)') (LINE(I),I=1,N)
READ (*,‘(6A)') (LINE(I),I=1,N)
看了这段fortran语言输入上有...的网友还看了以下：
线性变换相关问题有线性变换T假设T^nX=T(T(T(...T(X)..)))设X为线性空间内一向 2020-05-17 …
已知数列{an}满足a1=t,an+1-an+2=0（t∈N*,n∈N*）,记数列{an}的前n项 2020-05-20 …
高数微分方程问题：设x(t)表示某国家在时刻t的人口数,x(t)满足初值问题：dx(t)/dt=r 2020-05-21 …
考研题,求时间复杂度,请说明下理由,假定问题规模为N时,某递归算法的时间复杂度记为T（N）,已知T 2020-06-15 …
动弹的“弹”要读dàn?tán?还是（tan)? 2020-07-13 …
求A(n)=n×2^(n+1)数列的前n项和T(n)如题. 2020-07-26 …
二项式展开式系数最大的问题如题老师说的方法是用T(n)>T(n+1)T(n)>T(n-1)来求得n 2020-07-31 …
已知(1+1/x)^x=e,e^x-1=x,limx→1(x+x^2+...+x^n-n)/(x-1 2020-10-31 …
递归方程求解:已知T（1）=0,n=1时,t(n)=t(⌊n/2⌋)+t(⌈n/2⌉)+n-1,n> 2020-12-15 …
lingo求救急MODEL:SETS:ID/1..4/;NO(ID):a,b,n;endsetsma 2020-12-19 …