programa sumador

[[egostar]]

Empezado por Delphius

Gracias por el dato,
No se porque no se me pasó por la cabeza lo del botón secundario. Ando en otra nube

A ver, creo que no se me entendió. A lo que voy es que si se emplease un ciclo para ir desde el elemento inicial hasta el final para llevar la suma y la cuenta... pues, como que hacemos una operación al vicio. ¿De que sirve contar los elementos si sabemos cuantos son?

(10 + 11 + ... + 49 + 50)/41 = 30

(10 + 11 + ... + 49 + 50)/((50-40) + 1) = 30

¿Se entiende?

Ya se que es lo mismo sumar los extremos directamente y dividirlos por la mitad. Yo hacía referencia a ese paso innecesario de contar los elementos.

Saludos,

Pues eso mismo y como dice roman, para que tanto brinco estando el piso tan parejo.

10+50=60/2=30

Salud OS

[[Delphius]]

Empezado por egostar

Pues eso mismo y como dice roman, para que tanto brinco estando el piso tan parejo.


Salud OS

Eso lo sabemos amigo, pero si recuerdas a tsue le pidieron que lo realice implementando el ciclo while. Por ello va mi comentario: es al vicio ir contando, si inicialmente de partida ya sabemos cuantos elementos hay desde uno hacia otro con una simple resta.

Calculo que el objetivo del profesor de tsue es practicar el uso de ciclos, y le pidió que calcule promedios.

¿Tanto embrollo hicimos por esto?

Código Delphi [-]
function Promedio(Inicial, Final: integer): double;
var suma, Ini: integer;
begin
  suma: integer;
  Ini: inicial;
  while Ini <= final do
    begin
      suma := suma + Ini;
      inc(Ini);
    end;
   result := suma / (Final - Inicial + 1);   
end;

Saludos,

[[maeyanes]]

Corrigiendo un par de errores de Delphius:

Código Delphi [-]
function Promedio(Inicial, Final: integer): double;
var
  suma, Ini: integer;

begin
  suma := 0;
  Ini := inicial;
  while Ini <= final do
  begin
    suma := suma + Ini;
    inc(Ini)
  end;
  result := suma / (Final - Inicial + 1)
end;

Saludos...

[[Delphius]]

Empezado por maeyanes

Corrigiendo un par de errores de Delphius:

Código Delphi [-]function Promedio(Inicial, Final: integer): double; var suma, Ini: integer; begin suma := 0; Ini := inicial; while Ini <= final do begin suma := suma + Ini; inc(Ini) end; result := suma / (Final - Inicial + 1) end;



Saludos...

¡Auch! Eso dolió

Saludos,

[roman]

No sé si el profesor se tomará a mal esto:

Código Delphi [-]
function Promedio(ValorInicial, ValorFinal: Integer): Double;
var
  BeStupid: Boolean;

begin
  Result := 0;
  BeStupid := true;

  while BeStupid do
  begin
    Result := (ValorInicial + ValorFinal) / 2;
    BeStupid := false;
  end;
end;

// Saludos

[ContraVeneno]

jejejeje... tal vez ya sería demasiado...

Delphius, cierto, cierto, ya veo el punto al que te refieres y sí tienes razón.

[Robert01]

Me pregunto:

¿Que va a pasar si hay alguno que no está atento y trata de calcular la media de una serie de datos cualquiera aplicando la función propuesta?

10,11, 10, 15, 12,15, 15,10, 14,20

Saludos