代码大全

'---------------------------------------------------------

Function Min! (Arg1!,Arg2!)

'---------------------------------------------------------

'find the arithmetic minimum of Arg1 and Arg2

if(Arg1!>Arg2!) then

Max!=Arg1!

else

Max!=Arg2!

endif

end Function

C Pascal Fortran Basic

C C

18.8.1