[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^4: 組み合わせ合計検索 つづき 投稿日 ： 2023/08/17(Thu) 10:36 投稿者 ： たけし
お世話になります。 'No12097 の設問 Dim 値一覧1 As Integer() = {60, 57, 54, 45, 42, 500, 1000, 60, 25, 57} 'No.12091 の設問 Dim 値一覧2 As Integer() = {5988, 2994, 1245, 3296, 19777, 1497, 14823, 13177, 37885, 5988, 6290, 6038, 22653, 28474, 29564, 26871, 23844, 4366, 4101, 14116, 7037, 17500, 24062, 23644, 17717, 25162, 9461, 19788, 29762, 25099, 28935, 1011, 4655, 22234, 9589, 30377, 10081, 2887, 24336, 3517, 16020, 6494, 16745, 24100, 28340, 24825, 13382, 6801, 19893, 28700} Dim 値一覧3 As Integer() = {36, 40, 45, 51, 55, 65, 69, 76, 82, 98, 106, 108, 115, 116, 118, 119, 123, 129, 133, 139, 148, 159, 163, 165, 184, 186} '『設定値：590 合計値：587 詳細値：42, 45, 500』 探索(590, 値一覧1) '『設定値：586 合計値：585 詳細値：25, 60, 500』 探索(586, 値一覧1) '『設定値：88792 合計値：88792 詳細値：1011, 1245, 1497, 2887, 2994, 3296, 3517, 4101, 4366, 4655, 6290, 6494, 14116, 14823, 17500』 探索(88792, 値一覧2) 探索(1230, 値一覧3) ↑実行しますと 以下のようになります。 設定値：590 抽出できませんでした。 設定値：586 抽出できませんでした。 設定値：88792 抽出できませんでした。 設定値：1230 抽出できませんでした。 このような結果になりますか？ 何か違いがあるのかと思い、 No.12102 のロジックをもう一度、現在のフォームにあるプログラムへ貼り付けると iの部分でエラーでるので以下のように宣言していました。 For i = index To maxIndex '設定値を超えるものは除外した上で、[値]の昇順に並べる Dim ordered As Integer() = (From v In values Where v <= targetValue Order By v).ToArray() Dim i As Integer = 0 何か環境に違いがあるのでしょうか？ |
をクリックするとツリー全体を一括表示します） - 組み合わせ合計検索 つづき - たけし 23/08/11-06:34No.12125