15235312522 发表于 2020-6-27 16:51:37

彭国伦教材type类型P70课后题

彭国伦教材P70课后第5题，定义类型distance，我的错误好多，不知道哪里的问题，求教

Transpose 发表于 2020-6-27 21:02:58

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.创建自定义类型必须包含在

type
end type

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

15235312522 发表于 2020-6-28 09:37:51

谢谢老师，根据这两点我的程序正常了
页: [1]
查看完整版本: 彭国伦教材type类型P70课后题