旅人算の問題 📖

アドベントカレンダー2022、一日目の記事用。お馬さんが牛さんを追い掛けます。歩く速さや牛さんの先行日数などの条件は変えられますので遊んでみてね☆　／馬が牛に追い付く日数を求める問題（勘者御伽双紙より）

プログラム: (→大)
＃旅人算の問題 # 変数 牛歩く速さは１０#里(毎日) 馬歩く速さは１５#里(毎日) 先行日数は３#日(牛) 倍率は３。# 描画用の倍率 牛歩いた距離は０#里 馬歩いた距離は０#里 # UI作成 「牛は一日に」のラベル作成。牛歩く速さのエディタ作成して牛速エディタに代入。「里歩きます。」のラベル作成。改行作成。牛速エディタの「幅」に「50px」をDOMスタイル設定。 「馬は一日に」のラベル作成。馬歩く速さのエディタ作成して馬速エディタに代入。「里歩きます。」のラベル作成。改行作成。馬速エディタの「幅」に「50px」をDOMスタイル設定。 「牛は馬より」のラベル作成。先行日数のエディタ作成して先行エディタに代入。「日先に行きます。」のラベル作成。改行作成。先行エディタの「幅」に「50px」をDOMスタイル設定。 「馬は何日目で牛に追いつくでしょう？」のラベル作成。改行作成。改行作成。 「スタート！」のボタン作成してスタートボタンに代入。改行作成。 # 牛と馬を作成 カメキャンバスは[400,200]のキャンバス作成。 カメ描画先はカメキャンバス。 カメ画像URLは、「https://n3s.nadesi.com/image.php?f=208.png」# べこ カメ作成して牛に代入。 カメ画像URLは、「https://n3s.nadesi.com/image.php?f=209.png」# 馬コ カメ作成して馬に代入。 牛と馬を並べる。 スタートボタンをクリックした時には、 描画クリア。 # 条件 牛歩く速さは牛速エディタのテキスト取得を数値変換。 馬歩く速さは馬速エディタのテキスト取得を数値変換。 先行日数は先行エディタのテキスト取得を数値変換。 # 確認 もし、牛歩く速さ≧馬歩く速さならば、: 「馬は牛より大きい値を設定してください」と言う。 戻る。 総歩行距離＝(牛歩く速さ*先行日数/(馬歩く速さ-牛歩く速さ)*馬歩く速さ) もし、総歩行距離＞100ならば、カメキャンバスの「幅」に、100+総歩行距離*3をDOM属性設定。 # 位置に付かせる 牛と馬を並べる。 「牛が{先行日数}日先に行きます」と言う。 牛を先行日数だけ先行させる。 # スタート！ 「馬が歩き始めます{改行}何日で追いつくかな？」と言う。 日数は０#日目 馬歩いた距離が牛歩いた距離未満の間: 牛歩く。 馬歩く。 日数＝日数＋１。 0.5秒待つ。 「答え：{日数}日でした☆」と言う。 検算します。 ここまで。 # 関数 ●検算: 牛歩く速さに先行日数を掛けて実に代入。 馬歩く速さから牛歩く速さを引いて法に代入。 答えは法で実を割ります。 「牛の{牛歩く速さ}里に{先行日数}日を掛けると{実}里となります。 馬の{馬歩く速さ}里から牛の{牛歩く速さ}里を引くと{法}里となります。 {法}里で{実}里を割れば{答え}です。 {答えを切り上げ}日目で追いつくことになります。」と言う。 ●(牛と馬を)並べる: ２回: 牛か馬は回数-1。 牛か馬にカメ操作対象設定。 ９０にカメ角度設定。 [５０,５０+牛馬*８０]へカメ起点移動。 1秒待つ。 ●牛歩く: 牛にカメ操作対象設定。 牛歩く速さ＊倍率だけカメ進む。 牛歩いた距離＝牛歩いた距離＋牛歩く速さ。 ●馬歩く: 馬にカメ操作対象設定。 馬歩く速さ＊倍率だけカメ進む。 馬歩いた距離＝馬歩いた距離＋馬歩く速さ。 ●(牛を先行日数だけ)先行させる: 先行日数回: 牛歩く。 0.5秒待つ。 # 数値が全角で入力されてもＯＫにする ●(Aを)数値変換: Aを英数記号半角変換してそれを実数変換。