Function 设置函数成功（Pascal）_Function_Pascal

Function 设置函数成功（Pascal）

function pascal

Function 设置函数成功（Pascal）,function,pascal,Function,Pascal,如何设置Pascal函数Succ？我的意思是，当我在代码中输入Succ时，它会将字符的序号移动到下一个位置。但只有一次。有没有办法，它可以移动三次而不是一次我在互联网上发现了以下代码： function Succ (X: ordninal_type): ordninal_type; begin Ord (Succ (X)) = Ord (X) + 1; end; 我的想法是将+1替换为+3，但这会给我带来如下错误： program.lpr（6,36）错误

如何设置Pascal函数Succ？我的意思是，当我在代码中输入Succ时，它会将字符的序号移动到下一个位置。但只有一次。有没有办法，它可以移动三次而不是一次

我在互联网上发现了以下代码：

    function Succ (X: ordninal_type): ordninal_type;
    begin
      Ord (Succ (X)) = Ord (X) + 1;
    end;

我的想法是将+1替换为+3，但这会给我带来如下错误：

program.lpr（6,36）错误：未找到标识符“ordninal_type”
program.lpr（19,23）错误：参数1的类型不兼容：获取“Char”，预期的“”

那么我应该如何设置函数，所以我会在代码中设置它，比如->

CHARACTER:=such（CHARACTER）？
“成功”返回当前值之后的后续值（下一个值）。它不能增加多个值，因为只有一个“下一个值”
改用Inc
：
Inc(YourVariable, 3);

或者您可以直接在代码中递增：
YourVariable := YourVariable + 3;

如果要处理字符值（数据类型Char
），也可以使用Inc
：
Ch := 'A';
Inc(Ch, 3);  // Ch is now 'D'

“Succ”返回当前值之后的后续值（下一个值）。它不能增加多个值，因为只有一个“下一个值”
改用Inc
：
Inc(YourVariable, 3);

或者您可以直接在代码中递增：
YourVariable := YourVariable + 3;

如果要处理字符值（数据类型Char
），也可以使用Inc
：
Ch := 'A';
Inc(Ch, 3);  // Ch is now 'D'

“Succ”返回当前值之后的后续值（下一个值）。它不能增加多个值，因为只有一个“下一个值”
改用Inc
：
Inc(YourVariable, 3);

或者您可以直接在代码中递增：
YourVariable := YourVariable + 3;

如果要处理字符值（数据类型Char
），也可以使用Inc
：
Ch := 'A';
Inc(Ch, 3);  // Ch is now 'D'

“Succ”返回当前值之后的后续值（下一个值）。它不能增加多个值，因为只有一个“下一个值”
改用Inc
：
Inc(YourVariable, 3);

或者您可以直接在代码中递增：
YourVariable := YourVariable + 3;

如果要处理字符值（数据类型Char
），也可以使用Inc
：
Ch := 'A';
Inc(Ch, 3);  // Ch is now 'D'

那代码就是你输入的吗？如果是，请尝试“顺序型”而不是“顺序型”
我不知道这里是否还有其他问题，但肯定类型应该拼写正确
 那代码就是您输入的代码吗？如果是，请尝试“顺序型”而不是“顺序型”
我不知道这里是否还有其他问题，但肯定类型应该拼写正确
 那代码就是您输入的代码吗？如果是，请尝试“顺序型”而不是“顺序型”
我不知道这里是否还有其他问题，但肯定类型应该拼写正确
 那代码就是您输入的代码吗？如果是，请尝试“顺序型”而不是“顺序型”
我不知道这里是否还有其他问题，但肯定类型应该拼写正确
 这不是答案。这是一个注释（“是吗？试试这个。”）。由于问题中三个提到的“ordninal”的拼写都不正确，因此很可能是在原始代码中输入了拼写错误。这并不能使您的回答成为一个答案。：-）你要求海报澄清他们是否真的键入了该内容，并建议他们尝试将其更改为其他内容。答案是为所问问题提供最终解决方案的陈述。毕竟，它们是分开的东西是有原因的。：-）我想你一定是对的。我会尽量避免在将来提出可能有用的建议，因为我担心我可能会把它们放在错误的地方。乔恩，这里没有理由把事情放在个人身上。我提出了一个建设性的建议。如果你有建议，请在评论中提出（这是它们存在的原因之一）。将建议作为答案发布可能会导致否决票或删除。我试着礼貌地提出建议；正如你所看到的，我没有否决你的帖子。如果您需要更多信息，这些页面会提供有关注释和答案之间差异的信息。这不是答案。这是一个注释（“是吗？试试这个。”）。由于问题中三个提到的“ordninal”的拼写都不正确，因此很可能是在原始代码中输入了拼写错误。这并不能使您的回答成为一个答案。：-）你要求海报澄清他们是否真的键入了该内容，并建议他们尝试将其更改为其他内容。答案是为所问问题提供最终解决方案的陈述。毕竟，它们是分开的东西是有原因的。：-）我想你一定是对的。我会尽量避免在将来提出可能有用的建议，因为我担心我可能会把它们放在错误的地方。乔恩，这里没有理由把事情放在个人身上。我提出了一个建设性的建议。如果你有建议，请在评论中提出（这是它们存在的原因之一）。将建议作为答案发布可能会导致否决票或删除。我试着礼貌地提出建议；正如你所看到的，我没有否决你的帖子。如果您需要更多信息，这些页面会提供有关注释和答案之间差异的信息。这不是答案。这是一个注释（“是吗？试试这个。”）。由于问题中三个提到的“ordninal”的拼写都不正确，因此很可能是在原始代码中输入了拼写错误。这并不能使您的回答成为一个答案。：-）你要求海报澄清他们是否真的键入了该内容，并建议他们尝试将其更改为其他内容。答案是为所问问题提供最终解决方案的陈述。毕竟，它们是分开的东西是有原因的。：-）我想你一定是对的。我会尽量避免在将来提出可能有用的建议，因为我担心我可能会把它们放在错误的地方。乔恩，这里没有理由把事情放在个人身上。我提出了一个建设性的建议。如果你有建议，请在评论中提出（这是它们存在的原因之一）。将建议作为答案发布可能会导致否决票或删除。我试着礼貌地提出建议；作为你