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

Re: ただいま自力でプログラムを作ってますので  返事を書く  ノートメニュー
会社員 <qiekrrepwd> 2007/12/29 06:53:31
!(つづき2)
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 "その年のN年セミ・寄生虫の個体数構成"
FOR I=1 TO 5
PRINT "発生した";I;"年ゼミ=";Cimi_N(I);"匹 ";STR$(I);"年寄生虫=";KIL_N(I);"匹"
NEXT I
END SUB




SUB Born_SUM !★1年経過処理:セミ と 寄生虫 が生まれた!
FOR I=1 TO 20 ! 残り冬眠年数1年の セミ と 寄生虫 が生まれる
LET Cimi_N(I)=Cimi_N_Egg_Sleep(1,I)
LET KIL_N(I)=KIL_N_Egg_Sleep(1,I) !その年のN年セミ・寄生虫の個体数
NEXT I
! その年の生まれるセミは
! 昨年の1年ゼミ、2年前の2年ゼミ 3年前の3年ゼミ ・・・ 20年前の20年ゼミ
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

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

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