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