mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 13:29:28 +02:00
23 lines
385 B
ObjectPascal
23 lines
385 B
ObjectPascal
Program Example18;
|
|
|
|
{ Program to demonstrate the intpower function. }
|
|
|
|
Uses math;
|
|
|
|
Procedure DoIntpower (X : extended; Pow : Integer);
|
|
|
|
begin
|
|
writeln(X:8:4,'^',Pow:2,' = ',intpower(X,pow):8:4);
|
|
end;
|
|
|
|
begin
|
|
dointpower(0.0,0);
|
|
dointpower(1.0,0);
|
|
dointpower(2.0,5);
|
|
dointpower(4.0,3);
|
|
dointpower(2.0,-1);
|
|
dointpower(2.0,-2);
|
|
dointpower(-2.0,4);
|
|
dointpower(-4.0,3);
|
|
end.
|