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

15235312522

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

Transpose

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

查看代码

打印?

01	program main

02	implicit none

03

!自定义类型

04	type distance

05	real::m,cm,inch

06

end type

07

!申明自定义类型

08	type(distance)::a

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

10	read(*,*)a%m

11	a%cm=a%m*100

12	a%inch=a%m*39.3700787

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

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

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

16	end program

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

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

查看代码

打印?

1

type

2

end type

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

15235312522

谢谢老师，根据这两点我的程序正常了