余りを求めるのに

　　センター試験山中和義 2008/01/21 10:52:40 　　├問題文のアルゴリズムを素直に書くと白石　和夫 2008/01/21 11:20:55 　　│└余りを求めるのに白石　和夫 2008/01/21 11:30:29

余りを求めるのに
210 LET R=X
220 LET R=R-Y
230 IF R>=Y THEN GOTO 220
すなわち
210 LET R=X
215 DO
220 LET R=R-Y
230 LOOP WHILE R>=Y
の形の繰り返しによっているので，120～160行の前処理でX≧Yにしておかないと具合が悪いというアルゴリズムです。
余りを求めるのを
220 LET R=X
215 DO WHILE R>=Y
220 LET R=R-Y
230 LOOP
あるいは，
220 LET R=X
215 IF R<Y THEN 240
220 LET R=R-Y
230 GOTO 215
に変えれば，120～160行は不要です。

　　│　├あえて試験だから、このようにコード化する... 山中和義 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

Re: 問題文のアルゴリズムを素直に書くと	返事を書くノートメニュー
白石　和夫 <ynwythjfwu> 2008/01/21 11:30:29
余りを求めるのに 210 LET R=X 220 LET R=R-Y 230 IF R>=Y THEN GOTO 220 すなわち 210 LET R=X 215 DO 220 LET R=R-Y 230 LOOP WHILE R>=Y の形の繰り返しによっているので，120～160行の前処理でX≧Yにしておかないと具合が悪いというアルゴリズムです。余りを求めるのを 220 LET R=X 215 DO WHILE R>=Y 220 LET R=R-Y 230 LOOP あるいは， 220 LET R=X 215 IF R<Y THEN 240 220 LET R=R-Y 230 GOTO 215 に変えれば，120～160行は不要です。