{ＳＦＣ版　ＤＲＡＧＯＮ　ＱＵＥＳＴ　３
レベルと経験値の関係を出力するＰＡＳＣＡＬプログラム（盗賊のみ）
１９９７年１月９日更新。}

program dq3data_thief(output);
var i: integer;                                {レベル}
    a: array [1..99] of integer;               {経験値}
    b: array [2..99] of integer;               {階差数列}
begin
  writeln('        Lv              Ex_thief');
  writeln('         1                     0');
  b[2] := 13;                                  {階差数列の計算} 
  b[3] := 2 * b[2];
  for i := 4 to 13 do
    b[i] := (3 * b[i-1]) div 2;
  for i := 14 to 20 do
    b[i] := (5 * b[i-1]) div 4;
  for i := 21 to 42 do
    b[i] := (9 * b[i-1]) div 8;
  for i := 43 to 99 do
    b[i] := b[i-1];

  a[1] := 0;                                   {経験値の計算}
  for i := 2 to 99 do begin
    a[i] := a[i-1] + b[i];
    writeln(i,'            ',a[i]);            {結果の出力}
  end;
end.

トップページに戻る
ＤＱページに戻る
ＳＦＣＤＱ３データ集に戻る