増加(減少)のボタンを押すと図が変化する。


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;
">
 
 続く
左図は上の アプレットを実行したものです。

 戻る