24小时热门版块排行榜

>论坛更新日志 (2862)
>虫友互识 (636)
>文献求助 (144)
>导师招生 (129)
>休闲灌水 (126)
>考博 (121)
>教师之家 (77)
>找工作 (70)
>博后之家 (68)
>硕博家园 (68)
>论文投稿 (66)
>论文道贺祈福 (63)
>基金申请 (58)
>考研 (52)
>公派出国 (48)
>招聘信息布告栏 (31)

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

goodluckyli

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 5.5
帖子: 2
在线: 4.6小时
虫号: 436814
注册: 2007-08-26
专业: 合成

[求助] 求助一段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) /= ' ' 是什么意思，为什么要写单引号？
谢谢！

回复此楼

» 猜你喜欢

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

换热器Fortran编程求助~~~~~~~~~~~ 已经有3人回复
求助：Fortran中如何调用‘计算软件’ 已经有11人回复
fortran编译中$符号的使用已经有4人回复
编一个fortran程序已经有17人回复
fortran编程过程出错了麻烦给解决一下谢谢！！已经有5人回复
求助：fortran程序中换行及return报错已经有12人回复
fortran输出求助已经有6人回复
求助学习fortran的书籍已经有5人回复
求助Fortran编程已经有8人回复
求助计算物理中用Fortran编程的程序，能运行有注释的，题目如下。。重谢！！已经有3人回复
MAC ox 下怎么用fortran 编程？已经有9人回复
【求助】同样一个问题用matlab和fortran编程计算，结果相差比较大，不知道为什么已经有4人回复
【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙已经有8人回复
【求助】初学fortran，已经有15人回复
【求助】ANSYS 中命令流编程（fortran）已经有11人回复
【求助】请问一下fortran的可视化编程已经有7人回复
【求助】这样的公式，在fortran里该怎么写了，谢谢【求助成功】已经有4人回复

1楼 2014-09-15 15:20:46

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

fish.yfyh

铜虫 (小有名气)

应助: 42 (小学生)
金币: 607.9
红花: 4
帖子: 108
在线: 35.9小时
虫号: 2867094
注册: 2013-12-12
专业: 化学生物学与生物有机化学

【答案】应助回帖

感谢参与，应助指数 +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.