Pascal语言读取自定义格式输入文件执行计算并写入输出文件的问题排查

嘿，我来帮你排查程序的问题！你的代码编译通过但输出文件空白，核心原因是对Pascal文件类型的使用有误，再加上几个语法逻辑小错误，咱们一步步来解决：

核心问题：误用二进制记录文件处理文本输入 #

你定义的file of input和file of output是二进制记录文件，这种文件是按照Pascal自定义的record结构存储二进制数据的，但你的root.inp是纯文本格式（每行一个整数），两者完全不兼容——程序根本读不到正确的a、b、c值，自然也计算不出有效的S，最终输出空白。

其他语法&逻辑错误 #

• while not eof(f) do;这里多了个分号，导致后面的begin-end循环体完全不会执行，直接跳过了读取和计算步骤；
• read(f, input);里的input是你定义的类型名，不是变量，不能直接用来读取；同理output.sum := S里的output也是类型，不能直接操作；

修正后的完整代码 #

program Formula;
var
  inputFile: text;  // 用text类型处理纯文本文件
  outputFile: text;
  a, b, c: integer;
  S: real;
begin
  // 读取文本输入文件
  assign(inputFile, 'root.inp');
  reset(inputFile);
  // 按行读取3个整数（对应输入文件每行一个数的格式）
  readln(inputFile, a);
  readln(inputFile, b);
  readln(inputFile, c);
  close(inputFile);

  // 执行公式计算
  // 注意：如果a/b/c中有0，a*b*c会为0导致除法错误，可根据需求添加判断逻辑
  S := (a*a + b*b + c*c) / (a*b*c) + sqrt(a*b*c);

  // 写入文本输出文件
  assign(outputFile, 'root.out');
  rewrite(outputFile);
  writeln(outputFile, S);  // 将计算结果写入文件
  close(outputFile);
end.

关键修正说明 #

1. 改用text类型文件：这是Pascal处理纯文本文件的标准类型，完美匹配你root.inp的每行整数格式；
2. 简化数据读取：因为输入固定是3个整数，直接用三次readln读取每行数值即可，无需复杂的循环或record；
3. 修正变量与类型的混淆：移除了不必要的record定义，直接用简单变量存储输入和计算结果，避免类型与变量的误用；
4. 直接写入计算结果：用writeln把real类型的S直接写入文本文件，确保输出内容正确显示。

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