センター試験

最近の掲示板のテーマでした。
文法は、N88ではなくFULL BASICなんですね。

解答のプログラム

10 !センター試験数学Ⅱ・数学Ｂ 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

センター試験	返事を書くノートメニュー
山中和義 <drdlxujciw> 2008/01/21 10:52:40
最近の掲示板のテーマでした。文法は、N88ではなくFULL BASICなんですね。解答のプログラム 10 !センター試験数学Ⅱ・数学Ｂ 2008.1.20 20 !ユークリッドの互除法による自然数x,yの最大公約数(GCD)、最小公倍数(LCM)を求める 30 !関係式 LCMGCD=xy 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=XY 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