新しく発言する EXIT インデックスへ

　　素数セミのシナリオについて 会社員 2007/12/03 00:06:24 
　　├個人的見解：予定調和組み 小塚貞典 2007/12/03 16:21:09 
　　│└生成消滅演算子 小塚貞典 2007/12/13 23:08:22 
　　├蝉の生い立ちを考えると、 山中和義 2007/12/05 15:15:09 
　　│└つづき 山中和義 2007/12/05 15:15:57 
　　└ただいま自力でプログラムを作ってますので 会社員 2007/12/19 00:27:40 
　　　├途中ですが、中間報告です突然変異考慮して... 会社員 2007/12/29 06:50:22 
　　　├!（つづき） 会社員 2007/12/29 06:51:44 
　　　├!(つづき２) 会社員 2007/12/29 06:53:31 

Re: ただいま自力でプログラムを作ってますので	返事を書く ノートメニュー
会社員 <qiekrrepwd> 2007/12/29 06:53:31
!(つづき２) SUB Under_Grand2 PRINT "■■■■■■■■越冬中■■■■■■■■■■" PRINT "-------------土の中の状態-----------------" FOR J=1 TO 5 FOR I=1 TO J PRINT J;"年セミ 残り冬眠数=";I;"年";Cimi_N_Egg_Sleep(I,J) NEXT I NEXT J FOR J=1 TO 5 FOR I=1 TO J PRINT J;"年寄生虫 残り冬眠数=";I;"年";KIL_N_Egg_Sleep(I,J) NEXT I NEXT J END SUB SUB STATUS_PRT !その年の状態表示 PRINT "その年のＮ年セミ・寄生虫の個体数構成" FOR I=1 TO 5 PRINT "発生した";I;"年ゼミ=";Cimi_N(I);"匹 ";STR$(I);"年寄生虫=";KIL_N(I);"匹" NEXT I END SUB SUB Born_SUM !★１年経過処理：セミ と 寄生虫 が生まれた！ FOR I=1 TO 20 ! 残り冬眠年数１年の セミ と 寄生虫 が生まれる LET Cimi_N(I)=Cimi_N_Egg_Sleep(1,I) LET KIL_N(I)=KIL_N_Egg_Sleep(1,I) !その年のＮ年セミ・寄生虫の個体数 NEXT I ! その年の生まれるセミは ! 昨年の１年ゼミ、２年前の２年ゼミ ３年前の３年ゼミ ・・・ ２０年前の２０年ゼミ PRINT "今年の生まれるセミ・寄生虫の数を計算-----" LET Cimi_N(0)=0 ! 初期化 LET KIL_N(0)=0 ! 初期化 FOR I=1 TO 20 LET Cimi_N(0)=Cimi_N(0)+Cimi_N(I) LET KIL_N(0)=KIL_N(0)+KIL_N(I) NEXT I PRINT "セミ： ";Cimi_N(0);"匹" PRINT "寄生虫： ";KIL_N(0);"匹" PRINT "が生まれた" PRINT "" END SUB

　　　└!(つづき３) 会社員 2007/12/29 06:54:31 

インデックスへ

EXIT