a23_intro13wk1 の変更点

追加された行はこの色です。
削除された行はこの色です。
a23_intro13wk1 へ行く。
a23_intro13wk1 の差分を削除
* easy-Cの入門書 [レベル13] の課題に対する作例
-(by [[K]], 2024.03.07)

--目次はこちら → [[a23_intro00]]

** [13-2]に対する作例: Yuririnさん作の「たからさがしゲーム」

 Q=9; R=9;
 ECHWIN(Q*2+1,R*2+2); ECHBOX(Q*2+1,R*2+1,0,1,1,2,0); ECH(1,2,0,0,0);
 FOR (I=0; I<1000000; I=I+1){
   A=RND(Q)*2+1; B=RND(R)*2+2; IF (GETECH(A,B)>0) { CONTINUE; }
   FOR(J=0; J<9; J=J+1){
 FOR(I=0; I<1000000; I=I+1){
   A=RND(Q)*2+1; B=RND(R)*2+2; IF(GETECH(A,B)>0) { CONTINUE; }
   FOR(J=1; 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<Q*2-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==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<R*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==0 && A>1     && GETECH(A-2,B)>0){ ECH(A-1,B,0,0,0); A=A-2; J=0; }
     IF(K==1 && A<Q*2-1 && GETECH(A+2,B)>0){ ECH(A+1,B,0,0,0); A=A+2; J=0; }
     IF(K==2 && B>2     && GETECH(A,B-2)>0){ ECH(A,B-1,0,0,0); B=B-2; J=0; }
     IF(K==3 && B<R*2   && GETECH(A,B+2)>0){ ECH(A,B+1,0,0,0); B=B+2; J=0; }
     IF(J==0){ ECH(A,B,0,0,0); }
   }
 }
 
 （以下略）
 ECH(1,2,6,6,0);
 FOR(K=0; K<20;){
   A=RND(Q*2+1); B=RND(R*2+1)+1; IF (GETECH(A,B)>0){ CONTINUE; }
   ECH(A,B,2,3,0); K=K+1;
 }
 A=1; B=2; S=0; T=999;
 GPRINTF(0,0,7,0,"TIME=%03d  SCORE=%05d",T,S);
 FOR(CLRKEY; INKEY(1)==0; ){ WAIT(100); }
 
 FOR (T=999; T>=0; T=T-1){
   GPRINTF(0,0,7,0,"TIME=%03d  SCORE=%05d",T,S);
   IF(S==2000){BREAK;}
   K=INKEY(1);
   IF (K>0){
     ECH(A,B,0,0,0); CLRKEY;
     IF (K==4132 && GETECH(A-1,B)!=1) {A=A-1;}
     IF (K==4133 && GETECH(A+1,B)!=1) {A=A+1;}
     IF (K==4134 && GETECH(A,B-1)!=1) {B=B-1;}
     IF (K==4135 && GETECH(A,1+B)!=1) {B=B+1;}
     IF (GETECH(A,B)==2){S=S+100;}
     ECH(A,B,6,6,0);
   }
   WAIT(100);
 }

-https://essen.osask.jp/files/pic20240307c.png

-作者のYuririnさんが小学2年生の時に作った作品です。

** ダウンロード
-https://essen.osask.jp/files/yuririn13wk1b.zip (32.1KB) ← ソースコードと画像データとhl9.exe（easy-C本体）のセット。
--ダウンロードしてzipファイルを展開したら、!hl9.exeをダブルクリックして実行してください。
---[注意] Windows8以降では、exeを実行しようとすると「Windows Defender SmartScreen は認識されないアプリの起動を停止しました。」というメッセージが出て起動をブロックされるようです。
---これが出たら「詳細情報」をクリックすることで「実行」を選べるようになります。・・・もしこれが怖かったら、実行をあきらめたほうがいいでしょう・・・（私だって責任は取れないので）。
---このメッセージは、実際に問題があろうとなかろうと、ダウンロードしてきた実行ファイルにデジタル署名がついていなければ、（一度許可されるまでは）必ず出てくるもののようです。だからexeに危険なコードが含まれているから出ているというわけではありません。



* こめんと欄
-掲示板をご利用ください。→[[a23_bbs]]