[Overview][Constants][Types][Classes][Procedures and functions][Index] | Reference for unit 'Math' (#rtl)

# 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

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.