25
8
0
熟手
使用道具 举报
Vim
155
2
1
大师
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
type end type
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-3-29 12:34
Powered by Tencent X3.4
© 2013-2024 Tencent