早教吧作业答案频道 -->其他-->
这段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语言输入上有...的网友还看了以下：
若m+n-p=0，则m(1n−1p)+n(1m−1p)−p(1m+1n)的值等于． 2020-05-17 …
若m+n-p=0，则m(1n−1p)+n(1m−1p)−p(1m+1n)的值等于． 2020-05-17 …
（2014•安阳三模）已知函数f（x）=x-1-alnx，a＞0．（Ⅰ）若对任意x∈（0，+∞）， 2020-06-14 …
线性代数问题,求帮助!(123...n-1n)(213...n-1n)(231...n-1n)…… 2020-07-19 …
已知函数f（x）=ex-ax-1（a>0，e为自然对数的底数）．（1）若f（x）≥0对任意的x∈R 2020-08-02 …
已知(1+1/x)^x=e,e^x-1=x,limx→1(x+x^2+...+x^n-n)/(x-1 2020-10-31 …
lingo求救急MODEL:SETS:ID/1..4/;NO(ID):a,b,n;endsetsma 2020-12-19 …
求证明：limt→1n/(t^n-1+t^n-2+…………+1）=1这是证明当x→0时,（1+x）^ 2020-12-27 …
数列{an}中，如果存在ak，使得“ak＞ak-1且ak＞ak+1”成立（其中k≥2，k∈N*），则 2020-12-31 …
VB计算1*2*3···*m的值,其中m的值由用户输入算法提示1.设置计算变量n和累积变量t,它们的 2020-12-31 …