fortran题3000km≤S, d=15.0%; 编写程序输入基本运费P、货物重量W和距离S,计算总运费F。其中F=PXWXSX(1-d).
时间: 2024-10-11 14:02:32 浏览: 4
这是一个Fortran编程的问题,需要编写一段代码来计算总运费F。给定的基本规则是如果货物运输距离S大于等于3000公里,并且折扣比例d为15%,那么总运费F将基于基础运费P乘以货物重量W,再乘以里程S,并减去15%的折扣。以下是相应的Fortran代码:
```fortran
program CalculateTotalFreight
real :: P, W, S, d, F
! 输入变量
write(*,*) "请输入基础运费P (单位: 元):"
read(*), P
write(*,*) "请输入货物重量W (单位: 千克):"
read(*), W
write(*,*) "请输入距离S (单位: 公里):"
read(*), S
! 检查条件并计算折扣
if (S >= 3000.0) then
d = 0.15 ! 15% 的折扣率
else
d = 0.0 ! 如果不足3000公里,则不享受折扣
end if
! 计算总运费
F = P * W * S * (1 - d)
! 输出结果
write(*,*) "总运费F (包括折扣):", F
end program CalculateTotalFreight
```