1条回答 默认 最新
- 技术专家团-Joel 2021-11-18 10:37关注
你好同学,代码供参考
program main implicit none real(8):: x1,y1,z1 real(8):: x2,y2,z2 real(8):: d write(*,*)'输入x1,y1,z1:' read(*,*)x1,y1,z1 write(*,*)'输入x2,y2,z2:' read(*,*)x2,y2,z2 d = dsqrt((x1-x2)**2+(y1-y2)**2+(z1-z2)**2) write(*,*)'距离为:', d end
示例:
输入x1,y1,z1: -1 4 6 输入x2,y2,z2: 1 5 -2 距离为: 8.3066238629180749
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 1无用
悬赏问题
- ¥15 怎样才能让鼠标沿着线条的中心线轨迹移动
- ¥60 用visual studio编写程序,利用间接平差求解水准网
- ¥15 Llama如何调用shell或者Python
- ¥20 谁能帮我挨个解读这个php语言编的代码什么意思?
- ¥15 win10权限管理,限制普通用户使用删除功能
- ¥15 minnio内存占用过大,内存没被回收(Windows环境)
- ¥65 抖音咸鱼付款链接转码支付宝
- ¥15 ubuntu22.04上安装ursim-3.15.8.106339遇到的问题
- ¥15 blast算法(相关搜索:数据库)
- ¥15 请问有人会紧聚焦相关的matlab知识嘛?