Cita:
Empezado por Delphius
...El código de muestra del compañero cHackAll no realiza la media aritmética...
|
Disculpe profesor, ahora como va la cosa?
Código Delphi
[-]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:
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(MediaUntil(8, 20)));
end;