如何在FreePascal中验证real类型变量的纯数字输入？

原代码的核心问题 #

• 错误地将主程序逻辑塞进了自定义的strtofloat函数，该函数本该只负责字符串转数值的功能
• 使用了showmessage（图形界面库函数），但你引入的crt是控制台库，两者不兼容
• 直接用字符串变量做数学运算，类型不匹配会导致运行崩溃或编译错误
• 没有对用户的实际输入做异常捕获，输入无效内容时程序直接退出

解决思路 #

利用FreePascal自带的SysUtils单元中的StrToFloat函数，通过try-except捕获转换失败时抛出的EConvertError异常，实现输入验证：当转换失败时提示错误并重新要求输入，直到用户输入有效数值。

修正后的完整代码 #

program Fahrenheit_to_Celsius;
uses crt, SysUtils;  // 引入SysUtils以使用StrToFloat和异常处理

var
  InputStr: string;
  Fahrenheit, Celsius: extended;
  ExitFlag: boolean;
  Decision: string;

begin
  clrscr;
  textattr := $3;
  gotoxy(52, 1);
  writeln('Fahrenheit to Celsius Converter');
  
  repeat
    ExitFlag := False;
    // 嵌套循环：直到输入有效温度
    repeat
      write('Input Fahrenheit: ');
      readln(InputStr);
      try
        // 尝试将输入字符串转为数值
        Fahrenheit := StrToFloat(InputStr);
        Break;  // 转换成功，跳出输入循环
      except
        on EConvertError do
        begin
          writeln('false input');
          // 清除当前行，重新输入
          gotoxy(1, wherey());
          delline;
        end;
      end;
    until False;

    // 计算并输出摄氏度
    Celsius := (Fahrenheit - 32) * (5 / 9);
    writeln('Temperature in Celsius: ', Celsius:0:5);

    // 询问是否继续转换
    writeln;
    gotoxy(wherex() + 56, wherey());
    writeln('Convert again or exit?');
    gotoxy(wherex() + 31, wherey());
    writeln('Input e then press enter to exit or input anything else to convert again');
    write('Decision:');
    readln(Decision);
    if LowerCase(Decision) = 'e' then
      ExitFlag := True;

    // 清除询问相关行，准备下一次转换
    gotoxy(1, wherey() - 3);
    delline;
    delline;
    delline;
  until ExitFlag;
end.

关键部分说明 #

• 输入验证循环：嵌套的repeat-until确保用户必须输入有效数值才能进入计算环节
• 异常捕获：try-except块拦截转换失败的异常，打印错误提示后让用户重新输入
• 类型匹配：将输入字符串转为extended类型后再进行数学运算，避免类型错误
• 控制台界面优化：用gotoxy和delline保持界面整洁

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