Sign in Join
FPDoc Onlineexperiment

SinCos procedure

In unit Math

Return sine and cosine of argument.

Declaration

pascal
procedure SinCos(theta: single; out sinus: single; out cosinus: single)

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

Example: ex41

pascal
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.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.