centro de gravedad

[goomba91]

saludos, estoy desarrollando un programa que calcula el centro de gravedad de dos poblaciones con coordenadas x, y en delphi 7 pero en el momento de calcular las medias de las coordenadas me da error y no se como solucionarlo, os adjunto el codigo:

program exer_8_1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
max=2;

type
t_punt=record
color:string;
y:real;
x:real;
end;
t_index=array[1..max] of t_punt;

var
punt:t_index;
i,sumx,sumy,term:integer;
m1,m2: real;

begin

writeln('programa que calcula el centro de gravedad');
for i:=1 to max do
begin
write('Escribe el nombre del municipio: ');
readln(punt[i].color);
write('escribe la componente ''x'': ');
readln(punt[i].x);
write('escribe la componente ''y'': ');
readln(punt[i].y);
end;

for i:=1 to max do
begin
sumx:=sumx+punt[i].x;
sumy:=sumy+punt[i].y;
term:=max;
m1:=sumx/term;
m2:=sumy/term;
end;

end.

[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.

[goomba91]

muchas gracias.

P.D. siento haber ido directamente al grano pero tampoco he encontrado un post de presentaciones como estoy acostumbrado.