PPT Slide
program C12
use Swap_Reals_M
implicit none
real :: A, B, C
! start program C12
write (unit = *, fmt = *) " Please enter three numbers."
read (unit = *, fmt = *) A, B, C
write (unit = *, fmt = *) " Thank you. You have entered: ", A, B, C
if (A > B) then
call Swap( A, B )
end if
if (A > C) then
call Swap( A, C )
end if
if (B > C) then
call Swap( B, C )
end if
write (unit = *, fmt = *) " The numbers in increasing order are: ", A, B, C
stop
end program C12
Previous slide
Next slide
Back to first slide
View graphic version