mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 13:29:28 +02:00
26 lines
379 B
ObjectPascal
26 lines
379 B
ObjectPascal
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.
|