Pascal计算器负指数计算结果恒为0问题求助

核心错误分析 #

你的代码里有两个关键问题导致负指数计算结果始终为0：

1. 整数除法运算符误用：处理负指数时，你用了pot1 := 1 div pot1;，div是Pascal的整数除法，比如输入底数为2时，1 div 2结果是0，后续循环相乘只会得到0。这里必须用浮点数除法/来计算底数的倒数。
2. 冗余无效赋值：res5 := 1 / res5;这行完全多余，因为res5初始值就是1，1除以1还是1，对结果没有任何影响，反而干扰逻辑。

修复后的代码 #

5: Begin
    clrscr;
    Writeln('POWER');
    Write('Base: ');
    Readln(pot1);
    Write('Exponent: ');
    Readln(pot2);
    res5 := 1.0; // 明确初始化为浮点数，避免整数类型精度问题
    if pot2 < 0 then
     Begin
        pot1 := 1 / pot1; // 替换div为浮点数除法/
        pot2 := -pot2;
        // 移除冗余的res5赋值代码
     End;
    while pot2 > 0 do
        Begin
          res5 := res5 * pot1;
          pot2 := pot2 - 1;
        End;
        Writeln('The result is: ', res5:0:4);
        Readkey;
   End;

额外注意事项 #

• 确保pot1和res5被声明为浮点数类型（比如real或double），如果是整数类型，即使修复除法逻辑，也会丢失精度导致结果错误。
• 可以补充输入验证，比如拦截底数为0且指数为负数的情况（数学上无意义），避免程序出现异常。

内容的提问来源于stack exchange，提问作者user20733481