各位大大好
小弟不才
最近刚学fortran
修课时,老师出了一个作业
是要利用计数循环去输入多个任意的实数数值(循环数=数值个数)
然后再找出这些数值中的最大最小值
Write a Fortran program that will read an arbitrary number of real values and
find the maximum and minimum of the input data.
Prompt the user for the number of data to be entered and use a do loop
(iterative loop) to read the input data.
以上是作业内容
老师说不能用阵列求(因为还没教.....)
目前只想到这样写....
program hw5
implicit none
integer :: i,n
real :: x,max_x=0,min_x=0
write(*,*) "Enter number of real values:"
read(*,*) n
if (n < 2) then
write(*,*) 'At least 2 values must be entered.'
else
do i=1,n,1
write(*,*) "Enter a real value:"
read(*,*) x
if(x>max_x) max_x=x
if(x<min_x) min_x=x
end if
end do
end if
write(*,*) "最大值为",max_x,"最小值为",min_x
stop
end
我知道是错的,可是我想不出来该如何修正...
可以请各位高手们帮我看一下吗><
感谢!!