aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/Trigonometric-functions/PascalABC.NET/trigonometric-functions.pas Normal file
View file

@ -0,0 +1,20 @@
begin
var rad := Pi/3;
var deg := RadToDeg(rad);
Println('=== Radians ===');
var (Si,Co,Ta) := (Sin(rad),Cos(rad),Tan(rad));
Println($'Sin({rad}) = {Si}');
Println($'Cos({rad}) = {Co}');
Println($'Tan({rad}) = {Ta}');
Println($'ArcSin({Si}) = {ArcSin(Si)}');
Println($'ArcCos({Co}) = {ArcCos(Co)}');
Println($'ArcTan({Ta}) = {ArcTan(Ta)}');
Println('=== Degrees ===');
var (SiD,CoD,TaD) := (Sin(DegToRad(deg)),Cos(DegToRad(deg)),Tan(DegToRad(deg)));
Println($'Sin({deg}) = {SiD}');
Println($'Cos({deg}) = {CoD}');
Println($'Tan({deg}) = {TaD}');
Println($'ArcSin({SiD}) = {RadToDeg(ArcSin(SiD))}');
Println($'ArcCos({CoD}) = {RadToDeg(ArcCos(CoD))}');
Println($'ArcTan({TaD}) = {RadToDeg(ArcTan(TaD))}');
end.