[TP] Dépassement de capacité pour nombre de plus de 32 bits

Voilà, sachant qu'un longint est compris entre -2 milliards et + 2 milliards, comment effectuer des calculs sur des nombres plus grands ?

Ici, c'est pour un ptit prog pour verifier la validité d'un numéro de carte bancaire.
--> *** - ******* - **
111 - 2222222 - 33

1112222222 mod 97 doit etre égal à 33
si oui n° valide, sinon non valide

Merci d'avance

Bonjour et bienvenue !

Tout d'abord, au sujet de ton exemple : le modulus vaut 46 et non 33 ! :lol:

Tu peux utiliser le type Comp :

Code:

---

1 2 3 4 5 6 7 8 9

Var ValeurDepart, Quotient, Reste : Comp; Resultat : LongInt;   Begin ValeurDepart := 1112222222.0; Quotient := ValeurDepart / 97; Reste := ValeurDepart - Quotient * 97; Resultat := Round(Reste); End;

---

J'ai testé plusieurs valeurs avec succès mais ça ne veut pas dire charrette : il y a peut-être un risque d'erreur d'arrondi, la méthode peut sûrement être affinée. ;)

ok, merci j'ai essayé ca marche .
j'ai une autre solution aussi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

var p1,p2,p3 : longint;   begin   write('Entrez votre numero de compte : *** - ******* - **'); gotoxy(33,1);read(p1); gotoxy(39,1);read(p2); gotoxy(49,1);read(p3);   p1:= p1 mod 97; p1:= p1 * 10000000 + p2;   {if p3=97 then p3:=0; cas particulier}   if p1 mod 97 = p3 mod 97 then write('code valide') {p3 mod 97 remplace le test du dessus}   else write('code non valide');     end.

---