| Статистика | 
|
|
Каталог статей
Как перевести полярные величины в линейные (радианы в градусы)?
procedure
TForm1.Button1Click(Sender: TObject);
var
Angle : Double;
x :
Double;
y : Double;
Distance : Double;
Radians :
Double;
begin
Distance := 100;
Angle :=
270;
Radians := Angle * DegToRad;
x :=
Round(Distance * Cos(Radians));
y := Round(Distance *
Sin(Radians));
ShowMessage(FloatToStr(x) + ' ' +
FloatToStr(y));
end;
|
|
|
Просмотров: 434
6
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
