mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 01:49:30 +02:00
18 lines
235 B
ObjectPascal
18 lines
235 B
ObjectPascal
Program Example34;
|
|
|
|
{ Program to demonstrate the power function. }
|
|
|
|
Uses Math;
|
|
|
|
procedure dopower(x,y : float);
|
|
|
|
begin
|
|
writeln(x:8:6,'^',y:8:6,' = ',power(x,y):8:6)
|
|
end;
|
|
|
|
begin
|
|
dopower(2,2);
|
|
dopower(2,-2);
|
|
dopower(2,0.0);
|
|
end.
|