Skip to content

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.