Pascal / math / sincos

arccos, arccosh, arcosh, arcsin, arcsinh, arctan2, arctanh, arsinh, artanh, ceil, ClearExceptions, cosh, cotan, cycletorad, degtograd, degtorad, DivMod, EnsureRange, floor, Frexp, GetExceptionMask, GetPrecisionMode, GetRoundMode, GetSSECSR, gradtodeg, gradtorad, hypot, ifthen, InRange, intpower, IsInfinite, IsNan, IsZero, ldexp, lnxp1, log10, log2, logn, Max, MaxIntValue, maxvalue, mean, meanandstddev, Min, MinIntValue, minvalue, momentskewkurtosis, norm, popnstddev, popnvariance, power, radtocycle, radtodeg, radtograd, randg, SameValue, SetExceptionMask, SetPrecisionMode, SetRoundMode, SetSSECSR, Sign, � sincos, sinh, stddev, sum, sumofsquares, sumsandsquares, tan, tanh, totalvariance, variance,

Funcion: sincos()
Sintaxis:

procedure sincos(
 
  theta: float;
 
  var sinus: float;
 
  var cosinus: float
 
);

Descripcion: Regresa el seno y el coseno de un argumento. Esta llamada debe ser mas rapida que hacer dos llamadas a las funciones seno y coseno separadamente
Ejemplo:

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.

Librerias Pascal

Libreria crt - CRT - Pantalla y teclado del PASCAL de Turbo que maneja la unidad
Libreria dos - DOS - Interface Turbo Pascal MS-DOS
Libreria Graph - Unidad para manipular los graficos de la pantalla compatible con TP
Libreria Objects - Objetos basicos compatible con TP
Libreria math - Rutinas adicionales matematicas
Libreria Printer - Provee de acceso a la impresora
Libreria strings - Rutinas para el manejo de cadenas
Libreria BaseUnix - Funcionalidad Basica de Linux
Libreria System - Manejo de Archivos - Funciones para la manipulacion de archivos en Pascal