[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 333

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.

Documentation generated on: Jun 22 2020