HSPTV!掲示板

以下にべき算をする関数を書きます

#ifndef power_lib
#define power_lib
#module 
#defcfunc power double x,int n
if n==0{
out=1.0
}else{
nb=n
if nb<0:nb=-1*nb
for buf,0,nb,1
if (buf==0){
buf1=1.0
}
buf1=x*buf1
next
out=buf1
if n<0{
out=1.0/buf1
  }
}
return out

#global

#endif

書式について
数値型変数=power(底,指数)
です

各値について

底=小数およびマイナス値可能
指数=少数不可、マイナス値可能

です
何かに使用してください

0,負数 を入力するとマズいことに！

失礼しました。
書き直します。

#ifndef power_lib
#define power_lib
#module 
#defcfunc power double x,int n
mref kekka,65
if n==0{
out=1.0

kekka="OK"
}else{
nb=n
if nb<0:nb=-1*nb
for buf,0,nb,1
if (buf==0){
buf1=1.0
}
buf1=x*buf1
next
out=buf1
kekka="OK"
if n<0{
if buf1=0{
Kekka="NG!"
	
}else{
out=1.0/buf1
kekka="OK"


    }
  }

}

return out

#global

#endif

いま思ったが
NO.22015
の
mref kekka,65
と
kekka="OK"
と
Kekka="NG!"
は削除しても大丈夫でした
要するに余計なことしてました。
それと
power()関数の命令化はご自由に！

ツッコミだけだといぢわるみたいなので
整数専用のを。

#defcfunc ipower int p1, int p2
 v = 1
 p = p1
 n = p2
 repeat 32
  if(n&1) : v = v*p
  p = p*p
  n = n>>1
 loop
return v

多分、正しい結果が -2147483648〜2147483647 の範囲になる計算には使えます。

hspmath.asのpowではだめなんですか？
あれは指数対数で書かれていますが…

> hspmath.asのpowではだめなんですか？

む、すでにベスト回答でてたのか…。
ちなみに実数にも対応してます。

#include "hspmath.as"
mes ""+pow(2,-0.5)

math.as
http://quasiquote.org/hspwiki/HSP3%E6%A8%99%E6%BA%96%E3%83%A9%E3%82%A4%E3%83%96%E3%83%A9%E3%83%AA%3amath.as