home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / aminet / jdlib4_6.lha / Procs / _RootPower.AMOS / _RootPower.amosSourceCode
AMOS Source Code  |  2008-12-10  |  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#]