新しく発言する 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 
　　　└!(つづき３) 会社員 2007/12/29 06:54:31 

Re: ただいま自力でプログラムを作ってますので	返事を書く ノートメニュー
会社員 <qiekrrepwd> 2007/12/29 06:54:31
!(つづき３) SUB JOB1 !捕食-生存・繁殖の処理 IF Cimi_N(0)-KIL_N(0)=>0 THEN LET Cimi_Nokori=Cimi_N(0)-KIL_N(0) ELSE LET Cimi_Nokori=0 END IF IF Cimi_N(0)-KIL_N(0)=>0 THEN LET KIL_Nokori=Mlt_KIL*KIL_N(0) ELSE LET KIL_Nokori=Mlt_KIL*Cimi_N(0) END IF PRINT "" PRINT "寄生虫";KIL_N(0);"匹に食べられて" PRINT "セミは";Cimi_Nokori;"匹が生き残った" PRINT "寄生虫は";KIL_Nokori;"匹まで増加した" PRINT "" PRINT "生き残ったセミは、";Mlt_cimi;"個/匹のたまごを産んだ" LET Cimi_Egg=Mlt_cimi*Cimi_Nokori PRINT "セミは、産んだ卵の数＝";Cimi_Egg;"個" PRINT "これを元に今年から冬眠するセミ・寄生虫を計算すると・・・" FOR I=1 TO 20 IF Cimi_N(0)>0 THEN LET Cimi_N_Egg(I) =INT(Cimi_Egg*(Cimi_N(I)/Cimi_N(0))) ELSE LET Cimi_N_Egg(I) =0 END IF NEXT I FOR I=1 TO 20 IF KIL_N(0)>0 THEN LET KIL_N_Egg(I)=INT(KIL_Nokori*KIL_N(I)/KIL_N(0)) ELSE LET KIL_N_Egg(I)=0 END IF NEXT I PRINT "１年セミ冬眠数=";Cimi_N_Egg(1) PRINT "２年セミ冬眠数=";Cimi_N_Egg(2) PRINT "３年セミ冬眠数=";Cimi_N_Egg(3) PRINT "４年セミ冬眠数=";Cimi_N_Egg(4) PRINT "５年セミ冬眠数=";Cimi_N_Egg(5) PRINT "１年寄生虫冬眠数=";KIL_N_Egg(1) PRINT "２年寄生虫冬眠数=";KIL_N_Egg(2) PRINT "３年寄生虫冬眠数=";KIL_N_Egg(3) PRINT "４年寄生虫冬眠数=";KIL_N_Egg(4) PRINT "５年寄生虫冬眠数=";KIL_N_Egg(5) END SUB SUB Worm_die ! 寄生虫が土にも、地上にもいない場合 終了。 LET FLG=0 FOR J=1 TO 20 FOR I=1 TO J IF KIL_N_Egg_Sleep(I,J)>0 THEN LET FLG=1 !寄生虫が生きていたら、フラグを立てる NEXT I NEXT J IF FLG=0 THEN PRINT "■■■■■■■■■■■■寄生虫は絶滅した！■■■■■■■■■■■" STOP END IF END SUB END

インデックスへ

EXIT