用FORTRAN求三个数中的最大数和最小数
2个回答
展开全部
program MinMax
implicit none
integer :: a
integer :: b
integer :: c
integer :: min
integer :: max
read *, a, b, c
min = a
max = a
if(min > b) then
min = b
else if(max < b) then
max = b
end if
if(min > c) then
min = c
else if(max < c) then
max = c
end if
print *, "min = ", min, " max = ", max
end program MinMax
implicit none
integer :: a
integer :: b
integer :: c
integer :: min
integer :: max
read *, a, b, c
min = a
max = a
if(min > b) then
min = b
else if(max < b) then
max = b
end if
if(min > c) then
min = c
else if(max < c) then
max = c
end if
print *, "min = ", min, " max = ", max
end program MinMax
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
