mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-05 12:58:21 +02:00
13 lines
174 B
ObjectPascal
13 lines
174 B
ObjectPascal
Program Example12;
|
|
|
|
{ Program to demonstrate the Cos function. }
|
|
|
|
Var R : Real;
|
|
|
|
begin
|
|
R:=Cos(Pi); { R:=-1 }
|
|
R:=Cos(Pi/2); { R:=0 }
|
|
R:=Cos(0); { R:=1 }
|
|
end.
|
|
|