【已解决】IVF编程问题

nuist2015 · 发表于 2015-5-19 09:55:24

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

本帖最后由 nuist2015 于 2015-6-25 22:02 编辑

   刚开始学习fortran，用的IVF，看的书是彭国伦的f95。
   问题描述：

      代码已编好，生成解决方案的时候没有出现错误提示，但是在调试运行的时候出错了。错误信息见图片，代码见附件。

   麻烦各位大神帮忙看一下！拜谢！

————————————————————————
如有必要，管理员可删除此贴。

修改之后的代码

program seven1
implicit none
integer, parameter :: students=5
integer :: student(students)
integer i
do i=1,students
write(*,'(''Number '',I2)') i ! write(*,"('Number ',I2)") i 使用这两种格式不会出错，使用其他格式就出错了
read(*,*) student(i)
end do
do while (.true.)
write(*,*) 'Query:'
read(*,*) i
if(i<=0 .or. i>students) exit
write(*,*) student(i)
end do
end

复制代码

wheelar · 发表于 2015-5-19 10:19:27

这哪是Fortran的代码啊？是混编吗？

nuist2015 · 发表于 2015-5-19 10:27:47

wheelar 发表于 2015-5-19 10:19
这哪是Fortran的代码啊？是混编吗？

你所看到的图1是调试出错的图。

program seven1

复制代码

第一次直接贴代码，希望出来的格式不会乱

nuist2015 · 发表于 2015-5-19 10:30:08

nuist2015 发表于 2015-5-19 10:27
你所看到的图1是调试出错的图。
第一次直接贴代码，希望出来的格式不会乱

果然还是出问题了，代码已经贴到第一页了。

wheelar · 发表于 2015-5-19 10:34:17

本帖最后由 wheelar 于 2015-5-19 10:43 编辑

write(*,'(''Number '',I2)') i ! write(*,"('Number ',I2)") i 使用这两种格式不会出错，使用其他格式就出错了

还是建议这样写：
write(*,'(a,i2)')'number=',ii

nuist2015 · 发表于 2015-5-19 10:43:03

wheelar 发表于 2015-5-19 10:34
write(*,'(''Number '',I2)') i ! write(*,"('Number ',I2)") i 使用这两种格式不会出错，使 ...

我试了一下，用//连接之后就出错了。不知道这是不是和全角、半角输入有关。就是不知道有没有IVF语法规则的资料，这样看起来也好些。

wheelar · 发表于 2015-5-19 10:44:04

刚才我理解错了，还是建议这样写：
write(*,'(a,i2)')'number=',i

nuist2015 · 发表于 2015-5-19 10:46:37

wheelar 发表于 2015-5-19 10:34
write(*,'(''Number '',I2)') i ! write(*,"('Number ',I2)") i 使用这两种格式不会出错，使用 ...

又get一种用法

nuist2015 · 发表于 2015-5-19 10:51:37

wheelar 发表于 2015-5-19 10:44
刚才我理解错了，还是建议这样写：
write(*,'(a,i2)')'number=',i

非常感谢~

王小燕1991 · 发表于 2015-6-25 14:40:27

nuist2015 发表于 2015-5-19 10:43
我试了一下，用//连接之后就出错了。不知道这是不是和全角、半角输入有关。就是不知道有没有IVF语法规则 ...

不错哦，加油，慢慢学习，共同成长哦

		自动登录	找回密码
密码			立即注册

[求助] 【已解决】IVF编程问题

登录后查看更多精彩内容~