17 lines
251 B
ObjectPascal
17 lines
251 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Power
|
|||
|
|
|
|||
|
|
function Power(x: real; n: integer): real;
|
|||
|
|
begin
|
|||
|
|
Result := 1;
|
|||
|
|
for var i:=1 to n do
|
|||
|
|
Result *= x;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
x: real;
|
|||
|
|
n: integer;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
x := 2; n := 5;
|
|||
|
|
writelnFormat('{0} <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> {1} = {2}',x,n,Power(x,n));
|
|||
|
|
end.
|