pascal - 重新定义变量，其名称取决于用户输入的内容

Question

我有一些按数字排序的变量，例如 ex1、ex2、ex3 等（整数）；我想计算用户输入数字字母的次数，如果输入“1”，程序将+1添加到ex1，如果输入2，程序将+1添加到ex2-等等on （我不能使用数组，因为它在 excersise 中是被禁止的）。例如，如果我要求用户输入 1 到 15 之间的 15 个数字，并且我想计算每个数字输入了多少次，我想的代码将类似于

for i:=1 to 15 do
    read(number);
    if number = i then
    Begin
        exi := exi + 1;
    End

显然那没有用。是否可以重新定义一个变量做类似的事情？

Answer 1

如果您根本不能使用数组，那么您只有几个选择。

案例陈述

for i := 1 to 15 do
begin
  Read(number);
  case number of
    1: ex1 := ex1 + number;
    2: ex2 := ex2 + number;
    // rest of possible values and variables
  else
    // Handle number that doesn't have a variable
  end;
end;

if..else 语句

for i := 1 to 15 do
begin
  Read(number);
  if number = 1 then
    ex1 := ex1 + number
  else if number = 2 then
    ex2 := ex2 + number
  else if   // rest of possible values and variables

  else     // Handle number that doesn't have a variable

  end;
end;