设为首页收藏本站如何选择编译器？在线F77转F90 繁体浏览

切换到窄版开启辅助访问

Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 为什么求不了圆的周长和半径

返回列表发新帖

查看: 3131|回复: 1

上一主题

下一主题

[求助] 为什么求不了圆的周长和半径

已解决

9 帖子	2 主题	0 精华

F 币: 38 元
贡献: 21 点

发消息

电梯直达

跳转到指定楼层

楼主

发表于 2022-3-19 22:21:50 | 只看该作者 |只看大图回帖奖励

回帖奖励

|倒序浏览 |阅读模式

不理解

屏幕截图 2022-03-19 221913.png (34.77 KB, 下载次数: 178)

屏幕截图 2022-03-19 221913.png

分享到: 微信

收藏0 点赞0 点踩0

回复

使用道具举报

实名认证

2033 帖子	12 主题	5 精华

臭石头雪球

F 币: 1641 元
贡献: 709 点

发消息

沙发

发表于 2022-3-20 21:39:09 | 只看该作者

1. 代码没有问题。
2. 如果你遇到了问题，请描述你的问题，给出必要错误提示或截图。可能是对编译环境的操作问题~~
3. 尽管你的代码是正确的，但仍然有更合适的改善空间。比如，不要害怕让编译器或计算机多运算几步。相对于让代码容易理解，计算机多计算几步，是非常值得的。

以下代码供参考。

[Fortran] 纯文本查看 复制代码

Program main
  Implicit None
  Real(8) , parameter :: PI = acos(-1.0)
  Real(8) :: r,s,c
  write(*,*) "请输入圆的半径"
  read(*,*) r
  s=PI*r*r
  c=2.d0*PI*r
  write(*,*) s
  write(*,*) c
End Program main

回复支持反对

使用道具举报

返回列表发新帖

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

GMT+8, 2024-12-24 20:21

Powered by Tencent X3.4

© 2013-2024 Tencent

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