増加(減少)のボタンを押すと図が変化する。 set b fnc -(a-1)(a-1); ifread b step2; を実行すると a の値が 1 の時のみ b の値が非負(0以上)なので step1 の部分を読み込んで実行する。 |
<APPLET CODE="GDView0.class" WIDTH=560 HEIGHT=540> <param name=choice_ddl value="ddlA"> <param name=hani0 value="ddlA 0 25 1"> <param name=precommand0 value=" set_ddl ddlA 0"> <param name=command0 value="read honbun"> <param name=honbun value=" set O 0 0; color 255 255 255; fcircle O 20; read egaku1; set b -a; ifread b step1; set b -(a-1)(a-1); ifread b step2; set b a-2; ifread b egaku2; set b -(a-2)(a-2); ifread b step3; set b -(a-3)(a-3); ifread b step4; set b a - 4; ifread b egaku3; set b -(a-4)(a-4); ifread b step5; set b - (a-5)(a-5); ifread b step6; set b a - 6; ifread b egaku4; set b - (a-7)(a-7); ifread b step7; set b a - 8; ifread b egaku5; set b - (a-9)(a-9); ifread b step8; set b a - 10; ifread b egaku6; set b - a-11)(a-11); ifread b step9; set b a - 12; ifread b egaku7; set b -(a-13)(a-13); ifread b step10; set b a - 14; ifread b egaku8; set b -(a-15)(a-15); ifread b step11; set b a - 16; ifread b egaku9; set b -(a-17)(a-17); ifread b step12; set b a - 18; ifread b egaku10; set b -(a-19)(a-19); ifread b step13; set b a - 20; ifread b egaku11; set b -(a-21)(a-21); ifread b step14; set b a - 22; ifread b egaku12; set b -(a-23)(a-23); ifread b step15; set b a - 24; ifread b egaku13; set b a - 25; ifread b egaku14; ">続く 左図は上の アプレットを実行したものです。 戻る |