centro de gravedad

[ecfisa]

Hola goomba91 y bienvenido.

En principio tendrías que modificar la declaración de variables de manera que sumx y sumy sean números reales

Código Delphi [-]
var
  punt: t_index;
  i, term: Integer;
  sumx, sumy, m1, m2: real;

Ya que en las líneas:

Código Delphi [-]
    sumx:= sumx + punt[i].x;
    sumy:= sumy + punt[i].y;

Les estas asignando ese tipo numérico.

De ese modo se ejecutará sin arrojar errores de compilación.

Saludos.