R4全国学力調査・小学校算数プログラミング問題

4/19に小中学校で実施された全国学力調査にて、小学校算数でプログラミングの問題が出ました（19ページ）

令和４年度全国学力・学習状況調査の調査問題・正答例・解説資料について（国立教育政策研究所）

まさしく新学習指導要領で例示されていた「多角形の作図」プログラムです。
IchigoJamで、グラフィック作図プログラムを作って動かしてみました。
動画はこちら。

www.youtube.com

本当はScratchなどの方がグラフィカルでわかりやすいと思いますが…

プログラム

プログラムを実行して、作図コマンドを入力していきます。
キーボードで「D」を押すと距離コマンドの入力、「A」を押すと角度コマンドの入力、Enterキーのみ押すとコマンドリストを順に実行して作図します。
作図が終わったら、何かキーを押すと最初に戻ります。

10 '*ZUKEI
20 CLV:CLS
30 ?"*ZUKEI WO KAKU*"
40 ?"[D=KYORI A=KAKUDO ENTER=START]":?
50 @QLOOP
60 S=S+1
70 ?"(";S;")";
80 LC POS(1),POS(2),1
90 P=0
100 @Q1
110 K=INKEY():IF !K CONT
120 IF K=10 GOTO @WALK
130 IF K=68 GSB @QKYORI
140 IF K=65 GSB @QKAKUDO
150 IF P=0 GOTO @Q1
160 GOTO @QLOOP
170 @WALK
180 CLS
190 W=0
200 X=16*64:Y=32*64:A=0
210 DRAW X,Y
220 @WLOOP
230 W=W+1
240 P=[W]
250 IF P=0 GOTO @WEND
260 LC 0,23:?CHR$(24);
270 IF P<1024 GSB @WKAKUDO ELSE GSB @WKYORI
280 BEEP
290 WAIT 120
300 GOTO @WLOOP
310 @WEND
320 IF !INKEY() CONT
330 RUN
340 @QKYORI
350 ?"KYORI=";
360 INPUT P
370 [S]=P*1024
380 RTN
390 @QKAKUDO
400 ?"KAKUDO=";
410 INPUT P
420 [S]=P
430 RTN
440 @WKYORI
450 P=P/1024
460 ?"(";W;")KYORI=";P;
470 U=X+P*COS(A)
480 V=Y-P*SIN(A)
490 DRAW X/64,Y/64,U/64,V/64
500 X=U:Y=V
510 RTN
520 @WKAKUDO
530 ?"(";W;")KAKUDO=";P;
540 A=A+P
550 RTN