Даны площади F1, F2, F3. Найти площадь S. Ч 2
for i=1 to 15
x1=0:y1=0:x2=6:y2=9:x3=17:y3=0
k=y2/x2
x4=x2*ran()
y4=k*x4
x5=x2+(x3-x2)*ran()
y5=y2-(x5-x2)*y2/(x3-x2)
x6=x3*x5*y4/(x5*y4+(x3-x4)*y5)
y6=x6*y5/x5
xa=x1:ya=y1:xb=x4:yb=y4:xc=x6:yc=y6
F()
F1=F
print F1 using "###.###";
xa=x1:ya=y1:xb=x6:yb=y6:xc=x3:yc=y3
F()
F2=F
print F2 using "###.###";
xa=x6:ya=y6:xb=x5:yb=y5:xc=x3:yc=y3
F()
F3=F
print F3 using "###.###";
xa=x4:ya=y4:xb=x2:yb=y2:xc=x6:yc=y6
F()
F4=F
xa=x2:ya=y2:xb=x5:yb=y5:xc=x6:yc=y6
F()
F5=F
print F4+F5 using "###.###"
next i
sub F()
F=abs(1/2*((xa-xc)*(yb-yc)-(xb-xc)*(ya-yc)))
end sub
Графически удостоверился в верности вычисления площадей треугольников и четырехугольника.
Следующий этап анализа - смотрите дальше, в третьей части.
19 марта 2023 г.
Свидетельство о публикации №223031900453