Как перевести полярные координаты в декартовы?

procedure PolarToDec(Distance, Angle: Double; Var X,Y: Double);
begin
X := Distance * Cos(DegToRad(Angle));
Y := Distance * Sin(DegToRad(Angle));
end; 

Последние комментарии

  • Бутырский районИталия НеапольШатураИталия Ливорноо. ТиносХаной и ХошиминЭлистаСлободскойПлайя-дель-Кармен МексикаДиярбакыр ТурцияАлма-АтаГонконг ГонконгЯнтайЛез АркШартр ФранцияЦзямусыГольяновоКурск Центральный округЖанаозен КазахстанХайфа ИзраильТропарёво-НикулиноАкапулькоГренобль...
  • resource
  • Лимасол КипрЛарнакаСтокгольм ШвецияЧеркесскТулунДомодедовоМиконосЛакатамияЗеяMoscowКазахстан ПетропавловскМостолесБелорецкАринсальОрехово-Борисово ЮжноеРостокиноБугурусланЗеяВэйхайЛидаТурция АланияДжардини-Наксос ИталияФукуок ВьетнамПатрыCyprusЗеленоградМайрхофен & ЦиллертальЧкаловскКатания...

Счетчики