Fortran Coder

查看: 8241|回复: 2
打印 上一主题 下一主题

[派生类型] 彭国伦教材type类型P70课后题

[复制链接]

25

帖子

8

主题

0

精华

熟手

F 币
143 元
贡献
81 点
跳转到指定楼层
楼主
发表于 2020-6-27 16:51:37 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
彭国伦教材P70课后第5题,定义类型distance,我的错误好多,不知道哪里的问题,求教

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

无标题.jpg
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

167

帖子

2

主题

1

精华

大师

Vim

F 币
1011 元
贡献
484 点

规矩勋章

沙发
发表于 2020-6-27 21:02:58 | 只看该作者
[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.自定义类型中元素的访问需要用%

25

帖子

8

主题

0

精华

熟手

F 币
143 元
贡献
81 点
板凳
 楼主| 发表于 2020-6-28 09:37:51 | 只看该作者
谢谢老师,根据这两点我的程序正常了
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-11-23 10:44

Powered by Tencent X3.4

© 2013-2024 Tencent

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