为何Pascal程序的while循环结束后无法输入新学生姓名？

核心问题1：输入缓冲区残留换行符导致读取异常 #

你的代码中使用read()函数读取字符串和整数后，输入时按下的回车（换行符）会留在输入缓冲区中。当循环进入下一次迭代，执行read(studentname)时，程序会直接读取缓冲区里的换行符作为空字符串，导致看起来“无法输入新的学生姓名”——实际上程序已经读取了空内容，直接进入后续步骤。

核心问题2：循环逻辑不符合预期终止需求 #

当前循环条件while Averagemark <101 do仅在平均分≥101时才会终止，但正常学生成绩平均分不可能超过100，这意味着循环会无限执行（除非输入的成绩总和超过600，这显然不符合实际场景），和你“可重复执行直至终止”的需求不符。

修复后的代码示例 #

program Students_of_ABC_Highschool;

var 
  ID: integer;
  studentname: string;
  Mathmark, ITmark, Englishmark, Chemistrymark, Spanishmark, Frenchmark: integer;
  Averagemark: integer;
  continue: boolean; // 新增控制循环的变量

begin
  continue := true;
  while continue do begin 
    writeln('请输入学生姓名（输入quit退出）: ');
    readln(studentname); // 改用readln读取字符串，自动清空换行符

    if studentname = 'quit' then begin
      continue := false;
      break;
    end;

    writeln('请输入学生ID: ');
    readln(ID); // 改用readln读取整数

    writeln('请输入数学成绩: ');
    readln(Mathmark);
    writeln('请输入IT成绩: ');
    readln(ITmark);
    writeln('请输入英语成绩: ');
    readln(Englishmark);
    writeln('请输入化学成绩: ');
    readln(Chemistrymark);
    writeln('请输入西班牙语成绩: ');
    readln(Spanishmark);
    writeln('请输入法语成绩: ');
    readln(Frenchmark);
    
    Averagemark := (Mathmark + ITmark + Englishmark + Chemistrymark + Frenchmark + Spanishmark) div 6;
    writeln('学生 ', studentname, ' 的平均分是 ', Averagemark);
    
    if Averagemark >=60 then begin
      writeln('恭喜 ', studentname, '，你被邀请参加颁奖典礼！');
    end
    else begin
      writeln('加油 ', studentname, '，请继续努力！');
    end;
  end;
end.

关键修复点 #

• 把所有read()替换为readln()：readln()会在读取内容后自动读取并丢弃输入缓冲区的换行符，避免残留的换行符干扰下一次输入。
• 新增循环终止逻辑：通过输入特定字符串（比如'quit'）来主动退出循环，符合“重复执行直至终止”的需求。
• 优化变量声明：把同类型的变量合并声明，让代码更整洁。

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