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

  センター試験 山中和義 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回)
  全文を、書かせる出題方法は、とれないもの... SECOND 2008/01/21 15:17:01 
  │└!整理すると、こんなに短いものです。 SECOND 2008/01/21 21:09:19  (修正4回)

Re: 全文を、書かせる出題方法は、とれないもの...  返事を書く  ノートメニュー
SECOND <jjqdmekgpt> 2008/01/21 21:09:19 ** この記事は4回修正されてます
!整理すると、こんなに短いものです。
!欄外にこんな答案を書いた生徒は、どうなりますか・・

!---- x,y のGCD ----
INPUT PROMPT "x=": X
INPUT PROMPT "y=": Y
LET T=X*Y

DO WHILE Y<>0
DO WHILE X=>Y
LET X=X-Y
LOOP
swap X,Y
LOOP
PRINT X, T/X ! GCD, LCM

!END


! 入力に、Y<>0 の条件があれば、以下でも。

!---- x,y のGCD ----
INPUT PROMPT "x=": X
INPUT PROMPT "y=": Y
LET T=X*Y
GOTO 230

220 LET X=X-Y
230 IF X=>Y THEN 220
swap X,Y
IF Y=0 THEN PRINT X,T/X ELSE GOTO 220 ! GCD, LCM

END


!入力、X=0 Y=0 では、模範解答でも、問題がありそうです。

  素朴な疑問 小塚貞典 2008/01/21 22:02:59 
   └問題点と背景について私見 小塚貞典 2008/01/23 10:20:03 

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