Ayuda Con Una Codificacion-delphi

[rastafarey]

Hermano ese es tu codigo.

Código Delphi [-]
procedure TForm7.Button1Click(Sender: TObject);
Type
  TNumeroAreas = 1..6;
  TArregloAreas = Array[TNumeroAreas] Of Real;
  TNumeroCoordenadas = 1..3;
  TArregloCoordenadas = Array[TNumeroCoordenadas] Of Real;
  TCoordenadas = Array[TNumeroAreas] Of TArregloCoordenadas;
Const
  __NORDINALES: Array[TNumeroAreas] Of String = ('PRIMERA', 'SEGUNDA', 'TERCERA', 'CUARTA', 'QUINTA', 'SEXTA');
Var
  Area: Real;
  Areas: TArregloAreas;
  CoordenadasXYZ, AX: TCoordenadas;
  CoordenadasC: TArregloCoordenadas;
  I: TNumeroAreas;
  J: TNumeroCoordenadas;
begin
  Area := 0;
  For J := Low(J) To High(J) Do
    CoordenadasC[J] := 0;
  For I := Low(I) To High(I) Do Begin
    Areas[i] := strtofloat(inputbox(Format('VALOR DE LA %s AREA', [__NORDINALES[i]]), Format('A%d=', [i]),''));
    Area := Area + Areas[i];
    For J := Low(J) To High(J) Do Begin
      CoordenadasXYZ[i][J] := strtofloat(inputbox(Format('CENTROIDE DE LA %s FIGURA', [__NORDINALES[i]]), Format('x%d=', [J]),''));
      AX[i][J] := Areas[i] * CoordenadasXYZ[i][J];
      CoordenadasC[J] := CoordenadasC[J] + AX[i][J];
    End;
  End;
  For J := Low(J) To High(J) Do
    CoordenadasC[J] := CoordenadasC[J] / Area;
  showmessage(' LA COORDENADA XC:='+ formatfloat('0.00', CoordenadasC[1]));
  showmessage(' LA COORDENADA YC:='+ formatfloat('0.00', CoordenadasC[2]));
  showmessage(' LA COORDENADA ZC:='+ formatfloat('0.00', CoordenadasC[3]));
end;

Ahora los del foro nos merecemos la explicacion de que es un centroide parq ue sirve y como nos puede ayudar y que uso tiene en lla actualidad.

[rastafarey]

Una cosa mas te recomiendo que uses compoenetes pare lee los valores.

De igual forma para mostrar.

[darnnezt]

Muchas gracias hermano por la ayuda ya pude encontrar solucion, por otra parte Centroide o centro de gravedad, es aquella parte de un cuerpo plano o superficie de revolucion donde se concentrada la mayor cantidad de masa, que a su vez esa masa multiplicada por al gravedad se combierte en Newton y por ende es una fuerza dirijida hacia abajo saludos..

yo codifique de esta manera creo q es igual

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var areas,A,xc,yc,zc,x1,y1,z1,x,y,z,x2,y2,z2:real;
 n,i: integer;
begin
//inicializacion
i:=0;
areas:=0;
x:=1; y:=1; z:=1; x2:=0; y2:=0; z2:=0;

//estrutucra

//cantida de figuras
N:= strtoint(inputbox('INGRESE LA CANTIDAD DE FIGURAS','F=',''));


while ido
begin
A:= strtofloat(inputbox('INGRESE EL AREA','A=',''));

x:= strtofloat(inputbox('INGRESE LA COODENADA DEL CENTROIDE','X=',''));
Y:= strtofloat(inputbox('INGRESE LA COODENADA DEL CENTROIDE','Y=',''));
Z:= strtofloat(inputbox('INGRESE LA COODENADA DEL CENTROIDE','Z=',''));
//sumadores
  if x <>0 then
x1:= x*A;
if y<>0 then
y1:=y*A;
if z<>0 then
z1:= z*A;

x2:= x2+x1;
y2:= y2+y1;
z2:= z2+z1;

areas:= areas+a;




I:= i+1;
  end;

xc:= x2/areas;
yc:= y2/areas;
zc:= z2/areas;

showmessage(' LA SUMA DE LAS AREAS ES: ' +  formatfloat('0.0000',areas));
SHOWMESSAGE(' COORDENADA DE CENTROIDE EN X=' + formatfloat('0.0000',xc));
SHOWMESSAGE(' COORDENADA DE CENTROIDE EN Y=' + formatfloat('0.0000',yc));
SHOWMESSAGE(' COORDENADA DE CENTROIDE EN Z=' + formatfloat('0.0000',zc));