Треугольник, длины сторон которого равны пифагоровым числам, является прямоугольным. Числа, образующие пифагорову тройку, называются пифагоровыми числами, названы в честь Пифагора Самосского, хотя открыты значительно раньше. При умножении длин сторон на одно и то же натуральное число получится другая пифагорова тройка (не закрашенные клетки). В таблице показаны значения сторон треугольников до гипотенузы равной 50. На этом тройки не заканчиваются!!!Процедуры в Excel
Sub Жирный()
Selection.Font.Bold
= True
Call желтый
End
Sub
Sub НеЖирный()
Selection.Font.Bold = False
Call нетЗаливки
End
Sub
Public
Sub Тройки()
Cells(1,
1) = "гипотенуза"
Cells(1,
2) = "1й катет"
Cells(1, 3) = "2й катет"
Cells(1, 4) = "площадь"
строка = 2
For гипотенуза = 1 To 100
Cells(строка, 1).Select
Call Жирный
Cells(строка, 2).Select
Call Жирный
Cells(строка, 3).Select
Call Жирный
For катет1 = 1 To гипотенуза
For катет2
= 1 To катет1
If гипотенуза ^ 2 = (катет1 ^ 2 +
катет2 ^ 2) Then
Cells(строка, 1) = гипотенуза
Cells(строка, 2) = катет1
Cells(строка, 3) = катет2
Cells(строка, 4) = катет1 *
катет2 / 2
'отметим жирным,
'если найдется общий делитель
сменится н обычный
Cells(строка, 1).Select
Call Жирный
Cells(строка, 2).Select
Call Жирный
Cells(строка, 3).Select
Call Жирный
For
делитель = 2 To катет2
If (гипотенуза Mod делитель
_
+ катет1 Mod делитель _
+ катет2 Mod делитель)
= 0 Then
'имеется общий делитель
Cells(строка, 1).Select
Call НеЖирный
Cells(строка, 2).Select
Call НеЖирный
Cells(строка, 3).Select
Call НеЖирный
Else
End If
Next делитель
строка = строка + 1
Else
End If
Next катет2
Next катет1
Next
гипотенуза
End Sub
| 
