Pascal代码语法错误排查：ejercicio.pas(10,9)预期':'却发现'('

你遇到的编译错误直接来自estanChocando函数里的变量声明行：dist((x1, y1), (x2, y2)): real;，这行违反了Pascal的基础语法规则，下面是具体问题拆解和修正方案：

核心问题分析 #

• 变量声明语法错误：Pascal中变量声明的格式是变量名: 数据类型;，不允许在变量名位置写带参数的表达式（你这里错误地写成了类似函数调用的形式）。你需要声明一个普通的实数变量来存储距离值，再在代码块内计算它的结果。
• 错误的赋值语句：后续的(dist((x1, y1);(x2, y2))):= sqrt(...)也是无效代码——Pascal只能给变量赋值，不能给表达式赋值，且参数分隔符必须用逗号（,）而非分号（;）。
• 关键字滥用：true是Pascal的布尔常量关键字，不能用作自定义变量名，这会导致编译逻辑混淆。
• 逻辑与语法遗漏：多个函数存在返回值未覆盖的情况（比如estanChocando仅在条件为真时赋值）；predecirColision中存在括号不匹配，且试图将无返回值的过程（darUnPaso）赋值给返回整数的函数，类型完全不兼容。

修正后的代码示例 #

const
  RADIO = 10;  // 补充原代码未定义的常量，需根据实际需求修改
  ANCHO = 800;
  ALTO = 600;

procedure darUnPaso(var x, y: integer; vx, vy: integer);
begin
  x := x + vx;
  y := y + vy; 
end;
    
function estanChocando(x1, y1, x2, y2: integer): boolean;
(* precondition: sqr(x2-x1) + sqr(y2-y1) >= 0*)     
var
  distancia: real;
begin
  distancia := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
  estanChocando := distancia < RADIO + RADIO;
end;
    
function esPosicionValida(x1, y1: integer): boolean;
begin
  // Pascal不支持连续比较（a<=b<=c），必须拆分为独立逻辑判断
  esPosicionValida := (x1 >= RADIO) and (x1 <= ANCHO - RADIO) and
                      (y1 >= RADIO) and (y1 <= ALTO - RADIO);
end;
    
function predecirColision(x1,y1,vx1,vy1,x2,y2,vx2,vy2: integer): integer; 
(*ninguna de las pelotas està detenida y ambas pelotas
    estàn en posiciones vàlidas*)
var
  hayColision: boolean;
begin
  // 修正括号不匹配问题，调整逻辑判断结构
  hayColision := estanChocando(x1,y1,x2,y2) or 
                 (esPosicionValida(x1,y1) and esPosicionValida(x2,y2));
    
  if hayColision then
  begin
    // 调用移动过程，函数返回整数标识执行状态（示例返回1表示成功）
    darUnPaso(x1, y1, vx1, vy1);
    darUnPaso(x2, y2, vx2, vy2);
    predecirColision := 1;
  end
  else
    predecirColision := -1;
end;

额外说明 #

• 补充了原代码中未定义的常量（RADIO、ANCHO、ALTO），你需要根据实际场景修改这些值。
• 调整了predecirColision的逻辑：原代码试图将过程赋值给函数返回值，这里改为调用过程后返回整数标识，你可以根据业务需求调整返回规则。

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