« 嵐電の車体に源氏物語千年紀の絵が。 | トップページ | ExcelでRutherford散乱を解いてみる(Dormand&Prince)。 »

2009年2月 2日 (月)

センター試験に出てる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をほとんどそのままトレース(なので下手とか責めないでbleah)。まあさすがに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);
}

« 嵐電の車体に源氏物語千年紀の絵が。 | トップページ | ExcelでRutherford散乱を解いてみる(Dormand&Prince)。 »

学問・資格」カテゴリの記事

コメント

コメントを書く

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/512682/43937446

この記事へのトラックバック一覧です: センター試験に出てるBASICプログラムをそのままkeisan.casio.jpに移植。:

» 大学入試センター試験の紹介 [大学入試センター試験]
大学入試センター試験の紹介 [続きを読む]

« 嵐電の車体に源氏物語千年紀の絵が。 | トップページ | ExcelでRutherford散乱を解いてみる(Dormand&Prince)。 »

最近のコメント

2018年11月
        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30  
フォト
無料ブログはココログ