Programa de promedio

[ecfisa]

Empezado por roman

Ya dejar de rizar el rizo

Creo que tenes razón, tratar de arreglarlo lo va a complicar mucho más...

En realidad la primera propuesta que había pensado hacía la media aritmética al finalizar:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i,Cont: Integer;
  Prom,cd: Double;
begin
  Cont:= 0;
  Prom:=0;
  for i:= 0 to ComponentCount - 1 do
   if Components[i] is TEdit then
     if TryStrToFloat(TEdit(Components[i]).Text, cd) then
     begin
       Prom:= Prom + cd;
       Inc(Cont);
     end;
  if Cont > 0 then
    ShowMessage(Format('El promedio es: %8.2f',[Prom/Cont]))
  else
    ShowMessage('Nada que promediar');
end;

Pero pensé que no correspondía al nivel del ejercicio. Luego me embarullé tratando de simplificar...

Saludos.

[champy]

Todo las formas que le estais explicando son fantásticas, seguramente así es como lo hariamos la mayoría.

Pero si le están pidiendo que haga un promedio del valor de 6 variables, supongo que su profesor se morirá de un espasmo si le ve usar ComponentCount, TryStrTofloat y otras funciones similares que es improbable que conozca (Seguramente FormatFloat ya estaría de sobra). Seamos consecuentes que el nivel del ejercicio que le están pidiendo.

[alenbebote]

Empezado por ecfisa

Creo que tenes razón, tratar de arreglarlo lo va a complicar mucho más...

En realidad la primera propuesta que había pensado hacía la media aritmética al finalizar:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i,Cont: Integer;
  Prom,cd: Double;
begin
  Cont:= 0;
  Prom:=0;
  for i:= 0 to ComponentCount - 1 do
   if Components[i] is TEdit then
     if TryStrToFloat(TEdit(Components[i]).Text, cd) then
     begin
       Prom:= Prom + cd;
       Inc(Cont);
     end;
  if Cont > 0 then
    ShowMessage(Format('El promedio es: %8.2f',[Prom/Cont]))
  else
    ShowMessage('Nada que promediar');
end;

Pero pensé que no correspondía al nivel del ejercicio. Luego me embarullé tratando de simplificar...

Saludos.

demonios mil gracias ya no marca el error solo mande el mensaje a un memo ya quedo mil gracias