将帕斯卡中的变量限制在一到十

Question

program Project1;
uses
  math;
var
  num1: integer;
  power: 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(power);

  answer:= (num1**power);
  writeln(answer);
  readln();
end.

我不知疲倦地研究了几个小时，想知道如何将变量限制在 1-10 之间，谁能告诉我如何将变量 num1 限制在 1 到 10 之间

Answer 1

要验证输入，一种可能是创建一个函数来为您验证它。传递值和最小、最大范围，并根据测试结果设置函数值。

function ValidInteger( value : Integer; min,max : Integer) : Boolean;
begin
  Result := (value >= min) and (value <= max); // Or ValidInteger := etc
end;

在你的代码中看起来像：

min := 1;
max := 10;
repeat
  writeln('Please enter the first number [',min,'..',max,']:');
  readln(num1);
until ValidInteger(num1,min,max);

将帕斯卡中的变量限制在一到十

Limit a variable in pascal from one to ten

freepascal