在Pascal中使用权力

Question

program Project1;

var
  num1: integer;
  num2: integer;
  answer: integer;
begin
  writeln('This program will accept two input values and raise the first number to the power of the second value');
  writeln('Please enter the first number');
  readln(num1);
  writeln('Please enter the second number');
  readln(num2);

  writeln(num1**num2);
end.

这是我在Pascal中的代码。我想输入两个值，answer会将第一个幂值返回到第二个值。有人可以帮忙吗？

Answer 1

power operator ** for numeric types未定义为数字类型。但是，它是一个公认的运算符，math单元定义整数和浮点类型的重载。因此，您必须使用该单元，然后您的代码编译并正确运行。

加

uses
  math;

你的代码。

Answer 2

另一种方法是使用for循环：

pow:=1;
for i:=1 to num2 do
 pow:=pow*num1;