問題文のアルゴリズムを素直に書くと

センター試験

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

Re: センター試験 返事を書くノートメニュー

白石　和夫 <ynwythjfwu> 2008/01/21 11:20:55

問題文のアルゴリズムを素直に書くと
100 INPUT PROMPT "x=": X
110 INPUT PROMPT "y=": Y
120 IF X<Y THEN
130 LET Z=X
140 LET X=Y
150 LET Y=Z
160 END IF
170 DO UNTIL Y=0
210 LET R=X
215 DO
220 LET R=R-Y
230 LOOP WHILE R>=Y
240 LET X=Y
250 LET Y=R
260 LOOP
265 PRINT X !元の180行
270 END
になると思います。

　　│└余りを求めるのに 白石　和夫 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
新規発言を反映させるにはブラウザの更新ボタンを押してください。

Re: センター試験	返事を書くノートメニュー
白石　和夫 <ynwythjfwu> 2008/01/21 11:20:55
問題文のアルゴリズムを素直に書くと 100 INPUT PROMPT "x=": X 110 INPUT PROMPT "y=": Y 120 IF X<Y THEN 130 LET Z=X 140 LET X=Y 150 LET Y=Z 160 END IF 170 DO UNTIL Y=0 210 LET R=X 215 DO 220 LET R=R-Y 230 LOOP WHILE R>=Y 240 LET X=Y 250 LET Y=R 260 LOOP 265 PRINT X !元の180行 270 END になると思います。