(****************************************************
*
* PROGRAM FOR TRIG TABLE
*
* Simple program to generate a short trig chart.
* Written by Ray Penley while trying to overcome a
* bug.
*
* Donated Sept 1980
*******************************************************
PROGRAM TRIG4;
{ Computes the SIN, COS, and TAN of an angle "x",
+ expressed in radians, from 10 degrees to 85 degrees.
+
+ This program uses the supplied SIN function
+ but a new COSINE routine. }
const
{+ CONVERSION FACTOR DEGREES TO RADIANS +}
C = 1.745329E-02; {+++ = PI/180 +++}
var g: real;
angle,rads : real;
FUNCTION COSINE(X:REAL):REAL; EXTERNAL;
function TAN(x: real): real;
{+ angle "x" must be in radians +}
begin
TAN := SIN(X) / COSINE(x);
end;
begin
writeln(' SINE COSINE TANGENT',
' RADIANS DEGREES');
g := 10.0;
While (g < 90.0) Do
begin
writeln( SIN(g*c):8:6, COSINE(g*c):8:6, TAN(g*c):8:6, g*c:8:6, g:4:2);
g := g + 5.0;
end;
end.
