たぶん初歩の問題ですが。。。

Question

短大のプログラミングの授業で、問題が出されました。
『斜辺の長さが５０以下で、３辺の長さがすべて整数の直角三角形となる場合は何通りあるかを計算させる処理を書きなさい。ただし、同じ数値の順番だけが違うものは一通りとします。
ヒント：Ｃを斜辺とする三角形Ａ、Ｂ、Ｃは次の条件を満たしています。
　　　　Ａの2乗＋Ｂの2乗＝Ｃの2乗
（2乗の書き方が分かりませんでした。ごめんなさい）
５０以下のすべての３つの正の整数の組み合わせについて、この式が成り立っているかどうかを調べる。同じ数値の順番だけが違うものを除くにはどうすればよいかを考えてください。』
という問題なんですけど、ぜんぜん分からないんです（＞＜）汗汗
いくら考えても、どう考えていいか全然分かりません。。。
プログラミング超初心者なんですけど、誰か教えて下さい！！

imogasi · Accepted Answer

前の解答より単純な解き方が出来ました。
「’」は注釈です。
このままＰｒｉｖａｔｅ　Ｓｕｂ以下をＶＢＥ画面に
コピーすれば良いと思います。

Private Sub Form_Click()
'1から５０までの２乗数を配列ｓ（１）からｓ（５０）に
'持ちます。
    Dim s(51) As Integer
    u = 0 '解答数
        For i = 1 To 50
    s(i) = i * i
    Next i
' 縦横２次元の表を考えてください.
'縦にｓ(i)の数を並べ、横にも
'ｓ(i)の数を並べた表を考えてください。
'縦のi番目にある数a(i)（＝aの２乗）と横の番目に
'ある数ｓ（j)(=bの２乗）を考えます。
'この和をs(i)+s(j)=tとすると、ｔはｓ（１）からｓ（５０）の
'中にあるはずです。
'tの計算は
  For i = 1 To 50
  For j = 1 To 50
  t = s(i) + s(j)
 '----
  For k = 1 To 50
  If t = s(k) Then　’tが平方数の配列に見つかるか
   Form1.Print "a power(2)="; s(i),
   Form1.Print "b power(2)="; s(j),
   Form1.Print "c power(2)="; t
  u = u + 1
  End If
  Next k
'-------
  Next j
  Next i
  Form1.Print "-----"
  Form1.Print u
  ' u=40組ですからダブりで数えているので、２０通りが解答です。

End Sub

bin-chan · Answer

ヒント
　三角形のある一辺は他の２辺の計より短い。
（そうでなければ閉じた図形にならない）

bin-chan · Answer

すいません。題意の読み取りを誤りました。


>　同じ数値の順番だけが違うものを除くにはどうすればよいかを

出てきた答え（Ａ，Ｂ，Ｃ）の順序を問わないということなので
各辺の値を昇順または降順に整列してから比較してみてください。

yusuke5111 · Answer

３重のループを使えば良いです

１番最初のループは、１から５０まで、これが斜辺になります。---(1)
２番目のループは、１から(1)未満まで、（(1)が斜辺なので１番長いです。）---(2)
３番目のループは、１から(2)以下までループさせて、----(3)
それそれ、(2)＾２＋(3)＾２＝(1)＾２を満たすものの数を数えれば出てきます。

こうすれば、各組み合わせ１度ずつ出てきます。
また、高速化のために、下記の方のヒントを利用し、
(2)＾２＋(3)＾２が(1)＾２より大きくなると(3)のループを抜ける等してください。

TAGOSAKU7 · Answer

サンプルを作りました。斜辺以外の２辺を、[i/j]のループカウンタの値を使用しています。 iが１～５０ jが１～５０のループにしてしまうと i = 3 ; j = 4 i = 4 ; j = 3 となってしまうので、 iが１～５０ jがi～５０のループとしています。これによって、データの重複が存在しなくなります。 > If lngMaxLimit < lngCalc Then >　　 Exit For > End If というのは、斜辺のべき乗の最大値（この問題の場合は２５００）を超えるような斜辺の時は、Jカウンタのループを抜ける処理になってます。 > sngCalc = lngCalc ^ 0.5 > lngWork = sngCalc というのは、i/jより算出した斜辺の値に平方根の処理をおこない、変数sngCalcに代入されます。それを小数点以下を切り捨て、変数lngWorkに代入してます。この切り捨て前・後が同じ値であれば、斜辺は整数であると言えます。 Sub Main() 　　Dim lngMaxHypotenuse　　As Long '斜辺の上限　　Dim lngMaxLimit　　　　 As Long '斜辺の上限のべき乗　　　　Dim lngCalc As Long　　 '斜辺以外のべき乗どうしを加算した時の値、計算ワーク　　Dim sngCalc As Single　 '斜辺以外のべき乗どうしを加算した時の値を平方根にかけたもの、計算ワーク　　Dim lngWork As Long　　 'sngCalcで得た値の、小数点以下切り捨てした値　　　　　　Dim i　　　 As Long 'Iループカウンタ　　Dim j　　　 As Long 'Jループカウンタ　　　　Dim ansCount　　As Long　　 '見つかった回答件数　　Dim ansStr()　　As String　 '回答を収める配列　　　　Dim strOutPut　 As String　 '回答を出力する文字列　　　　'回答の初期化　　Erase ansStr 　　ansCount = 0 　　　　'斜辺MAX値　　lngMaxHypotenuse = 50 　　'斜辺２乗の値を超えることはありえないので、上限をセット　　lngMaxLimit = lngMaxHypotenuse ^ 2 　　　　For i = 1 To lngMaxHypotenuse 　　　　For j = i To lngMaxHypotenuse 　　　　　　'このときの斜辺のべき乗の値を求める　　　　　　lngCalc = (i ^ 2) + (j ^ 2) 　　　　　　　　　　　　'もし斜辺の２乗の値が上限を超えたら、Jカウンタのループを抜ける　　　　　　If lngMaxLimit < lngCalc Then 　　　　　　　　Exit For 　　　　　　End If 　　　　　　　　　　　　'斜辺のべき乗から平方根により、斜辺の値を求める　　　　　　sngCalc = lngCalc ^ 0.5 　　　　　　　　　　　　'ロング型の変数にセットする（この時斜辺の値に小数点以下が存在するとき、切り捨てられる）　　　　　　lngWork = sngCalc 　　　　　　　　　　　　'小数点以下を切り捨てする前と、切り捨てた後が同じ値ならば、整数値の３辺である　　　　　　If (lngWork = sngCalc) Then 　　　　　　　　ReDim Preserve ansStr(ansCount) As String 　　　　　　　　ansStr(ansCount) = i & " / " & j & " → " & lngWork 　　　　　　　　ansCount = ansCount + 1 　　　　　　End If 　　　　Next j 　　Next i 　　'答えの出力　　If ansCount > 0 Then 　　　　strOutPut = Join(ansStr, vbNewLine) 　　Else 　　　　strOutPut = "斜辺は求められませんでした。。。" 　　End If 　　MsgBox strOutPut End Sub

たぶん初歩の問題ですが。。。

ヒント

すいません。

３重のループを使えば良いです

サンプルを作りました。

前の解答より単純な解き方が出来ました。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング