《 かるた会の結果を発表する 》
【内容】
かるた会の競技結果を発表します。
【用例】
名札 結果発表
編集表 &TBL2 ①
画面消去 (2,1)-(24,80)
手続き実行 選択ガイド
位置指定 行番号＝先頭
画面表示 (5,7),"★ おつかれさまでした。「かるた大会」の結果を発表します。"，黄
画面表示 (6,7),#連結(" 競技者 ",#部分列(&ﾄﾘ1,1,2)," ",#部分列(&ﾄﾘ2,1,2)," " \
,#部分列(&ﾄﾘ3,1,2)," ",#部分列(&ﾄﾘ4,1,2))，白 ②
画面表示 (7,7)-(7,16)," 得 点 ",白
画面表示 (7,17)-(7,22),#全角(#STR([Ａ])),右寄せ,白 ③
条件 (&CARDN>1) 画面表示 (7,25)-(7,30),#全角(#STR([Ｂ])),右寄せ,白
条件 (&CARDN>2) 画面表示 (7,33)-(7,38),#全角(#STR([Ｃ])),右寄せ,白
条件 (&CARDN>3) 画面表示 (7,41)-(7,46),#全角(#STR([Ｄ])),右寄せ,白
&M=#最大([Ａ],[Ｄ]) ④
条件 (#項目属性(2,0)=&M) &字=&ﾄﾘ1
条件 (#項目属性(3,0)=&M) &字=&ﾄﾘ2
条件 (#項目属性(4,0)=&M) &字=&ﾄﾘ3
条件 (#項目属性(5,0)=&M) &字=&ﾄﾘ4
画面表示 (9,11),#連結(" 優勝者は ",&字，" さんです。おめでとう！"),赤 ⑤
確認
名札 かるたとり終了
画面消去 ＊
手続き実行 選択ガイド
画面表示 (6,7)," おつかれさまでした。"，白
画面表示 (8,7),"これで「かるたとり大会」を終わります。"，白
画面表示 (9,51),"また，あそぼうね。"，黄
確認
分岐 START
手続き終了
【解説】
① 編集対象表を得点表に移します。
② 競技者（最大４名まで）の名前を表示します。
③ 競技者（最大４名まで）の得点合計を表示します。
④ 競技者（最大４名まで）の最大得点を知り、その得点者の名前を変数に入れます。
このままだと同点優勝の場合、後の人の名前だけが表示されてしまいます。
改良してください。（④～⑤あたり）
⑤ 優勝者の名前を表示します。
【参考】
END of FILE 《戻る》 《玄関へ》