24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 409  |  回复: 2

goodluckyli

新虫 (初入文坛)

[求助] 求助一段fortran中编程的意思 已有2人参与

刚学fortran 看到这样一个程序
     1   write(*,*) "请输入一个字串"
      2  read(*,"(A79)" input
       3   j=1
        4   do i=1, len_trim(input)
       5       if ( input(i:i) /= ' ' ) then
       6   output(j:j)=input(i:i)
      7          j=j+1
        end if
end do
  
  write(*,"(A79)" output
请详细说明3、4、5、6、7行的意思 ,input(i:i) /= ' ' 是什么意思,为什么要写单引号?
谢谢!
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

supervb

铁杆木虫 (文坛精英)

【答案】应助回帖

感谢参与,应助指数 +1
input(i:i) /= ' ' 是逻辑判断字符是否为空,后续语句中写明了,如果非空的话,那么output(j:j)=input(i:i)
咱是做非线性随机动力学的哟
2楼2014-09-15 15:54:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fish.yfyh

铜虫 (小有名气)

【答案】应助回帖

感谢参与,应助指数 +1
这段代码的作用就是将input变量存储的字符串中的所有空格删除后复制给output变量。
CODE:
3    j=1
4    do i=1, len_trim(input)
5        if ( input(i:i) /= ' ' ) then
6            output(j:j)=input(i:i)
7            j=j+1
8        end if
9    end do

第3行的j是output的下标,从1开始。
第4行和第9行,是循环体,就是遍历input所有字符。
第5行和第8行,是条件判断,就是当input的某一个字符,即input(i:i)不等于(/=)空格(''),条件才成立。
第6行,仅当上述条件成立时,才将非空字符依次保存在output中。
第7行,依次保存,即j每次增加1.
3楼2014-09-16 13:31:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 goodluckyli 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085801 总分275 本科新能源 求调剂 +12 bradoner 2026-04-01 14/700 2026-04-02 12:36 by smileboy2006
[考研] 材料求调剂一志愿哈工大324 +8 闫旭东 2026-03-28 10/500 2026-04-02 11:27 by Sammy2
[考研] 266求调剂 +3 学员97LZgn 2026-04-02 3/150 2026-04-02 11:12 by 乔哒哒哒
[考研] 292求调剂 +14 是妍子也是研子 2026-03-30 14/700 2026-04-02 10:17 by sanrepian
[考研] 275学硕081000服从调剂到其他专业,保不住本专业了 +6 一只小小水牛 2026-04-02 7/350 2026-04-02 09:53 by zhyzzh
[考研] 化学工程专硕324分,一志愿中国矿业大学求调剂 +7 耿耿1314 2026-04-01 7/350 2026-04-02 07:40 by 尚水阁主
[考研] 085410 一志愿211 22408分数359求调剂 +3 123456789qw 2026-03-31 4/200 2026-04-02 00:06 by 义文wang
[考研] 085602化学工程268分蹲调剂 +8 月照花林。 2026-04-01 8/400 2026-04-01 22:08 by 无际的草原
[考研] 342求调剂 +12 Mary Keen 2026-03-28 13/650 2026-04-01 21:02 by 流情牧豪
[考研] 265求调剂 +11 yelck 2026-04-01 12/600 2026-04-01 19:12 by 549790059
[考研] 311求调剂一志愿合肥工业大学 +14 秋二十二 2026-03-30 14/700 2026-04-01 11:45 by chemdavid
[考研] 一志愿武理材料工程302调剂环化或化工 +15 Doleres 2026-03-31 16/800 2026-04-01 09:49 by lfj11
[考研] 315求调剂 +6 akie... 2026-03-28 7/350 2026-03-31 16:48 by asdfzly
[考研] 263求调剂 +3 DDDDuu 2026-03-27 3/150 2026-03-31 16:21 by 土木硕士招生
[考研] 277跪求调剂 +8 1915668 2026-03-27 13/650 2026-03-31 14:58 by 王亮_大连医科大
[考研] 286求调剂 +6 Faune 2026-03-30 6/300 2026-03-31 14:37 by jp9609
[考研] 262求调剂 +7 ZZ..000 2026-03-30 8/400 2026-03-31 10:05 by cal0306
[考研] 293分求调剂,外语为俄语 +5 加一一九 2026-03-31 5/250 2026-03-31 09:39 by zhshch
[考研] 求调剂 +10 张zz111 2026-03-27 11/550 2026-03-30 09:17 by 无际的草原
[考研] 295求调剂 +5 wei-5 2026-03-26 5/250 2026-03-30 08:34 by 探123
信息提示
请填处理意见