Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


14588 / 76734 ←次へ | 前へ→

【67635】分数計算、if文。
質問  cosuke  - 10/12/20(月) 16:50 -

引用なし
パスワード
   初めまして、cosukeと申します。
この度、VBAで高校時代解けなかった過去問をVBAで答を導き出そうと頑張ってみたのですが、どうも反応しません^^;問題は以下のとおりです。

P氏はN頭のラクダを3人の息子で分けるように遺言して亡くなりました。
その遺言によればNのa分の1、b分の1、c分の1(a,b,cは自然数でa>b>cとする)が息子達の相続するラクダの数である。ただし、Nはa,b,cのいずれの倍数でもない。1/a+1/b+1/c=1でないので3人が悩んでいると、通りがかりの旅人がよい工夫を思いついた。旅人のラクダを1頭加え、N+1を遺言の率に従って分割すれば、うまく分割でき、1頭余る。例えば、N=11(a,b,c)=(6,4,2)がその例である。

とりあえず、条件を満たす(a>b>c除く)N,a,b,cの値の組み合わせを1<a,b,c<10の範囲でとりあえず全て出してから題意にそうように少しずつ変更していこうかと思い、下記のプログラムを作ってみたのですが、どうも反応しません(汗

自分では何がおかしいのかわからず困っています。
アドバイス宜しくお願いします。


Sub abc()
'宣言
Dim a, b, c, N, i As Integer

'式
Cells(1, 1) = "N/ (1 + N)"
Cells(2, 1) = "1 / a + 1 / b + 1 / c"

'値
Cells(5, 1) = "a"
Cells(6, 1) = "b"
Cells(7, 1) = "c"
Cells(8, 1) = "N"

'総当り
For a = 1 To 10
  For b = 1 To 10
    For c = 1 To 10
      x = 1 / a: y = 1 / b: z = 1 / c: N = a + b + c
      i = i + 1
      If x + y + z = N / (1 + N) Then
        Cells(5, 2 + i) = a
        Cells(6, 2 + i) = b
        Cells(7, 2 + i) = c
        Cells(8, 2 + i) = a + b + c
        Cells(4, 2 + i) = i & "組目"
      End If
    Next c
  Next b
Next a

End Sub
1 hits

【67635】分数計算、if文。 cosuke 10/12/20(月) 16:50 質問
【67636】Re:分数計算、if文。 momo 10/12/20(月) 17:36 発言
【67642】Re:分数計算、if文。 cosuke 10/12/20(月) 22:06 発言
【67650】Re:分数計算、if文。 momo 10/12/21(火) 8:45 発言
【67673】Re:分数計算、if文。 山猿 10/12/22(水) 22:08 発言
【67675】Re:分数計算、if文。 SS 10/12/24(金) 11:23 発言
【67679】Re:分数計算、if文。 SS 10/12/24(金) 16:31 発言
【67669】Re:分数計算、if文。 metabeaux 10/12/22(水) 17:21 回答
【67677】Re:分数計算、if文。 metabeaux 10/12/24(金) 16:13 回答

14588 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free