25-08-2008
|
|
Miembro Premium
|
|
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Reputación: 25
|
|
Cita:
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,
|