Fortran Coder

查看: 152|回复: 4

[读物] Fortran90彭国伦书上问题有错

[复制链接]

6

帖子

2

主题

0

精华

入门

F 币
34 元
贡献
14 点
发表于 2024-6-27 09:52:24 | 显示全部楼层 |阅读模式
[Fortran] 纯文本查看 复制代码
module typedef
   type player
        character(len=80) :: name
        real weight,height
        real score
   end type
end module

program ex0902
    use typedef
    implicit none
    character(len=20) :: filename = "text.txt"
    integer,parameter :: fileid = 20
    logical :: alive    ! 检查文件是否存在
    type(player) :: p   ! 读取选手数据
    character(len=10) :: title  ! 读取数据项
    real tempnum    ! 读取数据
    logical,external :: GetNextPlayer   ! 找出下一位球员数据的函数
    integer i   ! 循环计数器
    integer error   !检查文件读取是否正常

    inquire(file=filename,exist=alive)
    if(.not. alive) then    ! 文件不存在就结束程序
        write(*,*)trim(filename)," doesn;t exist."
        stop
    end if

    open(unit=fileid,file=filename)
    do while(.true.)
        if(GetNextPlayer(fileid,p%name))then
            do i=1,3
                read(fileid, "(A4,1X,F)",iostat=error) title,tempnum
                if(error /= 0) then
                    write(*,*)"文件读取错误"
                    stop
                end if
                ! 要经过每一行最前面两个中文来判断读入的是什么数据
                select case(title)
                case("身高")
                    p%height = tempnum
                case("体重")
                    p%weight = tempnum
                case("得分")
                    p%score = tempnum
                case default
                    write(*,*)"出现不正确数据"
                    stop
                end select
            end do
        else
            exit    ! 没有数据了,离开循环
        end if
        if(p%score > 20.0) then ! 显示得分高于20分的选手数据
            write(*,"('姓名:'A8/,'身高:'F5.1,' 体重:'F5.1,' 得分:'F4.1)")p
        end if
    end do
    stop
end program
!GetNextPlayer函数会从文件中找出下一位球员的数据位置
!如果文件中还有数据需要读取,返回.true.
!如果文件中没有数据需要读取,返回.false.

logical function GetNextPlayer(fileid,name)
    implicit none
    integer,intent(in) :: fileid
    character(len=*),intent(out) :: name
    character(len=80)title
    integer error

    do while(.true.)
        read(fileid,"(A80)",iostat=error) title

        if(error /= 0) then ! 文件中已经没有数据了
            GetNextPlayer = .false.
            return
        end if

        if(title(1:4) == "姓名")then
            name = title(6:)
            GetNextPlayer = .true.
            return
        end if
    end do
    return
end function

显示报错,下面这句代码有啥问题
read(fileid, "(A4,1X,F)",iostat=error) title,tempnum
D:\fortran project\test\main.f90|32|Error: Nonnegative width required in format string  |

1995

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1481 元
贡献
636 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2024-6-27 11:24:07 | 显示全部楼层
这属于语法未定义操作。

彭国伦用的编译器允许这种操作,而你用的 gfortran 不允许。这是很正常的,gcc和msvc以及clang尚且有很多细节行为不同。

改成
read(fileid, *,iostat=error) title,tempnum
就行了

143

帖子

41

主题

1

精华

宗师

F 币
1246 元
贡献
624 点
发表于 2024-6-27 12:21:23 | 显示全部楼层
输入时尽量用表控输入,容错性好

6

帖子

2

主题

0

精华

入门

F 币
34 元
贡献
14 点
 楼主| 发表于 2024-6-27 12:59:25 | 显示全部楼层
fcode 发表于 2024-6-27 11:24
这属于语法未定义操作。

彭国伦用的编译器允许这种操作,而你用的 gfortran 不允许。这是很正常的,gcc和m ...

但是输出中文会乱码的,是不是要加UTF-8格式,其他语言我会,fortran语法不太会

1995

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1481 元
贡献
636 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2024-6-27 21:12:09 | 显示全部楼层
中文乱码一般是编码问题导致的。没有统一的解决方案,与你使用的平台和环境有关。
总之就是,数据来源(如果是源码里写的,那就是源码的编码。如果从文件里读取的,那就是数据文件的编码),必须与你显示的环境(终端显示则是终端的字符编码设置)一致。


如果你不是做商业软件,仅仅是自己学习和编程计算一些学科上的需求。
那就只用英文就行了,没有什么必要非要使用中文。

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-7-23 20:27

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表