SinCos
Return sine and cosine of argument
Declaration
Source position: math.pp line 340
procedure SinCos(theta: single; out sinus: single; out cosinus: single);
procedure SinCos(theta: Double; out sinus: Double; out cosinus: Double);
procedure SinCos(theta: extended; out sinus: extended;
out cosinus: extended);
Description
Sincos calculates the sine and cosine of the angle theta, and returns the result in sinus and cosinus.
On Intel hardware, This calculation will be faster than making 2 calls to calculate the sine and cosine separately.
Errors
None.
See also
| Name | Description |
|---|---|
| arccos | Return inverse cosine |
| arcsin | Return inverse sine |
Example
Program Example41;
{ Program to demonstrate the sincos function. }
Uses math;
Procedure dosincos(Angle : Float);
Var
Sine,Cosine : Float;
begin
sincos(angle,sine,cosine);
Write('Angle : ',Angle:8:6);
Write(' Sine :',sine:8:6);
Write(' Cosine :',cosine:8:6);
end;
begin
dosincos(pi);
dosincos(pi/2);
dosincos(pi/3);
dosincos(pi/4);
dosincos(pi/6);
end.