| 陸上選手が，走り幅跳びに挑戦します。選手は，助走をした後，放物線をえがい て着地します。画面左上に表示される↑の角度によって跳ぶ距離が変化します。 |
TO スタート１
CC SHOW "｜何かキーを押すと，助走（じょそう）を始めます。｜
角度１ ２ ジャンプ１
END
TO 角度１ ：数
TELL 10
PU SETPOS [-250 100]
IF ：数 > 7 [MAKE "数 2 SETSH ：数 ST]
【説明／走り幅跳びで踏み切る角度を示す→を設定します。】
IF KEY? [ジャンプ１]
【説明／何かキーを押すまで→の角度が９０度までの間で変化し続けます。】
SETC 6 SETSH ：数 ST
角度１ ：数 + 1
END
TO ジャンプ１
けいさん 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
END
TO けいさん ：V0
MAKE "数 ：数 * 5 MAKE "KAKUDO ：数 + 10 CT
【説明／走り幅跳びで踏み切る角度を示す→をもとに設定します。】
MAKE "かくど (ASK 0 ［：KAKUDO］)
MAKE "ｘ２ ：V0 ＊ cos ：かくど
MAKE "ｙ２ ：V0 ＊ sin ：かくど
MAKE "じかん （２ ＊ ：V0 ＊ sin ：かくど） ／ ９.８１
END
TO ほうぶつせん ：ｔ ：へんか
IF ：ｔ ＞ ：じかん［STOP］
SETPOS LIST （ｘじく ：ｔ）− 150 （ｙじく ：ｔ） - 68
ほうぶつせん ：ｔ ＋ ：へんか ：へんか
END
TO ｘじく ：びょう
OP ：ｘ２ ＊ ：びょう ＊ ２
END
TO ｙじく ：びょう
OP
（：ｙ２ ＊ ：びょう − ４.９０５ ＊ ：びょう ＊ ：びょう） ＊ ２
END
参考：サンプルプログラム集（LOGOJAPAN）