您所在位置：主题：[讨论]帮帮小弟我吧···【已解决】
华丽颓废
[专家分：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，上述代码有什么问题啊？求助啦····
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，上述代码有什么问题啊？求助啦····