home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / extensions / jd / procs / _rootpower.amos / _rootpower.amosSourceCode
AMOS Source Code  |  1994-02-02  |  332b  |  11 lines
  1. Z#=-9.0 : P#=3.0
  2. Print P#;"te Wurzel aus";Z#;" =";
  3. ROOT[Z#,P#] : Print Param#
  4. Print Param#;" hoch";P#;" =";
  5. POWER[Param#,P#] : Print Param#
  6. Procedure ROOT[A#,B#]
  7.    B#=1/B# : POWER[A#,B#] : ERG#=Param#
  8. End Proc[ERG#]
  9. Procedure POWER[A#,B#]
  10.    B=B# : A=A# : ERG#=A#^B# : If Sgn(A)=-1 Then If B/2*2<>B Then ERG#=ERG#*-1
  11. End Proc[ERG#]