Languages
FsharpActionScript
xBase
Clean
GPSS
PureBasic
Sieve
Erlang
JOVIAL
Mercury
Linda
DataFlex
PostScript
FoxPro2
VFP
Cobol
Prolog
Jython
Awk
VisualBasic
JavaScript
Matlab
ASP
Haskell
Csharp
D
Smalltalk
Nemerle
Pixilang
Java
SQL
Python
ObjectPascal
Ruby
Perl
Pascal
Assembler
PHP
C
| Functions | Add function | Users Registration | Enter | About | ASCII Table | Our helpers |
ArcCos in Pascal |
|
ArcCos/ArcSin functions
---------------------------------------------------------------- The Turbo Pascal library omits arc-sine and arc-cosine functions. However, these functions may be calculated using the the relations shown in these function definitions, returning a result in the range of [-Pi/2 .. Pi/2 ]: function ArcCos ( X : Real ): Real; var TempArcCos : Real; begin if X = 0.0 then { to avoid division by 0 } TempArcCos := Pi / 2.0 else TempArcCos := ArcTan ( Sqrt ( 1 - X*X ) / X ); if X < 0.0 then TempArcCos := PI - TempArcCos; ArcCos := TempArcCos; end; function ArcSin ( X : Real ): Real; begin if X = 1.0 then { to avoid division by 0 } ArcSin := Pi / 2.0 else ArcSin := ArcTan ( X / Sqrt ( 1 - X * X ) ); end; Add by Pancho You can edit it here |
|
abcarticle.ru (blockart[dog]mail[dot]ru) бесполезный ссайт,разъяснений я не получил((((((((((!!!!!!!!!!! |
| Adding comments is available only for registered users. |
| Study Reveals a Secret to the Success of Notorious, Disease-Causing Microbes
A study published in the July 23 issue of Cell identifies the mechanism used by several types of common, virulent microbes to infect plants and cause devastating blights. Microbes using this infection mechanism include fungi that are currently causing wheat rust epidemics in Africa and Asia, and a class of parasitic algae, called oomycetes, that resulted in the Irish potato blight of the 19th Century. These microbes remain an agricultural scourge today. The researchers ...
|
PycckaR
BepcuR
Articles
Library
Downloads
