新しく発言する  EXIT  インデックスへ
センター試験

  センター試験 山中和義 2008/01/21 10:52:40 

センター試験  返事を書く  ノートメニュー
山中和義 <drdlxujciw> 2008/01/21 10:52:40
最近の掲示板のテーマでした。
文法は、N88ではなくFULL BASICなんですね。

解答のプログラム


10 !センター試験 数学U・数学B 2008.1.20
20 !ユークリッドの互除法による自然数x,yの最大公約数(GCD)、最小公倍数(LCM)を求める
30 !関係式 LCM*GCD=x*y

100 INPUT PROMPT "x=": X
110 INPUT PROMPT "y=": Y
120 IF X<Y THEN
130 LET Z=X !※作業変数Zを介して、x,yの交換 swap x,y
140 LET X=Y !※
150 LET Y=Z !※
160 END IF
LET T=X*Y
170 IF Y=0 THEN
180 PRINT X !GCD
PRINT T/X !LCM
190 GOTO 270
200 END IF
210 LET R=X !※余りRを求める R=X-INT(X/Y)*Y=MOD(X,Y)
220 LET R=R-Y !※割り算は引き算の繰り返し
230 IF R>=Y THEN GOTO 220 !※
240 LET X=Y !互除法より
250 LET Y=R
260 GOTO 170
270 END

  問題文のアルゴリズムを素直に書くと 白石 和夫 2008/01/21 11:20:55 
  │└余りを求めるのに 白石 和夫 2008/01/21 11:30:29 
  │ ├あえて試験だから、このようにコード化する... 山中和義 2008/01/21 11:54:42 
  │ │└みごとなスパゲッティ・プログラムです。 白石 和夫 2008/01/21 17:59:57  (修正1回)
  │ │ └過去問題をいくつか見てみると、パターンが... 山中和義 2008/01/22 20:52:21 
  │ └ユークリッドのアルゴリズムは除算を用いな... 白石 和夫 2008/01/21 11:54:53  (修正1回)
  全文を、書かせる出題方法は、とれないもの... SECOND 2008/01/21 15:17:01 
  │└!整理すると、こんなに短いものです。 SECOND 2008/01/21 21:09:19  (修正4回)
  素朴な疑問 小塚貞典 2008/01/21 22:02:59 
   └問題点と背景について私見 小塚貞典 2008/01/23 10:20:03 

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