Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / tests / tbs / tb0500.pp
Size: Mime:
{ %OPT=-Seh -vh }
program test;
uses math;

{ compiler claims that math isn't used, while the ** operator is used from it }

function f(r: real; i: integer): int64;
begin
  f:= trunc(r**i);
end;

begin
  writeln(f(2.0,2));
end.