Foros Club Delphi - centro de gravedad

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - centro de gravedad (https://www.clubdelphi.com/foros/showthread.php?t=71450)

centro de gravedad

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:

Cita:

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.

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.

muchas gracias.

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