Три стороны равны Ч. 7

Георгий Александров
Забыл написать текст программы, которая дает полные целочисленные решения:

for A0=1 to 178
A=A0/180*pi
for B0=1 to 178
B=B0/180*pi
C=A-(pi-B)/2
t1=sqrt(2-2*cos(B))*cos(C)
t2=1-t1
t3=sqrt(3-2*cos(B)-2*t1)
A1=180/pi*acos(t2/t3)+0.0000000001
if abs(A1-int(A1))<0.0001 then
A1=int(A1)
B1=360-A0-B0-A1
if B0<>A1 then
if A0<>60 then
if B0<>60 then
if A1<>180 then
if A0<>B0 then
if A0+B1<>180 then
if A0+B0<>120 then
if A0<180 then
if B0<180 then
if B1<180 then
if A1<180 then
if A0>(180-B0)/2 then
if A1<>B1 then
if A0<>B1 then
if A0<>A1 then
if B0<>B1 then
s=s+1
print s,A0,B0,B1,A1
fi:fi:fi:fi:fi
fi:fi:fi:fi
fi:fi:fi:fi:fi
fi:fi:fi
next B0
next A0


11 июля 2022 г.


© Copyright: Георгий Александров, 2022
Свидетельство о публикации №222071101150
Список читателей / Версия для печати / Разместить анонс / Заявить о нарушении
Другие произведения автора Георгий Александров
Рецензии
Написать рецензию
Другие произведения автора Георгий Александров