Добрый день, для сокращения количества знаков, после запятой пользуюсь таким способом:
1.
degree1 := trunc(degree1*100)*0.01; // Не больше 2 знаков после запятой
Подскажите пожалуйста, почему приведенный ниже код, в не измененном состоянии, показывает сообщение: "
Точка не образует угол ", но после раскомментирования строк "
//degree1,//degree2 ", показывает уже другое?
Ведь все значения "
degree " в обоих случаях одинаковы.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
Xp,Yp,Xa,Ya,Xb,Yb:integer;
NumberOfSymbols0,NumberOfSymbols1,
degree0,degree1,degree2,degreeDirection,Deg1:extended;
begin
NumberOfSymbols0 := Power(0.1, 12); // Для ограничения чисел до 12 знаков после запятой
NumberOfSymbols1 := Power(10, 12);
// Точка многоугольника
Xp := 221;
Yp := 275;
// Предыдущая точка многоугольника
Xa := 86;
Ya := 275;
// Следующая точка многоугольника
Xb := 337;
Yb := 275;
degreeDirection := -90;
degree1 := ArcTan2(Yp-Ya,Xa-Xp)/pi*180;
//degree1 := trunc(degree1*NumberOfSymbols1)*NumberOfSymbols0; // Не больше 12 знаков после запятой
if degree1<0 then degree1 := 360+degree1; // Направление отрезка 1
degree2 := ArcTan2(Yp-Yb,Xb-Xp)/pi*180;
//degree2 := trunc(degree2*NumberOfSymbols1)*NumberOfSymbols0; // Не больше 12 знаков после запятой
if degree2<0 then degree2 := 360+degree2; // Направление отрезка 2
if (degree1<degree2) then Deg1:=0 else Deg1:=360;
degree0 := (degree2+Deg1)-degree1; // Размер угла
if (degree0<=180) then Deg1:=0 else Deg1:=360;
degree0:=degree0-Deg1; // + = По часовой, - = Против часовой
if (abs(degree0)=180) then // Если точка не образует угол
begin
showmessage('Точка не образует угол'
+#13#10+#13#10+'Угол между отрезками: '+floattostr(degree0)
+#13#10+'Направления отрезков: '+floattostr(degree1)+' ; '+floattostr(degree2));
end
else
if (((degreeDirection<0) and (degree0<0))
or ((degreeDirection>=0) and (degree0>=0))) then // Направления углов совпадают, значит это выпуклый угол (Размер угла внутри многоугольника (0..180))
begin
showmessage('Выпуклый угол'
+#13#10+#13#10+'Угол между отрезками: '+floattostr(degree0)
+#13#10+'Направления отрезков: '+floattostr(degree1)+' ; '+floattostr(degree2));
end
else // Направления углов не совпадают, значит это впуклый угол (Размер угла внутри многоугольника (180..360))
begin
showmessage('Впуклый угол'
+#13#10+#13#10+'Угол между отрезками: '+floattostr(degree0)
+#13#10+'Направления отрезков: '+floattostr(degree1)+' ; '+floattostr(degree2));
end;
end;
Про функцию "FormatFloat('0.####', float)" знаю, просто в условиях "if (...) then" у меня много значений и код получается очень большим.
В другом коде была ошибка приведенная ниже, где с этим способом все работает нормально.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
procedure TForm1.Button2Click(Sender: TObject);
var
NumberOfSymbols0,NumberOfSymbols1,
t,l:extended;
begin
NumberOfSymbols0 := Power(0.1, 12); // Для ограничения чисел до 12 знаков после запятой
NumberOfSymbols1 := Power(10, 12);
t := 0.540540540540541;
l := Sqrt(Sqr(160-160+(160-160)*t)+Sqr(78-118+(152-78)*t));
//l := trunc(l*NumberOfSymbols1)*NumberOfSymbols0; // Не больше 12 знаков после запятой
if (l=0) then
showmessage('l=0: '+floattostr(l))
else showmessage('l>0: '+floattostr(l));
end;
