lap[4800] wrote:
> Hej NG
> Jeg skal lave en cosinustabel over alle vinkler (0..90 grader) i en
> retvinklet trekant. Da jeg ikke er interesseret i radianerne, men kun
> forholdet mellem modstående katede og hypotenusen ved hver given vinkel,
> hvordan kan jeg så "veksle" en "delphisk" Cos() om til en "gammeldags
> dansk".
Her er nogle rutiner som måske kan hjælpe. Det er nogle jeg har fundet
på nettet for nogle år siden. I den linie hvor der står "Invalid
floating point operation" kan du indsætte din egen fejl rapportering.
Med venlig hilsen
Carsten
(******************************************************************************
* Extended Pascal unit
*
*
*
*
*
*
*
******************************************************************************)
unit InvCoSin;
Interface
Function ArcSin(x:real):real;
Function ArcCos(x:real):real;
Function Tan(x:real):real;
Function Cos360(x:real):real;
Function Sin360(x:real):real;
Function Tan360(x:real):real;
Function ArcCos360(x:real):real;
Function ArcSin360(x:real):real;
Function ArcTan360(x:real):real;
implementation
Function ArcSin(x:real):real;
Begin
if (x < -1.0) then
if ArcTan(-10.0)=0 then; {Invalid floating point operation}
if (x > 1.0) then
if ArcTan(-10.0)=0 then; {Invalid floating point operation}
if x = 1.0 then
ArcSin := pi/2.0
else if x = -1.0 then
ArcSin := -(pi/2.0)
else ArcSin := ArcTan(x/Sqrt(1.0-Sqr(x)));
End{ArcSin};
Function ArcCos(x:real):real;
Begin
ArcCos := (pi/2.0) - ArcSin(x);
End{ArcCos};
Function Tan(x:real):real;
Begin
tan:=0;
if (x<pi/2.0) and (x>-pi/2.0) then
Tan:=Sin(x)/Cos(x)
else if ArcTan(-10.0)=0 then; {Invalid floating point operation}
End;
Function Cos360(x:real):real;
Begin
Cos360:=Cos(x*pi/180.0);
End;
Function Sin360(x:real):real;
Begin
Sin360:=Sin(x*pi/180.0);
End;
Function Tan360(x:real):real;
Begin
Tan360:=Tan(x*pi/180.0);
End;
Function ArcCos360(x:real):real;
Begin
ArcCos360:=ArcCos(x)*180.0/pi;
End;
Function ArcSin360(x:real):real;
Begin
ArcSin360:=ArcSin(x)*180.0/pi;
End;
Function ArcTan360(x:real):real;
Begin
ArcTan360:=ArcTan(x)*180.0/pi;
End;
End.