FUNCTION f(k)
   DIM n(600)
   LET n(k)=(k+1)/2
   IF k=1 THEN
      LET f=1
   ELSE
      LET f=f(k-2)*n(k)/(n(k)-1)+1
   END IF
END FUNCTION

FOR t=1 TO 600 STEP 2
   IF t<10 THEN
      PRINT USING "##":t;
      PRINT "秒後: 左端から"; f(t);"cm の所  （ 左端から "; f(t)/((t+1)/2) ;"% の位置 ）"
   END IF
   IF MOD(t,60)=59 THEN
      PRINT USING "##":INT(t/60);
      PRINT "分59秒後: 左端から"; f(t);"cm の所  （ 左端から "; f(t)/((t+1)/2) ;"% の位置 ）"
   END IF
NEXT t
PRINT
END