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

質問

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

回答No.4

TAGOSAKU7

サンプルを作りました。

斜辺以外の２辺を、[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

お礼

おお！！なんか、長々と書いて頂いてしまって、申し訳ないです！！（＞＜）っっ本当に有難うございました！！なんか申し訳ないんですけど、初心者なんで、まだ習ってない文字とかがいっぱいで、よく分からなかったです。。。でも、回答をもとに、よく考えてみますね。ありがとうございました！！