PRINT
PRINT "単振り子の周期  T = 2*PI*SQR(L/g)"
PRINT
INPUT PROMPT "振り子の長さは？ ":L
PRINT
LET g=9.80665
LET T=2*PI*SQR(L/g)
PRINT "周期 ＝";T;"秒"
PRINT
END