programa sumador

[[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,