HSPTV!掲示板

質問です。

randomize
a=rnd(1000)
b=rnd(1000)
c=rnd(1000)

kazu=a*b*c

で出た数"kazu"を

例: 271 -> 2+7+1 -> 10
　　54020184 -> 5+4+0+2+0+1+8+4 -> 24

のように位の数を全て足した数に変えたい。

どのような命令をすれば良いのでしょうか。
もし拡張命令・DLLなどありましたら詳細ください。

271だったら、271を百で割った数は2、そのあまりを10でわると7そのあまりは1だから

a=271/100
b=271\100/10
c=271\100\10
d=a+b+c

でいいんじゃないですか？

文字列にして一文字ずつ取り出してint型にして加算って方法もある

a=str(54020184)
repeat strlen(a)
	b+int(strmid(a,cnt,1))
loop
mes b

これでいいのかな。

kazu=12345678
repeat
	A=0
	repeat
		A=A+kazu\10
		if kazu<10 : break
		kazu=(kazu-kazu\10)/10
	loop
	mes A
	kazu=A
	if kazu<10 : break
loop

例えばkazuが数字なら、

kazu=123*456*789
sum=0
while kazu!0
	sum+=kazu\10
	kazu/=10
wend
mes sum

でいいし、文字列なら、

#const zero '0'
kazu="44253432"
sum=0 :len=strlen(kazu)
repeat len
	sum+=peek(kazu,cnt)-zero
loop
mes sum

が最速かな。

ありがとうございますー