心暖 发表于 2015-7-23 17:43:16

有关输出格式不正确的求助~


program main
implicit none

integer :: year

write(*,*) "请输入年份："
read(*,*) year
if ( (mod(year,4))==0 .or. (mod(year,400)==0 .and. mod(year,100)==0) ) then
        write(*,"('该年是闰年，且一年有'I3'天' )" ) '366'
else
        write(*,"('该年不是闰年，一年有'I3'天' )" ) '365'
end if
stop       
end
这个输出格式不正确，哪位大神可以来指点一下呀~~~我是新学的~~

心暖 发表于 2015-7-23 18:01:09

我贴上去的09与11行后面的数字应该去掉单引号，我忘记去掉了~~~~
可是为什么前面那么多汉字没有输出来呢，输出来的是乱码

fcode 发表于 2015-7-23 19:01:41

在我这里去掉引号以后是可以正常输出的。不知道你用的什么编译器？

心暖 发表于 2015-7-24 10:15:17

fcode 发表于 2015-7-23 19:01
在我这里去掉引号以后是可以正常输出的。不知道你用的什么编译器？

我用的是fortran power station4.0……
{:2_34:}
我这里输出的是：媚晔侨蚰辏乙荒暧?66天

fcode 发表于 2015-7-24 12:52:52

换一个编译器吧。这垃圾编译器，早该淘汰了。

心暖 发表于 2015-7-24 15:04:49

fcode 发表于 2015-7-24 12:52
换一个编译器吧。这垃圾编译器，早该淘汰了。

好的~~我们比较常用哪种编译器呀~我是win7

fcode 发表于 2015-7-24 15:15:10

http://choose.fcode.cn 选择编译器
页: [1]
查看完整版本: 有关输出格式不正确的求助~