$ZARCCOS(n)
READ "Input a number: ",num IF num>1 { WRITE !,"ILLEGAL VALUE: number too big" } ELSEIF num<-1 { WRITE !,"ILLEGAL VALUE: number too small" } ELSE { WRITE !,"the arc cosine is: ",$ZARCCOS(num) WRITE !,"the arc sine is: ",$ZARCSIN(num) } QUIT
| Copyright © 1997-2005, InterSystems Corp. | Last updated: 2005-02-07 14:43:09 | Source: RCOS_fzarccos.xml |