programa sumador

[tsue]

Empezado por Delphius

Tal vez resulte un tanto pesado el hecho y la manera en que me he dirjido. Mi intención es más mostrar un algoritmo de como proceder y no tanto el código.

El asunto aqui es una cuestión de lógica. El algoritmo que implementa realiza un repeat más le falta hacer dos cosas:
1. llevar un contador de pasadas
2. dividor el total acumulado por dicha cantidad

Por el punto 1 se resuelve facilmente con añadir una nueva variable.

Código Delphi [-]var cantidad: integer;


Y acumular el valor en donde sea necesario:
Código Delphi [-]cantidad := cantidad + 1; // O bien...
inc(cantidad);// O bien
inc(cantidad,1);


Al final del ciclo repeat o while (se puede hacer con ambos ciclos) simplemente hacer la división entera (si son enteros).

Código Delphi [-]promedio := total div cantidad;


En este ejemplo yo hago la división entera entre la variable total y cantidad.
Espero que ahora quede más claro.

Saludos,

hola, oye me intereso mucho el programa de este chavo sobre todo en la parte de

function MediaUntil(a, b: Cardinal): Cardinal;

asm
xchg eax, edx
xchg eax, ecx
xor eax, eax
cmp ecx, edx
jb @Exit
sub ecx, edx
push ecx
@Next:inc edx
add eax, edx
loop @Next
xor edx, edx
pop ecx
div ecx
@Exit:

pero no entiendo lo que kieren decir, estube leyendo en la ayuda de delphi, pero lo malo k esta en ingles, y tmb en wiky pero no encuntro todo muy claro
porcierto cuales son los comandos de suma y divicion