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 BP神经网络控制倒立摆
- ¥20 要这个数学建模编程的代码 并且能完整允许出来结果 完整的过程和数据的结果
- ¥15 html5+css和javascript有人可以帮吗?图片要怎么插入代码里面啊
- ¥30 Unity接入微信SDK 无法开启摄像头
- ¥20 有偿 写代码 要用特定的软件anaconda 里的jvpyter 用python3写
- ¥20 cad图纸,chx-3六轴码垛机器人
- ¥15 移动摄像头专网需要解vlan
- ¥20 access多表提取相同字段数据并合并
- ¥20 基于MSP430f5529的MPU6050驱动,求出欧拉角
- ¥20 Java-Oj-桌布的计算