Fortran90

教えてください。gradualというプログラムをfortran９０で作ろうとしています。どういうのかといいますと、
二人のplayerがいて、CかDを選ぶゲームです。このゲームを繰り返し行います。（１０回、１００回などなど）そこで、私は最初にCを選びます。そして、相手が前回の対戦でCを選ぶかぎり、私もCを選び続けますが、いったん相手がDを選んだら、私は、Dを一回、Cを２回つつけてえらびます。そして、相手が、Dを２回目として選んだときには、私は、Dを二回Cを２回。相手がDをｎ回選んだときには、私は、DをｎかいCを２回選びます。

例 私：　C C D C C C C D D C C C C D D D C C C
相手：　C D C C C C D C C C C C D C C C C C C

　私： C C D C D D C C D D D C C D D D D C C
　相手： C D C D C C D C C C D C C C C C C C C

どうか、このプログラムの作り方を教えてください。

No.1 回答者： sion_fs 回答日時： 2005/03/06 00:14

変数を３つ使います。

１つめの変数には、相手が'D'を出した回数を記録します。
２つめの変数には、自分が'D'ｘｎ＋'CC'を出した回数を記録します。
３つめの変数には、自分が'D'ｘｎ＋'CC'を出す一連の動作がどこまで進んでいるかを記録します。

つまり、相手が'D'を出すごとに変数１は１づつ増加します。
変数１が変数２と異なる場合には、'D'ｘｎ＋'CC'を出す動作を開始、または継続しなければなりません
変数３では、'D'を出すべき回数からカウントし始めて、'D'をｎ回出した時に変数３が０になります。変数３が０以下の場合は、'C'を出し、変数３が－２（Cを２回出した）になった時に、変数３の役目は終了します。（変数２に１加わります）


次の様な感じになります。
（※このままプログラムに書き直せば出来上がってしまうので、出来れば上の文章だけで解いて見て下さい。）


変数１・２を０（初期値）にする。
変数３を-2にする。
変数ＸとＹを初期値にする。

:ROOPここから。
　相手の入力をＸとする。
　もしＸが'D'の時、変数１を１増加させる。
　もし変数１と２が異なる場合、'D'ｘｎ＋'CC'を出す一連の処理に向かう。
　そうではない場合は、'C'を出す。
:ROOPに戻る。

'D'ｘｎ＋'CC'を出す一連の処理：
　もし変数３が-2の場合、'D'を出し始める。同時に、変数３を'D'を出す回数ｎ－１にする。（１回目の'D'は既にこの時点で出す）
　もし変数３が０より大きい場合、'D'を出して、変数３を１回引く。
　もし変数３が０の場合、'C'を出す１回目の処理に入る。変数３を１引く。
　もし変数３が-1の場合、'C'を出す２回目の処理に入る。変数３を１引いて、一連の処理が終了した印に変数２に１加える。
元の処理に戻る。