mからnまでの自然数の和
作品プログラム
- 動作環境
- 投稿者
- ジュン
- 投稿日
- 2010-07-04 14:35:17
- ダウンロード数
- 397
作品のプログラム
開始は、0 // この変数を使わないと、窓が表示される前にテキスト2の内容が変化した時の手順が実行され、エラーになる 窓というウィンドウを作る その内容を「mからnまでの自然数の和」に変える そのドラッグドロップを○に変える その位置と大きさを｛15，15，300，300｝に変える その内部領域大きさを｛288，96｝に変える 窓へテキスト和というテキストを作る その内容を「1」に変える その移動順を5に変える その位置と大きさを｛28，40，96，25｝に変える そのフォント名を「メイリオ」に変える 窓へラベル2というラベルを作る その内容を「=」に変える その移動順を4に変える その位置と大きさを｛8，44，18，18｝に変える そのフォント名を「メイリオ」に変える 窓へテキスト2というテキストを作る // nを入力する。右側 その内容を「1」に変える その移動順を3に変える そのIME状態を「オフ」に変える その位置と大きさを｛96，8，64，25｝に変える そのフォント名を「メイリオ」に変える 窓へラベル1というラベルを作る その内容を「～ までの和」に変える その移動順を2に変える その位置と大きさを｛72，12，144，18｝に変える そのフォント名を「メイリオ」に変える 窓へテキスト1というテキストを作る // mを入力する。左側 その内容を「1」に変える その移動順を1に変える そのIME状態を「オフ」に変える その位置と大きさを｛8，8，64，25｝に変える そのフォント名を「メイリオ」に変える 窓を表示する 開始は、1 待機する テキスト1の内容が変化した時の手順 もし開始が1なら 和を求める もし終わり 終わり テキスト2の内容が変化した時の手順 もし開始が1なら 和を求める もし終わり 終わり 和を、求める手順 m1=テキスト1の内容-0 n1=テキスト2の内容-0 もし m1<1 または n1<1 または m1>n1 なら テキスト和の内容は、「N/A」 そうでなければ m=m1を切り捨てたもの n=n1を切り捨てたもの 和は、(m+n)*(n-m+1)/2 テキスト和の内容は、和 もし終わり 終わり