センター試験に出てるBASICプログラムをそのままkeisan.casio.jpに移植。

この前、センター試験にBASICが出るというのがわかって、あまりに懐かしかったので移植してみた。大学入試センターに過去問が出ていた。http://www.dnc.ac.jp/index.htm

作ったのはこれ↓。

平成18年センター試験　数学II・数学B　第6問

平成19年センター試験　数学II・数学B　第6問

平成20年センター試験　数学II・数学B　第6問

平成21年センター試験　数学II・数学B　第6問

本当はもっとC的にかけるんだけれど、問題に出てるBASICをほとんどそのままトレース（なので下手とか責めないで）。まあさすがにGOTOが無いのを何とかはしてますが。

(21年度）
P=p;
Q=q;
D=d;
U=0;
for (K=1;K<=D;K=K+1) {
    if (K-int(K/P)*P == 0) {
        println(U+1,K);
        U=U+1;
        continue;
    } else {
        for (M=0;M<=int(K/P);M=M+1) {
            R = K-M*P;
            if (R-int(R/Q)*Q == 0) {
                println(U+1,K);
                U=U+1;
                break;
            }
        }
    }
}println(U);

(20年度)
X=x;
Y=y;
if (X<Y) {
    Z=X;
    X=Y;
    Y=Z;
}
while (Y<>0) {
    R=X;
    while (R>=Y) {
      R=R-Y;
    }
    X=Y;
    Y=R;
}
println(X);

(19年度)
A=区間最小値;
B=区間最大値;
N=繰り返し回数;
for (j=1;j<=N;j=j+1) {
   C=(A+B)/2;
   D=C*C*C-X;
   if (D<0) {
      A=C;
   } else {
      B=C;
   }
}
println(A);
println(B);
}

(18年度）
N=n;
I=2;
while (N<>1) {
   while (N-int(N/I)*I <> 0) {
       I=I+1;
   }
   N=N/I;
   println(I);
}