Discussion :

[dr_kain]

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

[Alcatîz]

Bonjour et bienvenue !

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

Tu peux utiliser le type Comp :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[dr_kain]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.