Skip to content

    SinCos

    Return sine and cosine of argument.

    Declaration

    Source position: math.pp line 504

    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
    arcsin Return inverse sine.
    arccos Return inverse cosine.

    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.