sin и cos проблем

значи направил сам си процедура която като въведа център ,радиус и ъгъл да ми изчисли каде ще са и крайните кординати обаче има проблем и излиза че кръга е 400 градуса а не 360 процедурата изглежда така:


procedure ArcRadAngle(center:TPoint;radius,angle:integer;var ArcPoint:TPoint);
var
c:integer;

wax,way : real;
begin
if (angle > 0) and (angle <401) then
begin
ArcPoint.X := round(cos(gradtorad(angle))*radius + center.X);
ArcPoint.Y := round(sin(gradtorad(angle))*radius + center.Y);
ArcPoint.Y := center.Y - (ArcPoint.Y - center.Y);
end
else
begin
arcpoint.X := center.X;
arcpoint.Y := center.y;
end;
end;

мисла че проблема идва от gradtorad но ако имате идея как да гооправа ще сам ви благодарен

Бъркаш мерните единици. Окръжността не е 400 градуса а 360. Това което ползваш Grad не са градуси а гради. Градус е Degree. А мисля, че функциите работят с радиани, така че потърси точната функция. Всички са дефинирани в Math.

Най-вероятно ще ти трябват DegToRad и RadToDeg - които използват Pi/180 и 180/Pi

да наистина тея гради са Pi/200 и оттам идва грешката със 400те градуса , аз си направих функция която преобразува правилно обаче сега разбрах че имало и вградена такава мерси за отговора

а за да неотварям нова тема ще питам тука има ли някаква функция която като знам синуса или косинуса на колко са равни да намера ъгъла

ArcSin и ArcCos

Мерси браточка супер си

Не можеш ли да натискаш клавиша F1, или не знаеш че това е Help.

ти можеше и да минеш и без тая забележка търсих и ненамерих , за кво е форума се пак , аз кат знам нещо веднага ще отговвора ако ще да е най елементарното пък ако не ми е накеф подминавам и толко ..как ми отговаря се едно съм му бръкнал у джоба

Забележката е за да се опиташ да се научиш да търсиш по-добре, иначе не говори много добре за питащия.
А това търсене е поне елемнтарно - има едно надписче See also и като проследиш връзките ще стигнеш до истината.