Diese Rechenmethode/funktion nennt sich Fakultät und hier ein vorgekauter, runtergeschluckter und wieder erbrochener Code!
Kannst von mir aus gerne deinem Lehrer verweisen. Musst auch keine Credits vergeben!
Delphi-Quellcode:
function fakultät(
const X: DWord): DWord;
asm
xor ecx, ecx
xchg eax, ecx
@@_1:
add eax, ecx
loop @@_1
end;