早教吧作业答案频道 -->其他-->
这段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语言输入上有...的网友还看了以下:
某游乐场在开门前已经有400个人在排队等候,开门后每分钟来的游客人数是相同的,一个入口处每分钟可以 2020-04-11 …
matlab中怎么用将矩阵当成自变量带入函数运算?function [ DurF,AngF ] = 2020-05-16 …
e^(2πi*(1/6))=(e^2πi)^(1/6)=1^(1/6)=1e^(2πi*(1/6) 2020-06-12 …
在6张演唱会入场券中有一、二、三排座位入场券各一张,其余3张无座位(无座位入场券没有区别),将这6 2020-07-10 …
体育的英语是P.E.还是PE,我在一本书上怎么看到以P.E.结尾,却只打了一个点,没打句号啊?My 2020-08-03 …
某演唱会在入场前有600人排队,假如开门后每分钟来的人数是固定的,则一个入口每分可以进15人;;如果 2020-11-04 …
某游乐场开门前有400人排队等候,开门后每分钟来的人数是固定的,一个入口每分钟进10个人,如果开放四 2020-11-04 …
足球比赛10:00开始,9:30允许观众入场,但早有人来排队等候入场,从第一个观众来到时起,每分钟来 2020-11-04 …
f(x)=入e^-入x,求原函数F(X),有公式没? 2020-11-07 …
(2008•揭阳)用你喜欢的方法计算.(e)2e0-2.6×e.l&nb七e;&nb七e;&nb七e 2020-11-12 …