ユークリッドのアルゴリズムは除算を用いな...

　　センター試験山中和義 2008/01/21 10:52:40 　　├問題文のアルゴリズムを素直に書くと白石　和夫 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回)

ユークリッドのアルゴリズムは除算を用いないで減算だけで書かれていたといわれています。BASICで書くと，
100 INPUT a,b
110 DO UNTIL b=0
120 DO WHILE a>=b
130 LET a=a-b
140 LOOP
150 ! a,bの交換
160 LET r=a
170 LET a=b
180 LET b=r
190 LOOP
200 PRINT a
210 END
みたいに，
引ける間は引くことを繰り返し，引けなくなったら2数を入れ替えて，減算の結果が0になるまで繰り帰すというのが，本来のユークリッドの算法であったといわれています。それをネタに使った出題と思われます。

　　├全文を、書かせる出題方法は、とれないもの... 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

Re: 余りを求めるのに	返事を書くノートメニュー
白石　和夫 <ynwythjfwu> 2008/01/21 11:54:53 ** この記事は1回修正されてます
ユークリッドのアルゴリズムは除算を用いないで減算だけで書かれていたといわれています。BASICで書くと， 100 INPUT a,b 110 DO UNTIL b=0 120 DO WHILE a>=b 130 LET a=a-b 140 LOOP 150 ! a,bの交換 160 LET r=a 170 LET a=b 180 LET b=r 190 LOOP 200 PRINT a 210 END みたいに，引ける間は引くことを繰り返し，引けなくなったら2数を入れ替えて，減算の結果が0になるまで繰り帰すというのが，本来のユークリッドの算法であったといわれています。それをネタに使った出題と思われます。