6 r &･ ｲj'( "( $(R(vPdﾚoT  (08@H ７ 　１ ９  (08@H-********************************************************************************* .　算数科　「小数の表し方−小数第２位導入」 　　　　 坂本八十八 　　 ********************************************************************************** TO 計測実行１ 計測 ２６０ SHOW "| 【とんだ長さをｍ単位で表しましょう。】| SHOW "|１目盛１ｍの巻尺（まきじゃく）ではかります。| SHOW "|長さが分かったら｢よみ｣をクリックしましょう。| SETICON 3 "よみ　［よみ］ UP HIDECURSOR END TO よみ CLEARICON 1 PU SETPOS [-80 50] SETC 6 PD LABEL [１ｍが２つ分と，はしたは０．１ｍが６つ分だから] PU SETY YCOR - 50 SETX XCOR + 50 PD LABEL [《記録…２．６ｍ》] HT CC SHOW "|次の記録をはかります。「計測」をクリックしましょう。| SETICON 1 "計測　［計測実行２］ CLEARICON 3 UP HIDECURSOR END TO 計測実行２ 計測　２８７ SHOW "| 【とんだ長さをｍ単位で表しましょう。】| SETICON 3 "拡大 [線分１ SETICON 5 "目盛　[目盛２]] SHOW "|１目盛１ｍの巻尺（まきじゃく）ではかります。| SHOW "|「拡大」をクリックしましょう。| UP HIDECURSOR END TO よみ２ PU SETPOS [-220 48] SETC 6 PD LABEL "|１ｍの１０分の１…０．１ｍ ０．１ｍの１０分の１…０．０１ｍ| PU SETY YCOR - 50 PU SETX XCOR + 200 SETC 7 PD LABEL [０．０１ｍは１ｍの１００分の１です。] HT SETICON 5 "よみ　［よみ２−１］SETC 5 CC SHOW "|表し方が分かったら，｢よみ｣をクリックしましょう。| UP HIDECURSOR END TO よみ２−１ PU SETY YCOR - 85 PU SETX XCOR - 50 PD LABEL [１ｍが２つ分，０．１ｍが８つ分，０．０１ｍが７つ分] PU SETY YCOR - 40 PD LABEL "|　 《記録・・・２．８７ｍ》| CLEARICON 5 SETICON 1 "計測　［計測実行３］ CC SHOW "|次の記録をはかります。「計測」をクリックしましょう。| UP HIDECURSOR END TO 計測実行３ 計測　３０５ SHOW "| 【とんだ長さをｍ単位で表しましょう。】| SETICON 3 "拡大 [線分１ SETICON 5 "目盛　[目盛３]] SHOW "|１目盛１ｍの巻尺（まきじゃく）ではかります。| SHOW "|「拡大」をクリックしましょう。| UP HIDECURSOR END TO よみ３ PU SETPOS [-220 48] SETC 6 PD LABEL "|１ｍの１０分の１…０．１ｍ ０．１ｍの１０分の１…０．０１ｍ| PU SETY YCOR - 50 PU SETX XCOR + 250 SETC 7 PD LABEL [０．０１ｍは１ｍの１００分の１です。] HT SETICON 5 "よみ　［よみ３−１］SETC 5 CC SHOW "|表し方が分かったら，｢よみ｣をクリックしましょう。| UP HIDECURSOR END TO よみ３−１ PU SETY YCOR - 85 PD LABEL [１ｍが３つ分，０．０１ｍが５つ分] PU SETY YCOR - 40 PD LABEL "|　 《記録・・・３．０５ｍ》| CC SHOW "|小数の表し方が分かったら，｢挑戦｣をクリックしましょう。| SETICON 1 "挑戦　［スタート２］ CLEARICON 5 UP HIDECURSOR END TO 計測 :K RG setbg 0 CT CC CLEARICONS SETC 7 IF :K > 950 [TONE 500 2 STOPALL] PU SETPOS [-250 0] SETSH 10 SETH 90 REPEAT :K / 2 [PD STAMP FD 1] PU SETPOS [-250 -15] PD MAKE "AMARI REMAINDER :K 100 IFELSE :AMARI >= 50 [MAKE "K :K / 100] [MAKE "K :K / 100 + 1] REPEAT :K [ SETC 3 SETH 90 REPEAT 50 [PD STAMP FD 1]　PU BK 50 SETC 7 PD BIGSTAMP [1 2] PU FD 50] BK 50 SETC 4 REPEAT 50 [PD STAMP FD 1] BK 50 SETC 7 REPEAT 10 [PU FD 5 PD STAMP] END TO 線分作図 SETSH 11 PU SETX XCOR - 30 PD BIGSTAMP [3 3] PU SETY YCOR - 40 SETSH 12 PD BIGSTAMP [3 3] ASK 5 [PU SETPOS [-215 60] SETH 0 SETC 1 PD REPEAT 2 [FD 70 RT 90 FD 527 RT 90 ] PU SETH 45 FD 5 PD SETC 9 FILL SETC 7 PU SETPOS [-285 50] PD LABEL "拡大図] PU SETPOS [-200 110] SETSH 9 REPEAT :AMARI * 5 [PD STAMP FD 1] PU SETPOS [-200 78] SETC 4 REPEAT 500 [PD STAMP FD 1] PU BK 500 SETC 7 REPEAT 10 [PU FD 50 PD STAMP] MAKE "R-AMARI QUOTIENT :AMARI 10 MAKE "R-AMARI INT :R-AMARI MAKE "R-AMARI 10 - :R-AMARI CC　SHOW "|「目盛」をクリックしましょう。| UP HIDECURSOR END TO 線分１ 線分作図 CLEARICONS SETICON 5 "目盛　［目盛１］ END TO 線分２ 線分作図　CLEARICONS SETICON 5 "目盛　［目盛２］ END TO 線分３ 線分作図　 CLEARICONS SETICON 5 "目盛　［目盛３］ END TO 線分４ 線分作図　 CLEARICONS SETICON 5 "目盛　［目盛４］ END TO 目盛１ PU BK :R-AMARI * 50 REPEAT 50 [SETC 6 PD STAMP FD 1] BK 50 REPEAT 9 [SETC 8 PU FD 5 PD STAMP] END TO 目盛２ 目盛１ SETICON 5 "よみ　［よみ２］ CC SHOW "|長さが分かったら，「よみ」をクリックしましょう。| UP HIDECURSOR END TO 目盛３ 目盛１　 SETICON 5 "よみ　［よみ３］ CC SHOW "|長さが分かったら，「よみ」をクリックしましょう。| UP HIDECURSOR END TO 目盛４ 目盛１　 SETICON 5 "よみ　［解答１］ CC SHOW "|長さが分かったら，「よみ」をクリックしましょう。| UP HIDECURSOR END TO　STARTUP 場面 SETICON 1 "ＧＯ [スタート１] SETICON 3 "計測 [計測実行１] SHOW "走りはばとびをしましょう。 SHOW "|「ＧＯ」をクリックすると，選手がスタートします。| SHOW "|「計測」をクリックすると，記録のはかり方を工夫します。| UP HIDECURSOR END TO 場面 RG CT setbg 0 CC CLEARICONS SETC 12 PU SETH 90 PU SETPOS [-250 100] SETSH 13 PD BIGSTAMP [2 2] PU SETPOS [-320 -80] PD FD 205 SETC 15 FD 435 BK 435 SETC 7 SETH 180 FD 20 SETH 90 FD 435 SETC 15 SETC 15 PU SETY YCOR + 10 PD FILL PU SETX XCOR + 50 SETC 12 PD FILL SETC 7 SETSH 1 PU SETPOS [-150 -65] HT PD STAMP 山脈 END TO 山　：斜面の長さ SETC 10 SETH 30 PD FD 60 RT 5 REPEAT 2 [FD :斜面の長さ　RT 5] REPEAT 10 [FD 20 RT 10] LT 5 REPEAT 2 [FD :斜面の長さ　RT 5] FD 60 END TO 山脈 PU SETPOS [-37 -80] 山　５０　山　２０ SETH 90 FD 640 PU SETPOS [100 -30] PD FILL PU SETPOS [-100 -30] PD FILL PU SETPOS [0 100] SETC 13 PD FILL END TO スタート１ CC SHOW "｜何かキーを押すと，助走（じょそう）を始めます。｜ 角度１ ２　ジャンプ１ END TO スタート２ 場面　ASK 20 [SETSH 14 PU SETPOS [-247 -105] PD STAMP REPEAT 2 [PU SETX XCOR + 45 PD STAMP] PU SETPOS [-210 -105] SETSH 15 PD STAMP PU SETPOS [-125 -115] SETSH "ｍ PD STAMP] CC SHOW "｜何かキーを押すと，助走（じょそう）を始めます。｜ 角度２ ２　ジャンプ２ UP HIDECURSOR END TO 角度１　:数 TELL 10 PU SETPOS [-250 100] IF :数 > 7 [MAKE "数 2 SETSH :数 ST] IF KEY? [ジャンプ１] SETC 6 SETSH :数 ST 角度１　:数 + 1 END TO 角度２　:数 TELL 10 PU SETPOS [-250 100] IF :数 > 7 [MAKE "数 2 SETSH :数 ST] IF KEY? [ジャンプ２] SETC 6 SETSH :数 ST 角度２　:数 + 1 END 　 てじゅんは　ジャンプ２ けいさん 35 跳躍２ おわり てじゅんは　ジャンプ１ けいさん 25　跳躍１ END TO 跳躍１ TELL 0 SETC 7 MAKE "KATA 37 PU SETPOS [-300 -65] SETSH :KATA ST SETH 90 REPEAT 50 [SETSH :KATA FD 3 MAKE "KATA :KATA + 1 IF :KATA > 49 [MAKE "KATA 42]] SETSH 51 SETSH 50 ほうぶつせん　０　：じかん　／　４０ 　 TELL 0 SETSH 51 ST WAIT 100 SETSH 8 SETC 7 ST WAIT 100 HT MAKE "KIROKU DISTANCE [-150 -65] SETICON 1 "ＧＯ [角度１ ２　ジャンプ１] CC SHOW "|「ＧＯ」をクリックすると，選手がスタートします。| SHOW "|「計測」をクリックすると，記録のはかり方を工夫します。| UP HIDECURSOR STOPALL おわり  TO 跳躍２ TELL 0 SETC 7 MAKE "KATA 37 PU SETPOS [-300 -65] SETSH :KATA ST SETH 90 REPEAT 50 [SETSH :KATA FD 3 MAKE "KATA :KATA + 1 IF :KATA > 49 [MAKE "KATA 42]] SETSH 51 SETSH 50 ほうぶつせん　０　：じかん　／　４０ 　 TELL 0 SETSH 51 ST WAIT 100 SETSH 8 SETC 7 PD STAMP MAKE "KIROKU DISTANCE [-150 -65] MAKE "KIROKU :KIROKU + RANDOM 20 MAKE "記録 INT :KIROKU * 3 MAKE "KAI-1 INT QUOTIENT :記録 100 MAKE "KAI-2 INT (REMAINDER :記録 100) / 10 MAKE "KAI REMAINDER :記録 100 MAKE "KAI-3 REMAINDER :KAI 10 IF :KAI-3 = 0 [MAKE "KAI :KAI + 1 MAKE "KAI-3 REMAINDER :KAI 10 MAKE "記録 :記録 + 1] 記録計測 :記録 STOPALL おわり TO 記録計測 :記録 CC　SHOW "|１目盛１ｍの巻尺（まきじゃく）を使います。| SHOW "｜記録をはかります。「計測」をクリックしましょう。｜ UP HIDECURSOR CLEARICONS PU SETPOS [-250 0] SETSH 10 SETH 90 REPEAT :記録 / 2 [PD STAMP FD 1] PU SETPOS [-250 -15] PD MAKE "AMARI REMAINDER :記録 100 IFELSE :AMARI >= 50 [MAKE "記録 :記録 / 100] [MAKE "記録 :記録 / 100 + 1] REPEAT :記録 [ SETC 3 SETH 90 REPEAT 50 [PD STAMP FD 1]　PU BK 50 SETC 7 PD BIGSTAMP [1 2] PU FD 50] BK 50 SETC 4 REPEAT 50 [PD STAMP FD 1] BK 50 SETC 7 REPEAT 10 [PU FD 5 PD STAMP] SETICON 3 "計測　[線分４] END てじゅんは　けいさん　:V0　 MAKE "数 :数 * 5　 MAKE "KAKUDO :数 + 10 CT なまえは　”かくど　(ASK 0 ［:KAKUDO］)　 なまえは　”ｘ２　:V0　＊　cos　：かくど なまえは　”ｙ２　:V0　＊　sin　：かくど　 なまえは　”じかん　（２　＊　:V0　＊　sin　：かくど）　／　９.８１　 おわり てじゅんは　ほうぶつせん　：ｔ　：へんか もし　：ｔ　＞　：じかん［とまれ］ いちは　リスト　（ｘじく　：ｔ）− 150 （ｙじく　：ｔ） - 68 ほうぶつせん　：ｔ　＋　：へんか　：へんか おわり てじゅんは　ｘじく　：びょう わたせ　：ｘ２　＊　：びょう　＊　２ おわり てじゅんは　ｙじく　：びょう わたせ　 　　（：ｙ２　＊　：びょう　−　４.９０５　＊　：びょう　＊　：びょう）　＊　２ おわり  TO 解答１ CC CT CLEARICONS SETTC 7 TELL 0 HT SHOW "｜１ｍがいくつありますか？　テンキーから数を入力しましょう。｜ SHOW "｜よければリターンキーを，入力しなおす場合はＢＳキーを，それぞれ押します。｜ CAREFULLY [MAKE "NYU-1 FIRST RLCC IFELSE NUMBER? :NYU-1 [TONE 1000 3] [解答１] 判定１] [解答１] END TO 判定１ IFELSE EQUAL? :KAI-1 :NYU-1 [入力１] [解答１] END TO 入力１ TONE 500 2 CT SETMARGIN [8 0] REPEAT 18 [PR []] SETTC 7 INSERT FULLSIZE :KAI-1 INSERT "| 　| 解答２ END TO 解答２ CC CLEARICONS SETTC 7 TELL 0 HT SHOW "｜０．１ｍがいくつありますか？　テンキーから数を入力しましょう。｜ SHOW "｜よければリターンキーを，入力しなおす場合はＢＳキーを，それぞれ押します。｜ CAREFULLY [MAKE "NYU-2 FIRST RLCC IFELSE NUMBER? :NYU-2 [TONE 1000 3] [解答２] 判定２] [解答２] END TO 判定２ IFELSE EQUAL? :KAI-2 :NYU-2 [入力２] [解答２] END TO 入力２ TONE 500 2 INSERT FULLSIZE :KAI-2 INSERT "| | 解答３ END TO 解答３ CC CLEARICONS SETTC 7 TELL 0 HT SHOW "｜０．０１ｍがいくつありますか？　テンキーから数を入力しましょう。｜ SHOW "｜よければリターンキーを，入力しなおす場合はＢＳキーを，それぞれ押します。｜ CAREFULLY [MAKE "NYU-3 FIRST RLCC IFELSE NUMBER? :NYU-3 [TONE 1000 3][解答３] 判定３] [解答３] END TO 判定３ IFELSE EQUAL? :KAI-3 :NYU-3 [入力３] [解答３] SETICON 1 "ＧＯ [スタート２] SETICON 10 "終了　[終了] CC SHOW "|「ＧＯ」をクリックすると，選手がスタートします。| SHOW "|「終了」をクリックすると，プログラムを終わります。| UP HIDECURSOR END TO 入力３ TONE 500 2 INSERT FULLSIZE :KAI-3 INSERT "| | END TO 終了 CC CT RG CLEARICONS LEAVEPAGE END んんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんんん %@ %@%<%<%<%<%<%<%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<`｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<_｡%<%<%<%<%<^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 ^%<211111111 Z%@211111111 Z%@211111111 Vh211111111 Vh211111111 Vh211111111 h誹`h矢_h偃^h夭]h懣\ h~c 5｣a  4･`  3ｧ_( 2ｩ^$ 1ｫ] 0ｭ\, /ｯ[, .ｱZ( -ｳY, ,ｵX0+ｷW0+ｷW(  *ｹV.  襤 ﾝｻU& 7ﾒｽT x,ﾊｿS t4ﾅﾁR p<ﾁﾁR lDｼﾃQ hLｷﾅP eQｴﾇO cUｱﾉN aYｮﾋM _]ｬﾋM ]aｩﾍL[eｦ!`薇KYi｣"`薜JWm#`蕷IUq暃$藥蕾HTt夾%藥薐GRx偕%藥薐GQz約&藥藉FO~二'藥薺EN拓(藥藏DL杖)藥薹CK佼*藥藐BJ稲虞*藥藐BH乞鰯+藥藕AG腫,藥藝@E悌-藥藥?D誹‰.藥藜>C矢/藥藹=B偃~/藥藹=A夭|0藥蘊<@懣z1藥蘓;?樶x2藥蘋:>v3藥藾9=｣t3藥藾9<･r4藥藺8;ｧp5藥蘆7:ｩn6藥蘆79 B$6蘢68B$6蘚57B$6蘚56B$6蘰45B$6蘿34B$6虍24B$6虍23C$6乕12B$6虔01B$6虔00B$6號/0B$6虧./B$6虧.2.111 1*?虱-2-1111+?蚓,T,111111 蚓,T+111111 蚣+T+111111 蚩*T*111111 蚩*T)111111 蚪)T(111111 蚋(T(111111 蚋(V'111111 蚌'T& 111111 蚶&T%!111111 蚶&T%!111111 蚯%T$"111111 蛄$T##111111 蛆#2"$111.1?蛆#2"$111-1?蚰"2!%111-1?蛉!2 &111,1?蛉!2'111 +1?蠣 2'111 *1?蚫瑁;N藥蚫粽9O藥蛔蒡7P藥蛞蒡7P藥蛞跟5Q藥蛩跟5Q藥蛩韶3R藥蛬韶3R藥蛬1S藥/T藥蛟/T藥蛟-U藥蛛-U藥蛛+V藥蛯+V藥蛯)W藥蜒'X藥蜆'X藥蜆%Y藥蜈%Y藥蜈#Z藥蜀![藥蜃![藥蜃\I蛻\ I蛻] H蜑] I蜑^K蜉 _ J蜍 _ I蜍 ` I蛹  ` I蛹  a I蜊  a`蜊  b`蜴  c`蜿  pﾚ  qﾚ  qﾚ  rﾚ tﾞ vﾟ w瑁 v 蠖w 蠕w 蠕x 蠢x 蠡x 蠡y 蠱x 蠱ｬ ﾜ 蠶 ｬ 蠶ｲ 蠹 ﾌ蔘 蠹 ﾌ蔘 蠹 ﾌ蔘 蠹 ﾌ蔘 蠹 ﾌ蔘 蠹 ﾌ蔘 蠹 ﾌ蔘 蠹 ﾌ蔘 蠹8 蔘 蠹"8  蔘 蠹"8  蔘 蠹"8  蔘 蠹.8  蔘 蠹.8  蔘 蠹.8  蔘 蠹.8  蔘 蠹.8  蔘 蠹.8  蔘 蠹.8  蔘 蠹,8  褄 蠹*8   蠹*8   蠹(8  ﾏ(8  ﾏ(8  ﾏ(8  ﾏ(8  ﾏ(8  ﾏ(8  ﾏ(8  ﾏ(8  ﾏ(8  ﾏ(8  ﾏ48   ｺ48   ｹ88  ｹ,8  ｹ,8  ｹ,8  ｹ 8  ｹをををををををををををををををををををををををををををををををををををををををををををををををををををををををををををををををを                                                                                                                                                                                                                                                                                                  $                                     %                                     &                                        '                             (                               )                                   *                               +                             ,                             -                             .                               /                                   0                          1                                   2                              ｻ p琥  ﾐﾝ0χ ｡ `ﾚﾙ@B0ﾐs高