Delphi - programa sumador

   
Vista:

programa sumador

Publicado por seres (2 intervenciones) el 23/08/2008 03:24:44
hola, me encargaron una tarea y la verdad no se mucho de programacion y ando desesperado si alguien me puediera ayudar.
esto es lo que tengo que hacer
como hacer un programa que calcule la media aritmetica entre el 10 y el 50 con do while y con solamente while
nota:la media aritmetica es la suma de los numeros entre el 10 y el 50 ejem 10+11+12+13.... +50
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:programa sumador

Publicado por pacopaz (104 intervenciones) el 25/08/2008 17:22:01
Intenta con esto:

function SumarConsecutivo(Desde, Hasta: Integer): Integer;
var Res, I: Integer;
begin
Res := 0;
for I := Desde to Hasta do
Res := Res + I;
SumarConsecutivo := Res;
end;

Espero que te sirva.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar