1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| ImportC "libgmp-3.lib"
gmp_sprintz.l(dest.s,format.s,*n.mpz) As "___gmp_sprintf"
mpz_init(*integer.mpz) As "___gmpz_init"
mpz_clear(*integer.mpz) As "___gmpz_clear"
mpz_set_str.l(*rop.mpz,str.s,base.l) As "___gmpz_set_str"
mpz_mul(*rop.mpz,*op1.mpz,*op2.mpz) As "___gmpz_mul"
mpz_sizeinbase.l(*op.mpz,base.l) As "___gmpz_sizeinbase"
mpz_get_str(str.s,base.l,*op.mpz) As "___gmpz_get_str"
EndImport
; "multi-precision integer"
mpz_init(@Nombre1)
mpz_init(@Nombre2)
mpz_init(@Resultat)
;Charge les valeurs
mpz_set_str(@Nombre1,Premier$,10) ; Base 10
mpz_set_str(@Nombre2,Second$,10) ; Base 10
mpz_set_str(@Resultat,"",10) ; Base 10
;Multiplie Nombre1*Nombre2 et place le produit dans Resultat
mpz_mul(@Resultat,@Nombre1,@Nombre2) |
Partager