新しく発言する EXIT インデックスへ
やってみて

  やってみて にこにこ 2003/12/02 21:27:09 

  やってみて にこにこ 2003/12/02 21:27:09  ツリーへ

やってみて 返事を書く
にこにこ 2003/12/02 21:27:09
PRINT "問題だよ〜ん(^-^)"
LET ANS=877
PRINT "1問目 何でもいいから果物か、生き物の名前を入れて!(数字で!)"
PRINT"ヒント 15(いちご)8(はち)877(ばなな)(この中のどれか)で〜す"
INPUT X
DO WHILE (ANS>X)
IF (ANS=877) THEN
PRINT "あれれーちがうよ(*-*)"
END IF
INPUT X
LOOP
PRINT "いいよ(^-^)"

LET ANS=110
PRINT "2問目 物の名前をいれて(ヒントの中のどれか)"
PRINT "ヒント どゅえ〜す 110(いと)33 (耳) 87 (はな)"
INPUT Q
DO WHILE (ANS<>Q)
IF (ANS=110) THEN
PRINT "あれれーちがうよ(~-~)"
END IF
INPUT Q
LOOP
PRINT "いいよ〜ん{・_・}"

PRINT "えをみてね〜"
PICTURE tragon(n,yellowgreen,green,lightblue)
! print n,red,green,blue
IF n=10 THEN
SET COLOR MIX (1) yellowgreen,green,lightblue
set point color 1
PLOT POINTS: 0,0
ELSE
DRAW tragon(n+1,yellowgreen+2^(-n),green,lightblue)WITH SCALE(1/SQR(3))*ROTATE(PI/6)
DRAW tragon(n+1,yellowgreen,green+2^(-n),green) WITH SHIFT(-2,0)*SCALE(1/SQR(3))*ROTATE(PI/6)*SHIFT(2,0)
DRAW tragon(n+1,lightblue,green,+2^(-n)) WITH SHIFT(-1,-SQR(3))*SCALE(1/SQR(3))*ROTATE(PI/6)*SHIFT(1,SQR(3))
END IF
END PICTURE
SET WINDOW -2,3,-2,3
SET POINT STYLE 1
DRAW tragon(1,0,0,0)



LET ANS=029
PRINT "3問目 物の名前を入れて (ヒントの中のどれか)"
PRINT "ヒントで〜シュ! 22 (ブーブー)1010 (トイレ)029 (お肉)"
DO WHILE (ANS<>A)
IF (ANS=029)THEN
PRINT "ぜ〜んぜんちがうよ(〜_〜)"
END IF
INPUT A
LOOP
PRINT"いいど〜(^O^)"

print"おまけ"
PICTURE D(n)
IF n=18 THEN
PLOT POINTS: 0,0
ELSE
DRAW D(n+1) WITH ROTATE(PI/4)*SCALE(1/sqr(2))
DRAW D(n+1) WITH SHIFT(-1,0)*ROTATE(PI/4)*SCALE(1/sqr(2))*SHIFT(1,0)
END IF
END PICTURE
SET WINDOW -1/2 , 3/2 , -1 , 1
SET POINT STYLE 1
DRAW D(0)
END


インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。