Se connecter avec
S'enregistrer | Connectez-vous

Pb dans mon code Pascal

Dernière réponse : dans Programmation

Salut à tous ! Je debute dans ce language depuis qq temps mais la je bloque dans mon application .
C'est plus simple si je vous montre je crois :pt1cable:  

  1. procedure TForm1.SpeedButton1Click(Sender: TObject);
    

  2. begin
    

  3.   N1 := StrToInt(copy(edit1.Text,1,5)); // copie du 1er au 5e chiffre dans la variable N1
    

  4.  
  5.   N2 := StrToInt(copy(edit1.Text,6,10)); // copie du 6e au 10e chiffre dans la variable N2
    

  6.  
  7.   N3 := StrToInt(copy(edit1.Text,11,21)); // copie du 11e au 21e chiffre dans la variable N3
    

  8.  
  9.   N4 := N1 * 8;
    

  10.  
  11.   N1 := Trunc(N3 / 97);
    

  12.  
  13.   N1 := N3 - (N1 * 97);
    

  14.  
  15.   N5 := N2 * 15;
    

  16.  
  17.   N2 := Trunc(N4/97);
    

  18.  
  19.   N2 := 97 - (N5 - (N2 * 97));
    

  20.  
  21.   N6 := N3 * 3;
    

  22.  
  23.   N3 := Trunc(N6/97);
    

  24.  
  25.   N3 := 97 - (N6 - (N3 * 97)); 
    

  26.  
  27.   N7 := N1 + N2 + N3;
    

  28.  
  29.   N8 := Trunc(N7 / 97);
    

  30.  
  31.   N9 := N7 - (N8 * 97); 
    

  32.  
  33.   If (N9=0) then N9 := 97;
    

  34.  
  35.   Edit2.Text := N9;
    

  36.  
  37. end;
    

  38.  
  39. end.


Comme vous l'avez compris c'est un algo qui me sers à élargire mes connaissance

Si vous voyez l'ereur ou les ereurs se serais bien :D 

Autres pages sur : code pascal

Lassé par la pub ? Créez un compte

Premièrement, je te conseillerais de déclarer toutes tes variables en haut, sa évite souvent des problèmes...
  1. procedure TForm1.SpeedButton1Click(Sender: TObject);
    

  2. var
    

  3.   int N1, N2, N3, N4, N5, N6, N7, N8, N9; 
    

  4. begin 
    

  5. ...


Ensuite, à ta dernière ligne tu devrais écrire :
  1. Edit2.Text := IntToStr(N9);
    

  2.  
  3. au lieu de
    

  4.  
  5. Edit2.Text := N9;
Lassé par la pub ? Créez un compte

Créer un nouveau sujet