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