a23_intro13 のバックアップ(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
a23_intro13 へ行く。
- 1 (2023-09-25 (月) 01:01:07)
- 2 (2023-09-25 (月) 01:41:21)

easy-Cの入門書 [レベル13]

(by K, 2023.09.25)

目次はこちら → a23_intro00

ノート

キャラクタをつかってしかくをかく → ECHBOX(A,B,C,D,E,F,G);
  しかくのおおきさ（よこのながさ）がA
  しかくのおおきさ（たてのながさ）がB
  しかくのひだりうえのいちがCとD
  キャラクタのしゅるいはE
  キャラクタのいろはF
  キャラクタのはいけいしょくはG

FORめいれいのじっこうをうちきって、つぎのくりかえしにすすむ → CONTINUE;

↑

もんだい

[13-1]

いかのプログラムはめいろをかくプログラムです。

ECHWIN(47,32); ECHBOX(47,31,0,1,1,2,0); ECH(1,2,0,0,0);
FOR (I=0; I<1000000; I=I+1) {
  A=RND(23)*2+1; B=RND(15)*2+2; IF (GETECH(A,B)>0) { CONTINUE; }
  FOR (J=0; J<9; J=J+1) {
    K=RND(4);
    IF (K==0 && A> 1 && GETECH(A-2,B)>0) { ECH(A-1,B,0,0,0); A=A-2; ECH(A,B,0,0,0); J=0; }
    IF (K==1 && A<45 && GETECH(A+2,B)>0) { ECH(A+1,B,0,0,0); A=A+2; ECH(A,B,0,0,0); J=0; }
    IF (K==2 && B> 2 && GETECH(A,B-2)>0) { ECH(A,B-1,0,0,0); B=B-2; ECH(A,B,0,0,0); J=0; }
    IF (K==3 && B<30 && GETECH(A,B+2)>0) { ECH(A,B+1,0,0,0); B=B+2; ECH(A,B,0,0,0); J=0; }
  }
}

↑

こめんと欄

掲示板をご利用ください。→a23_bbs