Fortran Coder

标题: 彭国伦教材type类型P70课后题 [打印本页]

作者: 15235312522 时间: 2020-6-27 16:51
标题: 彭国伦教材type类型P70课后题
彭国伦教材P70课后第5题，定义类型distance，我的错误好多，不知道哪里的问题，求教

无标题.jpg (281.89 KB, 下载次数: 335)

作者: Transpose 时间: 2020-6-27 21:02

[Fortran] 纯文本查看 复制代码

program main

    implicit none

    !自定义类型

    type distance

        real::m,cm,inch

    end type

    !申明自定义类型

    type(distance)::a

    write(*,*)"输入公尺(m)"

    read(*,*)a%m

    a%cm=a%m*100

    a%inch=a%m*39.3700787

    write(*,*)a%m,"m"

    write(*,*)a%cm,"cm"

    write(*,*)a%inch,"inch"

end program

1.创建自定义类型必须包含在

[Fortran] 纯文本查看 复制代码



type 

end type

2.自定义类型中元素的访问需要用%

作者: 15235312522 时间: 2020-6-28 09:37
谢谢老师，根据这两点我的程序正常了

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)