主题：[讨论]帮帮小弟我吧···【已解决】
华丽颓废
[专家分：0] 发布于 2010-10-09 15:27:00
[size=5]program main
implicit none
real s,a,b,c,A
A=sqrt(s*(s-a)*(s-b)*(s-c))
write(*,*)"请输入A值"
read(*,*)A
write(*,*)"请输入b的值"
read(*,*)b
write(*,*)"请输入c的值"
read(*,*)c
write(*,"(f5.2)")s
end[/size]
刚学fortran，上述代码有什么问题啊？求助啦····
最后更新于：2010-10-09 20:35:00
回复列表 （共11个回复）
沙发
dongyuanxun [专家分：7180] 发布于 2010-10-09 15:30:00
fortran对大小写不敏感
a和A表示一个
板凳
独狼专属 [专家分：0] 发布于 2010-10-09 15:32:00
改过了的，还是不行···
3 楼
jstzhurj [专家分：4680] 发布于 2010-10-09 15:32:00
A,a重复，A改用area!
4 楼
独狼专属 [专家分：0] 发布于 2010-10-09 15:35:00
试了，出现2warning···[em21]
5 楼
jstzhurj [专家分：4680] 发布于 2010-10-09 15:35:00
S的式子没给。
6 楼
jstzhurj [专家分：4680] 发布于 2010-10-09 15:36:00
周长的一半！
7 楼
独狼专属 [专家分：0] 发布于 2010-10-09 15:40:00
哦，这里复制掉了，不过我的上面还是出现了1warning
如下：
--------------------Configuration: dlzs3 - Win32 Debug--------------------
Compiling Fortran...
F:\fortran\Fortranexcise\S\dlzs3.f90
F:\fortran\Fortranexcise\S\dlzs3.f90(4) : Warning: Variable A is used before its value has been defined
area=sqrt(s*(s-a)*(s-b)*(s-c))
---------------^
dlzs3.obj - 0 error(s), 1 warning(s)
8 楼
jstzhurj [专家分：4680] 发布于 2010-10-09 15:44:00
输入所有值之后再计算！
9 楼
独狼专属 [专家分：0] 发布于 2010-10-09 20:29:00
[quote]输入所有值之后再计算！[/quote]
问题解决了，对楼上的提出严重感谢
10 楼
asymptotic [专家分：16630] 发布于 2010-10-09 21:04:00
感谢现在也用 严重 修饰吗？我孤陋寡闻了。
我来回复
您所在位置：