HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2006
0803
RuthlessDragon○回目のループ時3解決


RuthlessDragon

リンク

2006/8/3(Thu) 20:44:04|NO.1764

repeat〜loop間で、cntが「3の倍数」や「5の倍数」
などといった状況を検知するにはどうすればいいでしょうか?


repeat cnt = cntt repeat 100 if cntt = 3*cnt : gosub *place loop wait 1 loop

というのを考えたのですが、これでは300までしか分かりませんし・・・。
何かよい案のある方、教えてください。



この記事に返信する


トホホッティー

リンク

2006/8/3(Thu) 20:53:10|NO.1765

こんばんは、トホホッティーです。
以下のような方法はどうですか?
\で余りをだして余りが0なら倍数と判断してます。
ちょっと応急処置的な方法ですが良かったらどうぞ。


repeat 20 a=cnt\3 if (a=0)&(cnt!0):mes cnt loop repeat 20 a=cnt\5 if (a=0)&(cnt!0):mes cnt loop stop



大陸システム

リンク

2006/8/3(Thu) 21:09:12|NO.1769

3の倍数 それぞれの位の数を足した数が3で割れる
5の倍数 一の位の数が5で割れる

ごめん、スクリプトも示したかったけど、ちょうどタイミングが良くない。
では、がんばってください^^;



RuthlessDragon

リンク

2006/8/4(Fri) 13:11:28|NO.1783

なるほど・・・

大陸システムさんのものは本格的に数学なものですね。
今回のところはトホホッティーさんのものを使わせていただきます。
こちらの方ならどの数値でも出来ますからね。

ご回答、ありがとうございました。



ONION software Copyright 1997-2021(c) All rights reserved.